Pozdrav svima,
imam jedan problem, naime, podaci mi se nalazi u Oracle bazi (.dbf) i nikako nemogu da ih importujem u Access kako bih mogao da mijenjem ono šta mi treba?
Ovo što ti je prethodnik savetovao radi ako je u pitanju jednostavna .dbf baza, ali to onda nije Oracle data fajl. Za pristup podacima iz Oracle data fajlova ne postoji drugo rešenje osim da koristiš Oracle.
Nisi ti nista lupio.
Ako baza radi preko odbc se moze jednostavno i linkovati i importovati.
Mislim da se radi o necemu drugome.
Vjerovatno ima backup iz orakle.
Fizicki *.dbf fajl bez baze nista ne vredi niti se kao takav moze importovati ili na bilo koji nacin iskoristiti... Ako postoji baza ima i nacina da se odredjene tabele prebace a access, exportom u excel, delimited txti sl. pa uvozenjem ili preko odbc konekcije.
Kolko ja znam DBF je dBase file baza za clipper, foxpro i sl. može da se otvori u accessu.Samo desni klik na DBF fajl open with pa idi na choose program i odaberi access. DBF fajlovi mogu da se otvore, importuju, linkuju direktno u access-u, ne treba ti nikakva konekcija...
Za Oracle database .dbf je legitimna ekstenzija http://searchoracle.techtarget...xtension-of-an-Oracle-database
Pitanje je alata. Postavljač teme će morati da se potrudi i nabavi alat koji otvara taj fajl ili eventualno da zakači fajl, kako bi mu neko uradio konverziju.
Oracle tabelama mozes da pristupis iz Access-a, samo preko ODBC-a, Na Oracle sajtu mozes da pronadjes ODBC driver za Access, koji je oko 1Gb, uz silna podesavanja
OS-a uspeo sam da uradim Link ka Oracle tabelama.
Iz accessa mozes pristupati svim oracle tablicama, viewima .... itd
naravno ako je oracle baza dignuta - aktivna , islo bi to ovako
dio koda koji je u accessu ispisivao sve postojece tabele .... iz oracle baze iz odredjene seme
TRT = "Driver={Microsoft ODBC for Oracle}; Server=" + serv + "; Uid=" + loz + "; Pwd=" + pas
Dim wstemp As Workspace
Dim dbtemp As Database
Dim rstemp As Recordset
Set wstemp = DBEngine.Workspaces(0)
Set dbtemp = wstemp.OpenDatabase("", True, True, TRT)
sqlupit = "select * into trt1 from " + loz + "_fkpr"
Set rstemp = dbtemp.OpenRecordset("select * from all_objects", dbOpenDynaset, dbSQLPassThrough)
If pcek = -1 And tcek = -1 And scek = -1 Then
rstemp.MoveFirst
Do While Not rstemp.EOF()
imeow = rstemp.Fields(0)
If imeow = loz Then
imetabele = rstemp.Fields(1)
If rstemp.Fields(3) = "TABLE" Then
brtab = brtab + 1
End If
If rstemp.Fields(3) = "VIEW" Then
brview = brview + 1
End If
If rstemp.Fields(3) = "SYNONYM" Then
brsyn = brsyn + 1
End If
If rstemp.Fields(3) = "TABLE" Or rstemp.Fields(3) = "VIEW" Or rstemp.Fields(3) = "SYNONYM" Then
aa = aa + rstemp.Fields(3) + ":" + imetabele + ";"
End If
End If
rstemp.MoveNext