[ Filantrop @ 16.01.2006. 09:31 ] @
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!
[ Trtko @ 16.01.2006. 13:04 ] @
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




[Ovu poruku je menjao Trtko dana 16.01.2006. u 14:07 GMT+1]
[ Filantrop @ 17.01.2006. 10:50 ] @

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

----------------------------