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
