Importovanje podataka iz druge baze!

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

Mislim da DoCmd.TransferDatabase ili nesto tako moze da uradi sta zelis. Pogledaj help za TransferDatabase metod.

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"

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.....

Daj pogledaj ovo što sam okačio tu je sve decidno objašnjeno kako i šta pa mi pomozi .....

Pozdrav...

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

Potpis

zxz