Existiert ein Feldname einer TQuery ?

[spacewolf]

kann man eigendlich feststellen ob ein bestimmter Feldname in der TQuery Existiert.
In der Registry kann man z.B. per
registry.valueexists('feld') ermitteln ob eine value existiert. Geht das auf per

TQuery.ValueExists('feldname') ???

euer Andreas

[dfried]

Du könntest es mit Query.FieldList.Find('Feldname') machen, wenn das Result NIL ist, hat er ein entsprechendes Feld nicht in der Query gefunden.

[marabu]

Hallo Andreas,

musst du fürchten, dass sich der Tabellenaufbau zwischen zwei Programmstarts verändert hat? In dem Fall solltest du zu Beginn des Programms prüfen, dass der Aufbau deinen Erwartungen entspricht. Das geht mit den Methoden der Database-Komponente: GetTableNames() und GetFieldNames().

Grüße vom marabu

[eddy]

Hallo spacewolf,

Delphi-Quellcode:

if Query1.FindField('Fldname') = nil then begin
  // Feld fehlt
end;

mfg
eddy

[spacewolf]

danke Leute das funzt super !!!

[joehd]

Aber wie gebe ich denn dann an in welcher Tabelle er das Feld suchen soll ?

[Delphi.Narium]

Delphi-Quellcode:

query1.sql.text := 'select * from InDerTabelleWirdDasFeldGesucht';
query1.open;
if Query1.FindField('Feldname') = nil then begin
  // Feld fehlt
end;

[joehd]

Habe es jetzt so gelöst

Code:

Procedure Tform1.UpgradeBetreiber;
var Tabname : String;
begin

Try
  ztable1.TableName := 'Betreiber';
  Tabname := ztable1.TableName;
  ztable1.Active := true;
  if ztable1.Fields.FindField('Webseite') = nil
      then
      Begin // Feld erzeugen
        zquery1.SQL.Text := 'ALTER TABLE '+Trim(TABNAME)+' ADD COLUMN Webseite TEXT'+ ';';
        zquery1.ExecSQL ;
      End;

  if ztable1.Fields.FindField('Support') = nil
      then
      Begin // Feld erzeugen
        zquery1.SQL.Text := 'ALTER TABLE '+Trim(TABNAME)+' ADD COLUMN Support TEXT'+ ';';
        zquery1.ExecSQL ;
      End;

Ztable1.active := false;
except

End;
end;

[joehd]

Zitat von Delphi.Narium:

Delphi-Quellcode:

query1.sql.text := 'select * from InDerTabelleWirdDasFeldGesucht';
query1.open;
if Query1.FindField('Feldname') = nil then begin
  // Feld fehlt
end;

Danke das ist auch Cool !und wieder so einfach wenn man drauf kommt ...

[himitsu]

Nahezu jedes DBMS bietet irgendwie Zugriff auf virtuelle Tabellen mit Datenbankinformationen.

für MS Access z.B.
SELECT NOT EXISTS(SELECT * FROM sys.columns WHERE name = 'columnName' AND object_id = OBJECT_ID('tableName'))

Viele bieten aber inzwischen auch "allgemeine" im SQL standardisierte VIEWs mit Zugriff auf die systemeneigenen Daten.
Hierfür wäre das z.B. information_schema.columns
https://www.mssqltips.com/sqlservert...schemacolumns/
https://www.postgresql.org/docs/9.5/...a-columns.html