landwehr - Do 11.11.10 15:04
Titel: IBO Insert

---

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

Martok - Do 11.11.10 18:29

---

Hallo!

Bitte verwende für Quellcode die entsprechenden [delphi]-Tags, dann wird er "schöner" dargestellt als im Fließtext. Beispiel:

Wird:


Ansonsten: Schon durchgesteppt? Wird überhaupt was gefunden? Vergleich auf True [http://www.delphi-treff.de/tutorials/objectpascal/programmierung-mit-boolean-werten/typische-anfaengerfehler/] schon mal berichtigt?

Viele Grüße,
Martok