ich dachte es gibt schon etwas fertiges.
Was ist schon fertig ?
Prinzipiell brauchst Du doch nur über die einzelnen Tabellen zu wandern. Das geht so : Dataset anlegen und auf die Systemtabelle der Table-Names zugreifen. Also z.B.:
Müsste doch eigentlich so gehen.
Geht noch einfacher: Meiner Erfahrung nach verfügen alle
DB-Connect-Komponenten über die Methode GetTableNames, die gewöhnlich eine Stringliste als Parameter erwarten und ein Boolean, der angibt, ob auch Systemtabellen übergeben werden sollen. Das ist dann mit einer Zeile Code erledigt:
Delphi-Quellcode:
IbConMain.GetTableNames(ListBox1.Items,False,False); // für IbDac von DevArt
FIBCon.GetTableNames(ListBox1.Items,False); // für FibPlus von Devrace
DatMod.ZeosCon.GetTableNames('',ListBox1.Items); // für Zeos
// usw.