Prüfen, ob Tabelle in DB vorhanden

[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.