delphi - 更新bindsource和listview

我正在使用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;

我的问题是我遇到错误。
错误：= TFDQuery：无法对封闭的数据集执行此操作。
我尝试过打开飞镖，但是没有。
为什么这不起作用？

最佳答案

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

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