Tabelle überschreiben

[McLane]

du musst aber aufpassen: Sollte die Tabelle noch nicht existieren gibt dir das erste Löschen eine Exception.
Schachtel das ganze ein:

Delphi-Quellcode:

        try
          DOQuery1.SQL.Text := 'DROP TABLE '+ TName;
          DOQuery1.ExecSQL;
        except
          // sollte die Tabelle nicht existieren die Exception abfangen.
        end;
          // DDL-Statement in Property SQL schreiben
        ADOQuery1.SQL.Text := cCreateTabelle;
        // DDL-Statement ausführen
        ADOQuery1.ExecSQL;
        // DML-Statement zur Anzeige der Tabellendaten in die Property SQL schreiben
        ADOQuery1.SQL.Text := 'SELECT * FROM '+TName;
        // DML-Statement ausführen
        ADOQuery1.Open;