Error while updating
lazarus / 16-Databases

----------------------------------------------------------------------
Weitentaaal · 2020-11-09 16:22

Hey Guy,

i get this Error when i am trying to update something in my Db
(SQLite)

code:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TStartUp.TxClientDblClick(Sender: TObject);Begin   TxClient.ReadOnly:=
False;   ZDaten.Left := TxClient.Left;   ZDaten.Top := TxClient.Top +
TxClient.Height;   dbExecute(dbSet, 'SELECT * FROM Sprachen WHERE ID =
24');   //Kunde:   ZDaten.Caption :=
Trim(dbSet.FieldByName(FeldD).AsString) + Trim(TxClient.Text); 
 wgrExecute(dbGer, 'SELECT * FROM Geraet WHERE KOMP=-1 AND ART=-1'); 
 ZDaten.Text1.Text := '';   ZDaten.Text2.Text := '';   If Not
dbGer.IsEmpty then Begin      ZDaten.Text1.Text :=
dbGer.FieldByName('Zubehoer2').AsString;      ZDaten.Text2.Text :=
dbGer.FieldByName('Zubehoer3').AsString;   End;   If ZDaten.ShowModal
= mrOK then Begin      wgrExecute(dbGer, 'SELECT * FROM Geraet WHERE
KOMP=-1 AND ART=-1');      If dbGer.IsEmpty then Begin       
 dbGer.Append;         dbGer.FieldByName('KOMP').AsInteger := -1;    
   dbGer.FieldByName('ART').AsInteger := -1;       
 //Riementriebeinstellungen uebernehmen         dbExecute(dbSet,
'SELECT * FROM SETTINGS');         dbGer.FieldByName('X1').AsFloat :=
dbSet.FieldByName('MinSPZ').AsFloat;       
 dbGer.FieldByName('Y1').AsFloat :=
dbSet.FieldByName('MinSPA').AsFloat;       
 dbGer.FieldByName('Z1').AsFloat :=
dbSet.FieldByName('MinSPB').AsFloat;       
 dbGer.FieldByName('X2').AsFloat :=
dbSet.FieldByName('KRSic').AsFloat;       
 dbGer.FieldByName('Y2').AsFloat :=
dbSet.FieldByName('NoVariabel').AsFloat;       
 dbGer.FieldByName('Z2').AsFloat :=
dbSet.FieldByName('CoilCalc').AsFloat;         dbGer.ApplyUpdates;   
 End;      dbGer.First;      dbGer.Edit;     
dbGer.FieldByName('Zubehoer2').text := Trim(ZDaten.Text1.Text);     
dbGer.FieldByName('Zubehoer3').text := Trim(ZDaten.Text2.Text);     
dbGer.ApplyUpdates;      SQLTransWGR.Commit;   End;End; 
is it because i append the updates twice ?

Am i missing something ?

thanks for every Help

----------------------------------------------------------------------
JanRoza · 2020-11-09 23:32

There should be a dbGer.Post before you can do the Applyupdate.

----------------------------------------------------------------------
Weitentaaal · 2020-11-10 08:30

You're right thanks  i just didn't think of it