[ ex-baccko @ 03.10.2006. 10:28 ] @
Dali mogu da napravim import u svojoj aplikaciji na gumb da kada kliknem na gumb da unesem podatke iz druge baze iz tabela u svoju bazu u tabelu koju ja zelim i pod drugačijim nazivima u mojoj tabeli od naziva iz druge baze.

NPR: Baza 1 tabela- kupci" naziv-ime
[ Zidar @ 03.10.2006. 21:26 ] @
Mislim da DoCmd.TransferDatabase ili nesto tako moze da uradi sta zelis. Pogledaj help za TransferDatabase metod.
[ Trtko @ 04.10.2006. 07:09 ] @
Ovako ti ide , dolje ti je primjer linka tablice sa ORACLE - baze
ako zelis import , samo promjenis AcLink u AcImport


serv = curserver
loz = curowner
pas = curowner
imelink = loz + "." + tabela ' to ti je tablica koju ces linkati

oddb = "ODBC;DSN=" + serv + "; Uid=" + loz + "; Pwd=" + pas + ";DATABASE=" + serv

DoCmd.TransferDatabase acLink, "ODBC Database", oddb, acTable, imelink, "TblOracle"
[ ex-baccko @ 04.10.2006. 11:26 ] @
Dali mora da budu iste kriterije u mojoj tabeli za nazive kolona kao iz tabele iz druge baze!
npr: ako imam -cijena "carency" - mora biti u mojoj bazi na nazivu -iznosi "carency"- uslov?

Dali se u opće moraju da poštuju zadati kriterium iz baze koju importujem sa mojom.....
[ ex-baccko @ 07.10.2006. 14:23 ] @
Daj pogledaj ovo što sam okačio tu je sve decidno objašnjeno kako i šta pa mi pomozi .....

Pozdrav...

[Ovu poruku je menjao baccko dana 09.10.2006. u 15:13 GMT+1]
[ izonic @ 10.10.2006. 12:24 ] @
Function nova()
'----------------------------------------------------------------------------
'Kreiranje nove baze i prebacivanje tabele u tu bazu
'----------------------------------------------------------------------------
Dim dbs As Database, tdf As TableDef, Fld As Field
Dim strDB, strSQl As String
Dim appAccess As Access.Application
Dim qdf As QueryDef
Dim dataSource As String

' postavljanje putanje
strDB = "D:\Baza\Temp.mdb"

Set appAccess = _
CreateObject("Access.Application.10")

appAccess.NewCurrentDatabase strDB

Set appAccess = Nothing
strSQl = "SELECT DISTINCT * INTO TTZbir IN " & "'" & strDB & "'" _
& Chr(13) & "FROM (((T2 LEFT JOIN T1 ON T2.ICRCID = " _
& Chr(13) & "T1.ICRCID) LEFT JOIN T3 ON T2.ICRCID = " _
& Chr(13) & "T3.ICRCID) LEFT JOIN T4 ON T2.ICRCID = " _
& Chr(13) & "T4.ICRCID) LEFT JOIN T5 ON T2.ICRCID = T5.ICRCID;"
DoCmd.RunSQL strSQl

End Function
[ ex-baccko @ 17.10.2006. 18:29 ] @
Stari ovo ne može i nije baš naj bolje ovo mi samo napravi bazu na datoj putanji
dali može što god drugo ili izgleda nisi pogledao moje objašnjenje...Pozdrav!

Hvala mom tuzlaku! Jedno veliko Vozdra!!!


[Ovu poruku je menjao baccko dana 20.10.2006. u 16:16 GMT+1]