delphi - 更新 bindsource 和 listview

Question

我正在开发一个 Delphi XE5 Firemonkey Mobil 应用程序。

我使用 FireDac 进行连接。

只是尝试在 sQlite 数据库中插入一个简单的查询，并使用插入的信息更新列表视图。

  procedure TTabbedwithNavigationForm.Button4Click(Sender: TObject);
   begin

   DataModule1.qSelectCustomers.SQL.Text := 'insert into Invoice (Name) values(:newName)';
   DataModule1.qSelectCustomers.ParamByName('newName').AsString := 'test';
   DataModule1.qSelectCustomers.ExecSQL;
   BindSourceDB1.DataSet.Refresh;
   ////LinkFillControlToField1.BindList.FillList;
  end;

我的问题是我收到错误。error:= TFDQuery : 无法对已关闭的数据集执行此操作。我试过打开数据集，但不行。为什么这不起作用？

Answer 1

您可以使用如下选择查询将记录插入数据集：

DataModule1.qSelectCustomers.SQL.Text := 'SELECT * FROM Invoice';
DataModuel1.qSelectCustomers.Active := True;
DataModule1.qSelectCustomers.Append;
DataModule1.qSelectCustomers.FieldByName('Name').Value := 'test';
DataModule1.qSelectCustomers.Post;