ABSTable und FieldDefs.Add()

[NoGAD]

Hallo,

ich habe vor zu einer bestehenden Tabelle ein Feld hinzuzufügen.

Leider bekomme ich es mit der TABSTable Komponente nicht hin.
Irgendwo habe ich einen logischen Fehler.


Mein Code:

Code:

      Table.Close;
        { Wenn Tabellenfeld nicht existiert }
        if Table.FieldDefs.IndexOf( 'neues_testfeld' ) = - 1 then
          try
            Table.FieldDefs.Add( 'neues_testfeld', ftstring, 5, false );
          except
            showmesage('Ein Fehler trat auf.' );
            Exit;
          end;
        { Wenn Tabellenfeld nicht existiert }
      Table.Open;

Das neue Feld taucht einfach nicht auf.
Ein Table.FieldDefs.Update; hilft auch nicht vor Table.Open;

Ich bin ratlos.

LG Mathias

[scrat1979]

Frage: Wird der Code überhaupt ausgeführt (springt der Debugger in den IF-Block)?

Falls es nicht funktioniert dann mach es mit einem SQL-Statement über ein TABSQuery. Ich mache es damit und es funktioniert einwandfrei. Von den TABSTable-Komponenten lasse ich die Finger, bin mit SQL flexibler

Viel Erfolg!

EDIT: Schau mal hier...

[NoGAD]

Zitat von scrat1979:

Frage: Wird der Code überhaupt ausgeführt (springt der Debugger in den IF-Block)?

Falls es nicht funktioniert dann mach es mit einem SQL-Statement über ein TABSQuery. Ich mache es damit und es funktioniert einwandfrei. Von den TABSTable-Komponenten lasse ich die Finger, bin mit SQL flexibler

An einem SQL Befehl habe ich mich noch nie versucht.
Wie sähe der in meinem Beispiel bitte aus und muss ein RestructureFieldDefs dann auch ausgeführt werden?

LG Mathias.

[NoGAD]

Nun habe ich durch mehrere Tests folgendes erstellt:

Code:

          ABSQueryq.SQL.Text := 'ALTER TABLE ' + Table_Name + ' ADD (IF NOT EXISTS neues_testfeld VARCHAR(5) );';
          ABSQuery1.ExecSQL;

Aber die Spalte wird nicht im DBGrid angezeigt.



Es hat sich erledigt, ich hatte noch weiteren Code anhängig, welcher dagegen gearbeitet hatte.

[scrat1979]

Zitat von NoGAD:

Nun habe ich durch mehrere Tests folgendes erstellt:

Code:

          ABSQueryq.SQL.Text := 'ALTER TABLE ' + Table_Name + ' ADD (IF NOT EXISTS neues_testfeld VARCHAR(5) );';
          ABSQuery1.ExecSQL;

Aber die Spalte wird nicht im DBGrid angezeigt.



Es hat sich erledigt, ich hatte noch weiteren Code anhängig, welcher dagegen gearbeitet hatte.

Perfekt! Wollte gerade ein Beispiel posten Die Onlinereferenz von ABS ist übrigens echt gut. So als Tip bei zukünftigen Problemen.

[NoGAD]

Dankeschön.

Das Thema kann bitte als gelöst markiert werden. Ich weiß leider nicht, wie ich das machen kann.

[NoGAD]

Thema als offene Frage entfernt