Firebird und Tabelle löschen?

[hronny]

Ich versuche schon krampfhaft es hinzubekommen eine Tabelle aus einer Datenbank zu löschen. Klar eigentlich kein Problem, Problem nur ich weis doch nicht ob die Datenbank existiert!? Was bei MySQL prima funktioniert ist einfach

SQL-Code:

DROP TABLE IF EXISTS tabelle;
CREATE TABLE tabelle (...)

Aber den Ausdruck IF EXISTS kennt Firebird nicht. Wenn die Tabelle vorhanden ist, geht es mit DROP TABLE tabelle, aber wenn sie nicht da ist, gibt es einen Fehler. Oder umgekehrt, wenn die Tabelle vorhanden ist und ich mache ein CREATE TABLE dann hat er dazu auch keine Lust, verständlich.

[sancho1980]

kann man den fehler nicht irgendwie abfangen?

[Jelly]

Mittels

SQL-Code:

select rdb$relation_name from rdb$relations where not (rdb$relation_name like 'RDB$%')

kriegst du eine Liste deiner Tabellen in deiner Datenbank. Vielleicht kannst Du damit was anfangen.

Nachtrag:
Besser noch so:

SQL-Code:

if exists (select 1 from RDB$RELATIONS where RDB$RELATION_NAME='DeineTabelle')
then
drop table DeineTabelle;

[hronny]

Nehmen wir mal an meine Tabelle heißt >main<. Dann sieht mein Code so aus:

Delphi-Quellcode:

SQL.Add('if exists (select 1 from RDB$RELATIONS where RDB$RELATION_NAME=''main'') ');
SQL.Add('then ');
SQL.Add('drop table main;');

da gibt es ein >Invalid token<

[marabu]

Hi folks.

Anstelle von IF ... DROP TABLE ... CREATE TABLE (...) könntet ihr es auch so machen:

SQL-Code:

RECREATE TABLE test (...)

Das DDL Statement RECREATE ist das Firebird Äquivalent zu dem MYSQL-Code aus Beitrag #1.

Grüße vom marabu

[hronny]

mmh, naja das hier funktioniert Problemlos;

Delphi-Quellcode:

SQL.Add('CREATE TABLE main ('+
  'BOOKNO CHAR(6), '+
  'TITLE CHAR(50) COLLATE ISO8859_1, '+
  'EUROPUB CHAR(50) CHARACTER SET ISO8859_1 COLLATE FR_FR);');

hingegen das mit einer Fehlermeldung; Token unknown - line 1, char 0 RECREATE

Delphi-Quellcode:

SQL.Add('RECREATE TABLE main ('+
  'BOOKNO CHAR(6), '+
  'TITLE CHAR(50) COLLATE ISO8859_1, '+
  'EUROPUB CHAR(50) CHARACTER SET ISO8859_1 COLLATE FR_FR);');

[marabu]

Dann gibt es nur zwei Erklärungen: Entweder ich will dir einen Bären aufbinden oder du verwendest einen Parser, der den aktuellen Sprachumfang nicht beherrscht. Was denkst du?

marabu

[MrSpock]

Hallo marabu,

ich schließe mal die Bärenversion aus. :mrgreen: Die Frage aber bleibt, an was es liegt. Prüft die Zeos Komponente vorher tatsächlich den SQL String? Wahrscheinlich doch nicht, oder? Ist die embedded Version von FB eingeschränkt? Auch hier: wohl eher nicht. Wer also erzeugt die Fehlermeldung?

[marabu]

Hallo Albert,

ältere Versionen von IBExpert (z.B. Version 2.5) hatten Probleme mit dem RECREATE Statement und lieferten genau diese Fehlermeldung - wenn ich mich richtig erinnere. SQL.Add() in Verbindung mit ZEOS macht auch mich stutzig - jetzt wo du es geschrieben hast.

marabu

[hronny]

Hab es auch mit SQL.Text:='RECREATE ...' versucht, bleibt aber das gleiche. Die Komponente hab ich von hier geladen: Download