我用的是TDBISAMQuery。源码如下:
with MainForm.qryTest do
begin
if not (State in [dsInsert]) then
Edit;
FieldByName('name').AsString := edtName.Text;
FieldByName('add').AsString := edtAdd.Text;
Post;
//UpdateRecord;
end;
Post或UpdateRecord之后,当时能在DBGrid上显示出来,但重新打开程序还是原来的数据。
with MainForm.qryTest do
begin
if not (State in [dsInsert]) then
Edit;
FieldByName('name').AsString := edtName.Text;
FieldByName('add').AsString := edtAdd.Text;
Post;
//UpdateRecord;
end;
Post或UpdateRecord之后,当时能在DBGrid上显示出来,但重新打开程序还是原来的数据。
查询语句是:
strSQL := 'Select * From MyTable where FolderID=' + IntToStr(FolderID) +
'order by ID desc';