Tabelle überschreiben

[ksh]

Ich mal wieder! :-D

Lasse eine Tabelle per ADO erzeugen. Nun ist es aber so, dass wenn die Tabelle schon vorhanden ist, eine Exception ausgeworfen wird. Gibt es einen Befehl, der es möglich macht, die Tabelle zu überschreiben?

Mein bisheriger Code:

Delphi-Quellcode:

// 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;

[marabu]

Hi.

Ein DROP TABLE könnte dir helfen.

Grüße vom marabu

[ksh]

hab das jetzt mal so ausprobiert:

Delphi-Quellcode:

        ADOQuery1.SQL.Text := 'DROP TABLE '+ TName;
        // 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;

die Logik stimmt ja - zuerst das ev. bereits vorhandene löschen (mit gleichem Namen), dann neues erzeugen. Er wirft aber immer noch die Exception aus...

[mikhal]

Da fehlt ein ExecSQL nach dem "Drop Table"

Grüße
Mikhal

[ksh]

Danke! Klappt mal wieder alles perfekt durch euch! :thumb:

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

[marabu]

Hallo Leute,

noch besser: vor dem Löschen prüfen, ob die Tabelle existiert:

Delphi-Quellcode:

function TableExists(conn: TAdoConnection; tableName: String): Boolean;
var
  s: TStrings;
begin
  s := TStringList.Create;
  conn.GetTableNames(s);
  Result := s.IndexOf(tableName) >= 0;
  s.Free;
end;

Grüße vom marabu

[ksh]

hey! bin gerade am ausprobieren.

aber leider mache ich was bei der Funktion falsch. Er gibt immer an, dass er die Parameter nicht identifizieren kann - also die Connection und den String.

kann ich denn auch eine solch ähnliche Funktion für eine Spalte der Tabelle schreiben?

[marabu]

Guten Morgen.

Welche Delphi Version verwendest du? Lässt sich der Code bei dir nicht übersetzen oder erhältst du einen Laufzeitfehler?

Delphi-Quellcode:

function FieldExists(conn: TADOConnection; const tableName, fieldName: String): Boolean;
var
  s: TStrings;
begin
  s := TStringList.Create;
  conn.GetFieldNames(tableName, s);
  Result := s.IndexOf(fieldName) >= 0;
  s.Free;
end;

Grüße vom marabu

[ksh]

Ich verwende Delphi 7 professional.

Der Code lässt sich nicht übersetzen und es wir als Fehler ausgegeben:
Undefinierter Bezeichner: TADOConnection

[marabu]

Mein Code geht davon aus, dass ihm eine existierende ADOConnection übergeben wird. Wie arbeitest du denn so ganz ohne Connection?

marabu

[ksh]

ich arbeite schon mit einer Connection und ich übergebe sie auch richtig. Nur leider bringt er ja die Fehlermeldung nicht in dem Teil vom Code, sondern bei der Definition der Funktion

Delphi-Quellcode:

function TableExists(conn: TadoConnection; tableName: String): Boolean;

und mir fällt gerade auf, dass er dies bei allen ADO-Elementen macht - ich kann also auch keine Querys übergeben...

[marabu]

Hast du denn die Unit ADODB eingebunden, in der TADOConnection deklariert ist?

marabu

[ksh]

manchmal sieht man den Wald vor lauter Bäumen nicht!

Danke! daran hats gehakt!