Question

我正在编写一个简单的数据库编辑器作为我的第一个Delphi程序。

我对Delphi没有任何问题，只有通过数据库连接。

我使用-> sqlConnection -> sqlDataSet -> sqlDataprovider -> Clientdataset -> Datasource

加载数据网格中的数据

我为每个记录插入/删除带有单独连接+ SqlQuery的记录。

我用DBEdit

更改记录

在插入/删除记录后，当我对记录进行更改并想要更新更改时，会出现问题，我收到以下错误

连接正忙于其他命令的结果。

代码：

procedure TDatabaseApp.bNieuwClick(Sender: TObject);
begin

//Waardes invullen in de query statement!

SQLInsert.ParamByName('naam').asString := txtNaam2.Text;
SQLInsert.ParamByName('brouwernr').asString := txtBrouwerNR.Text;
SQLInsert.ParamByName('soortnr').asString := TXTSoortNR.Text;
SQLInsert.ParamByName('alcohol').asString := TxtAlcohol.Text;

//query
SQLInsert.ExecSQL();
SQLInsert.Close();

//Reload datagrid after record has been inserted!
Refresh();

end;

刷新代码

procedure   TDatabaseApp.Refresh();
begin

//After a insert/delete query i call this statement, and changes made with the DBEdit are cancelled = temp solution.
  ClientDataSet1.CancelUpdates();  

  SQLDataSet1.Open();
  ClientDataSet1.Open();
  SQLDataSet1.Refresh();
  ClientDataSet1.Refresh();
end;

Answer 1

由于您的ClientDataSet链接到您的DataSetProvider并且您的DataSetProvider链接到您的SQLDataSet，您不应该直接操作SQLDataSet，而是使用ClientDataSet执行所有操作。

所以，你将拥有：

procedure TDatabaseApp.Refresh();
begin
    //ClientDataSet1.CancelUpdates();  //will raise an error depends on the CDS state
    ClientDataSet1.Close;  
    ClientDataSet1.Open();

    //SQLDataSet1.Open(); //not necessary, as you already open the CDS
    //SQLDataSet1.Refresh(); //not necessary, as you already open the CDS
    //ClientDataSet1.Refresh(); //not necessary, as you already open the CDS
end;

但我建议你也使用CDS进行插入，分配使用“SQLInsert”对象。这样事情会变得简单得多。

在相同数据上插入/删除查询后更新客户端数据集：连接正忙于其他命令

1 个答案: