Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako se dodaje

Macro za ubacivanje tabela iz Oracle baze u Access!

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 2 odgovora
  • 6.335 pregleda

Najnovija ↓

Macro za ubacivanje tabela iz Oracle baze u Access! 16.01.2006. u 10:31 · pre 253 meseca #1
Trebam u Access 2000 ubaciti tablice iz Oracle baze:

Postepen (ručni) postupak je :

- Tables ---New, izaberemo Import Table

- U dijalogu Import odaberemo tip tablice ODBC Dataabases()

- U dijalogu Machine Data Source izaberemo npr. skladiste sa type (System),

- U dijalogu Microsoft ODBC for Oracle Connect ispunimo:

User name: skladiste
Pasword: skladiste
Server: Beq-Local

- U dijalogu Tables izaberemo tablice npr. SKLADISTE.ARTIKLI i SKLADISTE.PROMET

- Nakon tog postupka Access formira tablice SKLADISTE_ARTIKLI i SKLADISTE_ PROMET.

Eto taj postupak bih trebao automatizirati kroz neki macro.

Ima li ko kakav cod za macro?

Pozdrav!
Re: Macro za ubacivanje tabela iz Oracle baze u Access! 16.01.2006. u 14:04 · pre 253 meseca
izmenjeno 1 put, poslednji put Trtko 16.01.2006. u 14:07
Izmene poruke
  1. Trtko16.01.2006. u 14:07zapis iz teksta poruke
#2
Pozdrav ,
eto , ne pita te nist , napravi import


server = "BK02" ' napomena , skreiras si ODBC (moj se zove BK02 kao i server)
lozinka = "skladiste"
pasword = "skladiste"

oddb = "ODBC;DSN=" + server + "; Uid=" + lozinka + "; Pwd=" + pasword + ";DATABASE=" + server


DoCmd.TransferDatabase acImport, "ODBC Database", oddb, acTable, loz + ".artikli", loz + "_artikli"

' ubacio si tablicu u datasheet view ......

preg.SourceObject = "table." + loz + "_artikli"
tabime.Caption = loz + "_FKPR"

itd .......
i nije u makrou

vec u kodu , na form open
Re: Macro za ubacivanje tabela iz Oracle baze u Access! 17.01.2006. u 11:50 · pre 253 meseca #3

Hvala na pomoći, malo sam preinačio i radi kako treba. Evo dajem moj cod koji radi u formi na jedan klik gumba.


---------------
Private Sub OBNOVA_BAZE_Click()

DoCmd.DeleteObject acTable, "SKLADISTE_PROMET"


server = "SKLADISTE"
lozinka = "skladiste"
pasword = "skladiste"
sk = "Beq-Local"

oddb = "ODBC;DSN=" + server + "; Uid=" + lozinka + "; Pwd=" + pasword + ";SERVER=" + sk


DoCmd.TransferDatabase acImport, "ODBC Database", oddb, acTable, server + ".PROMET", server + "_PROMET"



If MsgBox("Unos je uspješno završio!", _
vbOKOnly, "Poruka nakon unosa") = _
vbOK Then
DoCmd.Close
End If


End Sub

----------------------------
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme