Create Table mit Firebird und ZEOS, wie richtig machen

[Jens Hartmann]

Hallo zusammen,

ich hab ml wieder eine Frage zum erstelle von Tabellen während der Laufzeit. Es ist kein Problem gewesen, für mich dieses zu realisieren. Allerdings verstehe ich es noch nicht so richtig, wie ich einen PK inkl. Trigger und Generator anlege und vorallem wie ich vorher prüfen kann, ob die Tabelle vieleicht schon existiert. Ich habe über die DR und DP schon gesucht, allerdings noch nicht mit dem richtigen Erebnis.

Hier habe ich zwar einen Thread gefunden der dies beschreibt, aber so richtige weiß ich nicht ob das das Richtige ist.
Firebird
Ich möchte während dem Programm eine Tabelle erstellen, die folgende Eigenschaften hat, und vorher allerdings prüfen, ob Sie eventuell schon vorhanden ist.

Code:

Tabellenname "AREA" FELD1 "ID" FELD2 BEREICH

Das erstellen, habe ich folgdermaßen realisiert.
  Qry_Create.SQL.Text := 'CREATE TABLE AREA (ID integer, Bereich VarChar(50)'

Delphi-Quellcode:

var 
  SL: TStrings; 
  index: Integer; 
begin 
  SL := TStringList.Create; 
  try 
    DBCon.GetTableNames(SL, False);

Jetzt die Frage, wie gehe ich jetzt da mit weiter vor. Wie erstellen ich den Trigger und GEN richtig. Wie prüfe ich richtig ob die Table schon vorhanden ist. Gibt es irgenwie dazu ein Tutorial für ZEOS und Firebird, wo das erklärt wird.

Danke schon mal

Gruß Jens

[DeddyH]

Ich möchte Dir die Firebird-FAQ ans Herz legen. U.a. findet sich dort auch dieser Artikel: How to create a table only if it does not exist?

Hth

[Jens Hartmann]

Hallo DeddyH,

danke erstmal für die schnelle Hilfe. Die Seite kenne ich schon, und die Funktion habe ich auch schon versucht. Allerdings, bekomme ich bei folgendem Code eine Fehlermeldung zurück.

Delphi-Quellcode:

Qry_CreateTableArea.SQL.Text :=
'EXECUTE BLOCK AS BEGIN if (not exists(select * from AREA where rdb$relation_name = "EMPLOYEE")) then execute statement "CREATE TABLE AREA ( ID Integer, BEREICH String );"';

Gruß Jens

[DeddyH]

Da fehlt auch zumindest das END zum AS BEGIN.

[Jens Hartmann]

Ja, richtig. Ist trotdem nicht besser. Gibt es denn nicht irgendwie einen Compiler, der mir das wie bei einem Delphi-Code anzeigt, wenn da was noch nicht stimmt.

Ich habe irgendwie immer Problem mit den Codeteilen SQL.

Gruß Jens

[DeddyH]

Besorg Dir doch einfach die Personal von IBExpert, die nimmt Dir schon einiges an Arbeit ab (z.B. Codegenerierung für Metadaten).

[Jens Hartmann]

Hab ich, damit erstell ich auch bislang meine Tabellen. Allerdings, wollte ich das erstellen der Tabellen auch über die Aplication realisieren, um gewisse Änderungen oder Neuerungen in die DB zu integrieren.

Mein Problem ist, die Funktion, wie die Table erstellt wird, finde ich ja scheinbar unter DLL im Table Explorer. Allerdings, komme ich nicht so richtig damit klar, diesen Code in Delphi zu integrieren.

Gruß Jens

[DeddyH]

Es gibt doch da auch die schöne Funktion "Metadaten extrahieren" oder so ähnlich, die müsste auch in der Personal verfügbar sein. Damit wird Dir ein komplettes DB-Script erstellt samt aller Schlüssel. Das solltest Du Dir mal ansehen.

[hoika]

Hallo,

im obiegn Link steht doch asudrücklich

and you can't use IF outside of PSQL, you can use EXECUTE STATEMENT in PSQL.

PSQL = Stored Procedure

Aber

SQL-Code:

select 1 from rdb$relations 
where rdb$relation_name = 'EMPLOYEE')

Das ist eine normale Abfrage und ergibt 1, falls die Tabelle existiert.


Analog

SQL-Code:

Select Count(*) From RDB$Triggers
Where RDB$Trigger_Name='MyTriggerName'

Hier mal Count(*)

Analog hierzu die Generatoren

Tabelle RDB$GENERATORS
FeldName RDB$GENERATOR_NAME


Die RDB$-Tabellen sind übrigens System-Tabellen,
die sich auch unter dem oben erwähnten IBExpert anzeigen lassen
und gehören zum sogenannten Schema der Datenbank.


Heiko

[DeddyH]

Du musst aber auch bis zum Ende lesen

Zitat:

This is fine, but now it seems you need to create a special stored procedure for this. Well, we use another new feature: EXECUTE BLOCK to make it a single statement:

SET TERM !! ;
EXECUTE BLOCK AS BEGIN
if (not exists(select 1 from rdb$relations where rdb$relation_name = 'EMPLOYEE')) then
execute statement 'create table employee ( id integer );';
END!!
SET TERM ; !!


Those SET TERM statements are only needed if you work from an administration tool like isql or FlameRobin. If you run it from your application code, just send the EXECUTE BLOCK block as a single statement.