2

我正在使用带有 MS Access 数据库的 Lazarus。更新记录不起作用。代码:

  Form1.SQLQuery1.Edit;
  Form1.SQLQuery1.FieldByName('field1').AsString := Edit1.Text;
  Form1.SQLQuery1.FieldByName('field2').AsString := Edit2.Text;
  Form1.SQLQuery1.FieldByName('field3').AsString := Edit3.Text;
  Form1.SQLQuery1.FieldByName('field4').AsString := Edit4.Text;
  Form1.SQLQuery1.Post;
  Form1.SQLQuery1.ApplyUpdates; 

甚至添加

SQLTransaction1.Commit

不起作用,更改不会保存到数据库中,特别是如果记录是最后一条记录。这应该如何在拉撒路完成?

4

1 回答 1

2

尝试添加更新记录。像这样的东西:

Form1.SQLQueryMdb.Edit;
Form1.SQLQueryMdb.UpdateRecord;
Form1.SQLQueryMdb.FieldByName('State Name').AsString:= Edit1.Text;
Form1.SQLQueryMdb.Post;
Form1.SQLQueryMdb.ApplyUpdates;
DBGrid1.Refresh;
于 2012-11-06T18:40:20.407 回答