Hallo,
ich möchte mit einem ungebundem ADO-Control sämtliche Tabellennamen aus einer verbundenen Accessdatenabnk herausbekommen.
Leider habe ich keine Funktion gefunden, die mir die Tabellenamen zurück gibt.
Kann mir jemand helfen?
Gruß Carlos
Quick and dirty - öffne ein Recordset (Data-Control…) mit folgender SQL:
SELECT Name
FROM MSysObjects
WHERE Type=1 AND Flags=0
ORDER BY Name
Ansonsten ist das ein Job für ADOX:
Dim Cat As New ADOX.Catalog, Tbl As ADOX.Table
Cat.ActiveConnection = "..."
For Each Tbl In Cat.Tables
Debug.Print Tbl.Name
Next Tbl
Set Cat = Nothing
Gruß aus dem Norden
Reinhard Kraasch (http://www.kraasch.de - VB(A) Tipps & Tricks)
Hi Reinhard,
erst mal vielen Dank für den schnellen und guten Tip. Die Geschichte funktioniert einwandfrei.
Was mich nun nur interesieren würde, wo kann man Informationen bekommen was die ADOX denn so alles kann. Leider bietet VB auch keine Hilfe dazu.
Vieleicht kannst du mir ja auch hier weiter helfen.
Auf jeden Fall vielen Dank für deine Mühen.
Gruß Carlos
Du solltest irgendwo eine ADOxxx.CHM-Hilfedatei haben. (xxx ist die jeweilige Versionsnummer, z.B. 210…) Wenn nicht, dann vielleicht mal die aktuellste Version der MDAC nachinstallieren, da sollte sie dabei sein.
Gruß aus dem Norden
Reinhard Kraasch (http://www.kraasch.de - VB(A) Tipps & Tricks)