|
Database'deki Tabloların isimlerini almak
'!!!!!DAO360.DLL GEREKIR!!!!!!!
Dim MyDb As Database, mYrS As Recordset
Dim tdf As TableDef, I As Integer
Set MyDb = DBEngine.Workspaces(0).OpenDatabase(App.Path & "Veritabani.mdb")
For I = 0 To MyDb.TableDefs.Count - 1
MsgBox MyDb.TableDefs(I).Name
Next I
mYrS.Close
MyDb.Close
|
