更新bindsource和listview

Question

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

我使用FireDac进行连接。

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

  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：无法对已关闭的数据集执行此操作。 我试过打开dats set但是没有去。 为什么这不起作用？

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;