SQLite3 Relational bases

[Sieben]

At line #9 you're trying to refresh a query that doesn't have a result set, thus the error (remember Open vs ExecSQL?). I guess you want to refresh the query that actually holds your result set from the table in question.

[Pe3s]

here is the code

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

1. procedure TForm1.Button3Click(Sender: TObject);
2.     begin
3.       if MessageDlg('Pytanie', 'Czy usunac', mtWarning, mbYesNo, 0) = mrYes then
4.       begin
5.         SQLQuery1.SQL.Text := 'DELETE FROM base WHERE id=:id';
6.         SQLQuery1.ParamByName('id').AsString := Form1.Caption;
7.         SQLQuery1.ExecSQL;
8.         SQLTransaction1.Commit;
9.         SQLQuery1.Refresh;
10.       end;
11.     end;  
12.  

[af0815]

After a ExecSQL nothing is open, so a Refresh here is complete false. On the other hand, there is nothing to Refresh after a Delete statement.

You can use Refresh if you use the correct Sql, Update, delete and insert SQL of a query. After Open the query, it is handling the insert, update, delete and select statement by itself. This is one point if you can use Refresh.

[JanRoza]

After the Commit first make sure that SQLQuery1.SQL.Text contains your select statement again and only then do the refresh.
Now you are refreshing a Delete statement, which is not what you want.

[Pe3s]

I made the record updates

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

1. SQLQuery1.SQL.Text := 'UPDATE ......';
2.  SQLQuery1.ExecSQL;
3.   SQLTransaction1.Commit;
4.  

If I call the SELECT command, the record focus is reset, how to correct the record so that the record remains selected after the update

[JanRoza]

Focus is reset because you use SQLTransaction1.Commit which closes the database, try SQLTransaction1.CommitRetaining.
The database will then not be closed after committing the changes and you can continue working.

[Pe3s]

After using ComitRetaining
does not refresh the view in the table

[JanRoza]

How do you view the table?
If you use database dependant elements like DbGrid, DbListbox, etc. than the table view refreshes as soon as you update data in the table.
Not knowing what you are doing makes it hard to give a good answer.

[Pe3s]

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

1.  SQLQuery1.SQL.Text := 'UPDATE database SET Name=:Name, Product=:Product,  WHERE id=:id';
2.   SQLQuery1.ParamByName('Name').AsString := LabeledEdit1.Text;
3.   SQLQuery1.ParamByName('Product').AsString := LabeledEdit2.Text;
4.   SQLQuery1.ParamByName('id').AsInteger := SQLQuery1.FieldByName('id').AsInteger;
5.   SQLQuery1.ExecSQL;
6.   SQLTransaction1.CommitRetaining;
7.  SQLQuery1.SQL.Text := 'SELECT * FROM database';
8.   SQLQuery1.Open;
9.  

The changes appear after restarting the program