|
|
|
|
| |
Database'deki Tabloların isimlerini almak |
|
| |
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
|
|
|
|
|
|
| |
29 Ekim 2007'den beri 24647 ziyaretçi (38797 klik)
Copyrigh(c)2007, Ali AKMAZ All right reserved
|
|
|
|
|
|
|
|
