[SQL] Feststellen, ob Feld existiert

[FBrust]

Hallo,

in diesem Thread wurde erläutert, wie man mit Delphi feststellt, ob ein Feld in einer Datenbanktabelle existiert.

Ich füge neue Felder über SQL-Skripte hinzu und wollte deshalb die Prüfung, ob ein Feld bereits existiert, in das SQL-Skript auslagern.

Weiß jemand, wie man mit SQL feststellt, ob ein Feld existiert?


Gruß
Frank

[mkinzler]

Ist einfach mit Hilfe der SYSTEM-Tabellen lösbar:

select RDB$FIELD_NAME from RDB$RELATION_FIELDS where RDB$RELATION_NAME = <Tabellenname>; Lefert alle Felder einet Tabelle

[FBrust]

Super, danke !

[FBrust]

Hmm,

schön und gut, dann erhalte ich eine Liste, die ich wieder durchsuchen muss.

Gibt es keinen direkteren Weg?

Mit

SQL-Code:

SQL.Text := 'SELECT COUNT (*) AS RECCOUNT FROM RDB$RELATIONS R ' +
            'WHERE R.RDB$RELATION_NAME = ' + QuotedStr(strTable);

kann ich feststellen, ob eine bestimmte Tabelle existiert und erhalte eine Integerwert der entweder 0 oder 1 enthält.

Sowas suche ich für ein einzelnes Feld in einer Tabelle.


Gruß
Frank

[dfried]

Na dann mach halt einfach noch eine AND-Bedingung hinten dran!

SQL-Code:

     select count(*) from RDB$RELATION_FIELDS 
     where RDB$RELATION_NAME = <Tabellenname>
     and RDB$FIELD_NAME = <Feldname>;

[mkinzler]

oder das Alter-Skript erweitern in z.B.

SQL-Code:

Alter table <tabellenname>' add ... where not exists (select RDB$FIELD_NAME from RDB$RELATION_FIELDS
     where RDB$RELATION_NAME = <Tabellenname>
     and RDB$FIELD_NAME = <Feldname>);

[FBrust]

Hallo,

funktioniert leider nicht mit

SQL-Code:

            SQL.Text := 'select count(*) from RDB$RELATION_FIELDS ' +
                        'WHERE (R.RDB$RELATION_NAME = ' + QuotedStr(strTable) +
                        ') AND (R.RDB$FIELDNAME = ' + QuotedStr(strField) + ')';

Die Fehlermeldung lautet: "Column does not belong to referenced table".



Gruß
Frank

[mkinzler]

Zitat von FBrust:

Hallo,

funktioniert leider nicht mit

SQL-Code:

            SQL.Text := 'select count(*) from RDB$RELATION_FIELDS ' +
                        'WHERE (R.RDB$RELATION_NAME = ' + QuotedStr(strTable) +
                        ') AND (R.RDB$FIELDNAME = ' + QuotedStr(strField) + ')';

Die Fehlermeldung lautet: "Column does not belong to referenced table".



Gruß
Frank

Es fehlt der ALIAS R beim Tabellenname RDB$RELATION_FIELDS

[FBrust]

So,

habs auch mit dem Vorschlag von mkinzler ausprobiert, allerdings scheint Firebird das where nicht so recht zu mögen.

Bei Ausführen von

SQL-Code:

ALTER TABLE TBLIPMAIN
ADD INTSCANID INTEGER
where not exists (select RDB$FIELD_NAME from RDB$RELATION_FIELDS
     where RDB$RELATION_NAME = TBLIPMAIN
     and RDB$FIELD_NAME = INTSCANID);

kommt die Fehlermeldung "Invalid token: where" .


Gruß
Frank

[FBrust]

Hallo,

Zitat von mkinzler:

Es fehlt der ALIAS R beim Tabellenname RDB$RELATION_FIELDS

Stimmt, danke für den Hinweis, kommt aber die gleiche Fehlermeldung ("Column does not belong to referenced table").



Gruß
Frank