- Код: Выделить всё
Sqlite3Dataset1: TSqlite3Dataset;
...
if
DM.Sqlite3Dataset1.Locate('key', 'Sourname',[loCaseInsensitive])
then
begin
DM.Sqlite3Dataset1.Edit;
DM.Sqlite3Dataset1.FieldByName('Value').AsString := Edit2.Text;
DM.Sqlite3Dataset1.Post;
end;
DM.Sqlite3Dataset1.ApplyUpdates;
пример: