[SOLVED} SQLite Zeos Update

[Pe3s]

@zvoni The select code will reload the database but will not select the edited line

[Zvoni]

@zvoni The select code will reload the database but will not select the edited line

And you didn't read the posts.
I'm talking about your general SQL-Statement.
Don't use SELECT * FROM

Everything else like in your Post 8 should still work

And in Post 10 i told you how to autoselect the changed Row, even if the Grid gets reloaded

[Pe3s]

@Zvoni It seems easy to remember the id, update the database, reload the database and restore the remembered id. Only with the implementation is worse, lack of knowledge.But there are willingness to learn.

[Zvoni]

Aircode

Code: Pascal  [Select][+][-]

1. Var MyID:Integer;
2. //Later
3. ZQuery1.SQL.Text:='SELECT ID, Opis, Link, Kategoria, E-Mail FROM base';
4. //Load Result into DBGrid
5.  
6. // Later
7. MyID:=ZQuery1.FieldByName('ID').AsInteger;
8. ZQuery1.Edit;
9.   ZQuery1.FieldByName('Opis').AsString := LabeledEdit1.Text;
10.   ZQuery1.FieldByName('Kategoria').AsString := LabeledEdit2.Text;
11.   ZQuery1.FieldByName('E-Mail').AsString := LabeledEdit3.Text;
12.   ZQuery1.Post;
13.   ZQuery1.ApplyUpdates;
14.   MessageDlg('Informacja','Zapisano zmiany!', mtinformation, [mbOK], 0);
15. //Now if you reload
16. DBGrid1.DataSource.Dataset.Refresh;
17. DBGrid1.DataSource.Dataset.Locate('ID',MyID,[loCaseInsensitive]);
18.  

[miab3]

In the case of ZEOS, it is enough to:

Code: Pascal  [Select][+][-]

1. ZQuery1.SQL.Text:='SELECT ID, Opis, Link, Kategoria, E-Mail FROM base'; // or 'select * from base'
2. ZQuery1.Open;
3. ...
4. ZQuery1.Edit;
5. ZQuery1.FieldByName('Opis').AsString := LabeledEdit1.Text;
6. ZQuery1.FieldByName('Kategoria').AsString := LabeledEdit2.Text;
7. ZQuery1.FieldByName('E-Mail').AsString := LabeledEdit3.Text;
8. ZQuery1.Post;
9. MessageDlg('Informacja','Zapisano zmiany!', mtinformation, [mbOK], 0);

Michał

[Zvoni]

Code: Pascal  [Select][+][-]

1.  // or 'select * from base'
2.  

DON'T!
Period!

[miab3]

What now?:

Code: Pascal  [Select][+][-]

1. ZQuery1.SQL.Text:='SELECT ID, Opis, Link, Kategoria, E-Mail FROM base'; // or 'select * from base'
2. ZQuery1.Open;
3. ...
4. ZQuery1.Edit;
5. ZQuery1.FieldByName('Opis').AsString := LabeledEdit1.Text;
6. ZQuery1.FieldByName('Kategoria').AsString := LabeledEdit2.Text;
7. ZQuery1.FieldByName('E-Mail').AsString := LabeledEdit3.Text;
8. ZQuery1.Post;
9. MessageDlg('Informacja','Zapisano zmiany!', mtinformation, [mbOK], 0);
10. ...
11. ZQuery1.Edit;
12. ZQuery1.FieldByName('tel').AsString := LabeledEdit4.Text;
13. ZQuery1.Post;
14. ???

Michał

[Zvoni]

What now?:

Code: Pascal  [Select][+][-]

1.  // or 'select * from base'
2.  

Michał

Don't advise/teach people to use "SELECT * FROM" in Production-Code
It's a ticking time-bomb

[Pe3s]

 Thank you very much for your help. Have a nice day. Greetings