Hallo,
ich habe folgenden Code und benutze IBO Komponenten (TIB_Connection und TIBOQuery)
UpdQry.SQL.Clear;
UpdQry.Sql.Add('insert into TBL_REEMPFAENGER (REEMPFAENGERNR, PATIENTNR, RECHNUNGSEMPFAENGER , '
+ 'EMPFAENGERANREDE, EMPFAENGERTITEL, EMPFAENGERVORNAME, '
+ 'EMPFAENGERNACHNAME, EMPFAENGERSTRASSE, EMPFAENGERLKZ, '
+ 'EMPFAENGERORT, EMPFAENGERBRIEFANREDE, VERWANDT, EMPFAENGERTELEFON1, '
+ 'EMPFAENGERTELEFON2, EMPFAENGERZUSATZ , EMPFAENGERPLZ ) '
+ 'VALUES (Gen_ID(GEN_TBL_REEMPFAENGER,1), :PATIENTNR, :RECHNUNGSEMPFAENGER , '
+ ':EMPFAENGERANREDE, :EMPFAENGERTITEL, :EMPFAENGERVORNAME, '
+ ':EMPFAENGERNACHNAME, :EMPFAENGERSTRASSE, :EMPFAENGERLKZ, '
+ ':EMPFAENGERORT, :EMPFAENGERBRIEFANREDE, :VERWANDT, :EMPFAENGERTELEFON1, '
+ ':EMPFAENGERTELEFON2, :EMPFAENGERZUSATZ , :EMPFAENGERPLZ) ');
Query.First;
While Not (Query.eof = True) do begin
UpdQry.ParamByName('REEMPFAENGERNR').AsInteger := REEMPFAENGERNR;
UpdQry.ParamByName('PATIENTNR').AsInteger := Query.FieldByName('PATIENTNR').AsInteger;
UpdQry.ParamByName('RECHNUNGSEMPFAENGER').AsString := Query.FieldByName('RECHNUNGSEMPFAENGER').AsString;
UpdQry.ParamByName('EMPFAENGERANREDE').AsString := Query.FieldByName('EMPFAENGERANREDE').AsString;
UpdQry.ParamByName('EMPFAENGERTITEL').AsString := Query.FieldByName('EMPFAENGERTITEL').AsString;
UpdQry.ParamByName('EMPFAENGERVORNAME').AsString := Query.FieldByName('EMPFAENGERVORNAME').AsString;
UpdQry.ParamByName('EMPFAENGERNACHNAME').AsString := Query.FieldByName('EMPFAENGERNACHNAME').AsString;
UpdQry.ParamByName('EMPFAENGERSTRASSE').AsString := Query.FieldByName('EMPFAENGERSTRASSE').AsString;
UpdQry.ParamByName('EMPFAENGERLKZ').AsString := Query.FieldByName('EMPFAENGERLKZ').AsString;
UpdQry.ParamByName('EMPFAENGERORT').AsString := Query.FieldByName('EMPFAENGERORT').AsString;
UpdQry.ParamByName('EMPFAENGERBRIEFANREDE').AsString := Query.FieldByName('EMPFAENGERBRIEFANREDE').AsString;
UpdQry.ParamByName('VERWANDT').AsString := Query.FieldByName('VERWANDT').AsString;
UpdQry.ParamByName('EMPFAENGERTELEFON1').AsString := Query.FieldByName('EMPFAENGERTELEFON1').AsString;
UpdQry.ParamByName('EMPFAENGERTELEFON2').AsString := Query.FieldByName('EMPFAENGERTELEFON2').AsString;
UpdQry.ParamByName('EMPFAENGERZUSATZ').AsString := Query.FieldByName('EMPFAENGERZUSATZ').AsString;
UpdQry.ParamByName('EMPFAENGERPLZ').AsString := Query.FieldByName('EMPFAENGERPLZ').AsString;
UpdQry.ExecSQL;
Leider ist der Datensatz nicht in der Tabelle.
Hat jemand eine Idee warum nicht.
Danke im voraus.
Walter
