In einer Existierenden Firebird Table ein feld ergänzen

[joehd1]

Hallo
Also meine Idee ist ich möchte schauen ob meine SQl Tabellen auch alle Felder haben

Da hatte ich folgende Idee

Ich schreibe einen Funktion mit folgendem Inhalt

Code:

Function tsqldbform.Checkdatab_field(Tabelle:TIBQuery;Tabname:String;Feldname:String;feldtyp:String;Feldsize:integer;notwendig:Boolean):Boolean;
var _feldtyp  :tfieldtype;
    sqlbastel : String;
Begin
   if Feldtyp = 'Integer'   then _feldtyp  := ftInteger;
   if Feldtyp = 'String'    then _feldtyp  := ftString;
   if Feldtyp = 'Boolean'   then _feldtyp  := ftBoolean;
   if Feldtyp = 'TimeStamp' then _feldtyp  := ftdatetime;
   if Feldtyp = 'Unbekannt' then _feldtyp  := ftunknown;
   if Feldtyp = 'Float'     then _feldtyp  := ftfloat ;


// Das ist meine neue Check routine aber hat ja nix mit dem Fehler zu tun 
  if Tabelle.FindField(Feldname)=nil then 
     begin
      Showmessage('Feld nicht vorhanden !');
     end;
 try

  // schauen nach dem Typ des Feldes mit dem Feldnamen Feldname
 if   tabelle.FieldDefs.Find(Feldname).DataType  = _feldtyp then
      Result := true;
 Except
  on EDatabaseError do
  Begin // Das Datenbankfeld neu erzeugen
      showmessage('Datenbank Feld:'+Feldname + ' nicht vorhanden ! / Wird erzeugt ! ');
      tabelle.FieldDefs.Add(Feldname,_feldtyp,feldsize,notwendig);
      sqlbastel := 'alter table ' + Trim(Tabname) +  ' add ' + Trim(Feldname) + ' ' + Trim(Feldtyp);
      Tabelle.SQL.Text := sqlbastel;  // Hier kommt dann der Fehler ! :-( 
      Tabelle.ExecSQL; // 
      TAbelle.SQL.Clear;
      ibmaintransaction.CommitRetaining;
   end;

So nun kommt beim SQL Monitor folgendes

00:06:05 |
[Application: test ]
testtabelle: [Execute] alter table TEST add FELD4 Integer

00:06:05 |
[Application: test ]
[Error] -607 335544351 unsuccessful metadata update
STORE RDB$RELATION_FIELDS failed


Ich gehe davon aus das der SQl String stimmt a sieht er hier gut aus und wenn ich ihn in interbase Konsole eingebe dann geht er auch !

Aber was ist falsch ... das ich die Prüfung auf exist des Feldes besser machen kann ist mir bekannt. Aber daran liegt es ja nicht

Kann mir jemand helfen ?