BITTE Rettet mich....
Ich muss Euch leider nocheinmal belästigen.
Ich habe nun alles durchsucht und keine Lösung gefunden, wenn man danach googelt, kommt zwar was, aber das hat mit meinem Problem nix zu tun.
Der Datenaufbau, eigentlich wie immer, soll heissen, so wie in anderen Projekten auch.
MYConnection<->SQLDataSet4<->SQLProvider4<->CDS4(TClientDataSet)
Ich mache eigentlich nix wie einen EDIT auf den CDS4,
ändere Zellinhalte, einen POST, damits in den SQLDataSet geschrieben wird einen APPLYUPDATES(-1).
und da passiert der Fehler. Verstehe ich nicht, denn das funktioniert doch immer so.
Hatte das auch mal im
DF gepostet, und weil es dann mal ging, hab ich es dort abgeschlossen. Fakt ist aber dass es nicht funktioniert.
Was hier im Forum unter dem gleichen Thema steht, ist für meinen Fall leider nicht zutreffend.
Mittlerweile hab ich
RAD Studio 2007 schon deinstalliert und wieder komlett neu installiert, und dann alle Updates gemacht.
Hat leider nix geholfen....
Hier nochmal der CodeSchnipsel:
Delphi-Quellcode:
with DataModul.DataModule1 do
begin
with SQLDataset4 do
begin
if Active then Active:=False;
SQL_string:='select ID, DeliveredQty, BruttoGewicht, Nettogewicht, '+
'Referenzgewicht, ReferenzStueckzahl '+
'from packingstructure where ID='+
IntToStr(ID)+'; ';
CommandText:=SQL_string;
Active:=True;
if RecordCount=1 then
with CDS4 do
begin
Active:=True;
Edit;
FieldByName('DELIVEREDQTY').Value:=anzahl_ist;
FieldByName('BRUTTOGEWICHT').Value:=brutto_e;
FieldByName('NETTOGEWICHT').Value:=netto_e;
FieldByName('REFERENZGEWICHT').Value:=stueckgewicht;
FieldByName('REFERENZSTUECKZAHL').Value:=referenzstueckzahl;
FieldbyName('ID').Value:=ID;
Post;
ApplyUpdates(-1); //<-TDBXError Commands out of sync
end
else
begin
ShowMessage('<> 1 Satz');
exit;
end;
Active:=False;
end;
end;
.. Ich werd noch verrückt hier...