Firebird/Interbase: TIBDataSet: kann keine Daten einfügen

[Ralf Stehle]

Ist noch jemand interessiert an dem Thema ?

Ich habe glaube ich eine Lösung gefunden, um mit TIBDataSet alle Aktionen korrekt ausführen zu können:

Delphi-Quellcode:

DM.IBDataSet1.Close;

DM.IBDataSet1.SelectSQL.Text := 'Select * from UDat WHERE CAST(Untersuchungsdatum AS DATE) = CURRENT_DATE';
DM.IBDataSet1.InsertSQL.Text := 'INSERT INTO UDAT (UntersuchungsDatum, Uhrzeit, Untersuchung, Patient, Station, Untersucher, Abteilung) VALUES (:UntersuchungsDatum, :Uhrzeit, :Untersuchung, :Patient, :Station, :Untersucher, :Abteilung)';
DM.IBDataSet1.ModifySQL.Text := 'UPDATE UDAT SET UntersuchungsDatum=:UntersuchungsDatum, Uhrzeit=:Uhrzeit, Untersuchung=:Untersuchung, Patient=:Patient, Station=:Station, Untersucher=:Untersucher, Abteilung=:Abteilung WHERE ID=:OLD_ID';
DM.IBDataSet1.RefreshSQL.Text:= 'Select ID,UntersuchungsDatum, Uhrzeit, Untersuchung, Patient, Station, Untersucher, Abteilung from UDat WHERE ID=:ID';

DM.IBDataSet1.GeneratorField.Generator := 'GEN_UDAT';
DM.IBDataSet1.GeneratorField.IncrementBy := 1;

DM.IBDataSet1.Open;

Anscheinend muss für alle Aktionen eine SQL hinterlegt werden mit Parametern für jedes Feld, das geändert werden soll

Außerdem habe ich noch Generator-Anweisungen gefunden, dass endlich das AutoIncrement meines ID-Feldes funktioniert

Ich hoffe das ist jetzt der Stein der Weisen