Prüfen, ob Tabelle in DB vorhanden

[mjenke]

Hi, alle miteinander!

Kann mir jemand weiterhelfen? Ich will zur Laufzeit eine Tabelle in einer Datenbank dynamisch generieren - möchte vorher aber abfragen, ob diese Tabelle vielleicht schon existiert, um dann entsprechende Schritte einzuleiten.
Weiss jemand, wie ich prüfen kann, ob die Tabelle vorhanden ist?


Matthias

[MrSpock]

Hallo mjenke,

schau dir mal das Beispiel aus der OH an:

Delphi-Quellcode:

MyStringList := TStringList.Create;
try
  Session.GetTableNames('DBDEMOS', '*.db',False, False, MyStringList);
  { Tabellennamen in Liste einfügen }
  ListBox1.Items = MyStringList;
finally
  MyStringList.Free;
end;

Damit erhälst du alle vorhandenen Tabellen zu einem Alias.

Alternativ dazu kannst du den kompletten Dateinamen erzeugen (also inkl. Pfad) und mit FileExists aus SysUtils überprüfen, ob die Tabelle existiert.

Oder einfach Table.Open in einen try...except Block packen und bei einer exception überprüfen, welcher Fehler aufgetreten ist.