木
木工
Unregistered / Unconfirmed
GUEST, unregistred user!
ADO数据集采用tBatchOptimistic,在添加多条记录后采用updatebatch,出错!
procedure TSelfStoreForm1.BitBtn4Click(Sender: TObject); //添加记录
begin
SelfDataModule1.ADOQuery2.Append;
SelfDataModule1.ADOQuery2.FieldValues['plan_name']:=dbedit1.Text;
end;
procedure TSelfStoreForm1.Bitbtn1Click(Sender: TObject); //提交修改计划
begin
if messagedlg('请确认修改无误?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
SelfDataModule1.ADOQuery2.UpdateBatch;
SelfDataModule1.ADOQuery2.Active:=false;
end
else
showmessage('ddd');
如果每次我只添加一条记录后提交,没错!但添加了两条以上的记录后再提交,就出错。
说什么“多步操作产生错误,请检查每一步的状态值”。这是怎么回事
新手不懂,请教各位!
procedure TSelfStoreForm1.BitBtn4Click(Sender: TObject); //添加记录
begin
SelfDataModule1.ADOQuery2.Append;
SelfDataModule1.ADOQuery2.FieldValues['plan_name']:=dbedit1.Text;
end;
procedure TSelfStoreForm1.Bitbtn1Click(Sender: TObject); //提交修改计划
begin
if messagedlg('请确认修改无误?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
SelfDataModule1.ADOQuery2.UpdateBatch;
SelfDataModule1.ADOQuery2.Active:=false;
end
else
showmessage('ddd');
如果每次我只添加一条记录后提交,没错!但添加了两条以上的记录后再提交,就出错。
说什么“多步操作产生错误,请检查每一步的状态值”。这是怎么回事
新手不懂,请教各位!