Existenzprüfung von Tabellen.. bizzl komplizierter.

[Albi]

Ich würde das erst gar nicht über SQL versuchen.

Hier mal meine Variante: (ohen Löschen)

Code:

try
  If Not DirectoryExists(ExtractFilePath(ParamStr(0))+'Database') Then //überprüft ob Ordner schon existiert
    if Not CreateDir(ExtractFilePath(ParamStr(0))+'Database') Then //Erstell Ordner
      Application.MessageBox('Der Ordner konnte nicht erstellt werden', 'Fehler', 64);
  Form2.Table2.TableName:= 'DataBase\'+Form2.BName.Text; //Zuweisung vom TableName
  Form2.Table2.TableType:= ttParadox; //Zuweisung der Table Art
  Dir:= ExtractFilePath(ParamStr(0))+Table2.Name;
  IF NOT FileExists(Dir) THEN BEGIN //Prüfung ob DB schon existiert
    WITH Table2 DO BEGIN //wenn nicht wird sie erstellt
      WITH fielddefs DO BEGIN
        clear;
        ....;
        ....;
       END;
      createTable;
    END;
    end;
  except
end;

Du kannst das ja ein wenig abwandeln und sagst, wenn Table bereits vorhanden, dann lösche sie oder was auch immer passieren soll

Zum löschen versuch mal folgendes:

Alter Table Drop "TableName"