Feldexistenz überprüfen

[needatip]

Hallo,
wie kann ich prüfen ob in einer Datenbanktabelle ein bestimmtes Feld bereits existiert ?
Danke für jede Hilfe.

[Robert_G]

Ist nicht die eleganteste Lösung, benötigt aber weder TTable, TDataSet - nur eine einfache Query.

Delphi-Quellcode:

Var
  i                                     : Integer;
Begin
  With Query Do
  Begin
    SQL.Text := Format(
      'SELECT t.*' + #10 +
      'FROM   %s t' + #10 +
      'WHERE  RowNum <= 1'
      , [Edit1.Text]);
    Execute;
    ListBox1.Clear;
    For i := 0 To pred(FieldCount) Do
      ListBox1.Items.Add(Fieldname(i));
  End;
End;

Wenn du Oracle benutzt kannst du auch diese Lösung benutzten (ADO Query):

Delphi-Quellcode:

  With Query Do
  Begin
    SQL.Text :=
      'SELECT t.Column_Name' + #10 +
      'FROM   All_Tab_Columns t' + #10 +
      'WHERE  t.Owner = :i_Owner And' + #10 +
      '       t.Table_Name = :i_Table';
    Prepared := True;
    Parameters.ParamByName('i_Owner').Value := 'SCOTT';
    Parameters.ParamByName('i_Table').Value := 'EMP';
    Execute;
    ListBox1.Clear;
    While Not Eof Do
    Begin
      ListBox1.Items.Add(adoquery1.FieldValues[0]);
    End;
  End;

[needatip]

Ich benutze eine Paradox-Tabelle.
Hab das 1. Beispiel versucht, komm aber nicht so ganz dahinter.
Möchte einfach nur z. B. prüfen ob das Feld 'Proforma' in der Tabelle x schon vorhanden ist.
Beim 1. Listin ist Fieldname kein def. Bezeichner.
Bitte nochmals um Hilfe, Danke.

[Robert_G]

Sorry, waren Eigenschaften einer TOracleQuery.
Das hier müsste mit der BDE-Query funktionieren.
p.s.: Die ListBox war nur zur Demo...

Edit1 enthält den Tabellenname, Edit2 das zu suchende Feld.

Delphi-Quellcode:

Var 
  i                                     : Integer; 
Begin 

  With Query Do 
  Begin 
    SQL.Text := Format( 
      'SELECT t.*' + #10 + 
      'FROM   %s t' + #10 + 
      'WHERE  RowNum <= 1' 
      , [Edit1.Text]); 
    Open; 
    For i := 0 To pred(FieldCount) Do
      If uppercase(Fields[i].FieldName) =   uppercase(Edit2.Text) then
      Begin
        ShowMessage('"' + Edit2.Text + '" gefunden...' );
        Break;
      End;
  End; 
End;

[needatip]

Ok Danke,
kannst Du mir bitte noch sagen, wo und wie ich meine Tabellennamen einsetze?
Also meine Tabelle heißt 'Bieter.db' und das Feld nach dem ich suche heisst 'Proforma'.
Tut mir leid, stell mich heute blöd an.

[Robert_G]

Zitat von GeorgeWNewbie:

Edit1 enthält den Tabellenname, Edit2 das zu suchende Feld.

Ersetze Edit1.Text mit deinem Tabellennamen und Edit2.Text mit deinem Feldnamen.

Hier kommt dann dein Code rein, der mit dem gefundenen Feld irgendwas machen soll:

Delphi-Quellcode:

  ...
      If uppercase(Fields[i].FieldName) =   uppercase(Edit2.Text) then
      Begin
        // Hier...
        ShowMessage('"' + Edit2.Text + '" gefunden...' );
        Break;
      End;
  ...

[needatip]

Vielen Dank, werd ich jetzt gleich mal ausprobieren.

[needatip]

Bie mir kommt dann noch die Fehlermeldung :
Ungültiger Feldname 'Rownum'

[Robert_G]

Dann gibt es diese Pseudospalte wohl nur in Oracle.
Sie sollte verhindern, dass mehr als ein Eintrag geholt wird.
Dann musst du es wohl so machen:

Delphi-Quellcode:

    ...
      'SELECT t.*' + #10 +
      'FROM   %s t'
    ...

Sorry, dass ich dir lauter fehlerhafte Vorschläge gemacht habe.
Ich arbeite nur mit Oracle, und ein paar Dinge sind halt immer DB-spezifisch...