2,497
社区成员
发帖
与我相关
我的任务
分享兄弟们,帮我看看该过程有什么问题
Procedure TMainFrm.DeleteFrist(Id:Integer);
var
Ado_tmp:TADODataset;
tmpId:integer;
begin
Ado_tmp:=TADODataSet.Create(Self);
Ado_tmp.Connection:=ADOConnection1;
with Ado_tmp do
try
Close;
ado_tmp.CommandType:=cmdText;
commandtext:='delete from treetxl where Id='+IntToStr(Id);
open;
finally
ado_tmp.Free;
end;
end;
老是报"当前提供程序不支持从单一执行返回多个记录集"
var
Ado_tmp:TADODataset;
tmpId:integer;
begin
Ado_tmp:=TADODataSet.Create(Self);
Ado_tmp.Connection:=ADOConnection1;
with Ado_tmp do
try
Close;
ado_tmp.CommandType:=cmdText;
commandtext:='delete from treetxl where Id='+IntToStr(Id);
open;
finally
ado_tmp.Free;
end;
end;
老是报"当前提供程序不支持从单一执行返回多个记录集"
...全文
请发表友善的回复…
发表回复
smoker 2004-07-16
- 打赏
- 举报
谢谢,该用AdoQuery可以了,是不是AdoDataSet中不能用delete语句
exu 2004-07-16
- 打赏
- 举报
你执行的是删除,删除数据是不会返回数据集的，那为什么要用AdoDataset?
wozhuchuanwei(单身一卒)说得没错,用ADOQuery组件,把Open改为ExecSQL就可以了
wozhuchuanwei(单身一卒)说得没错,用ADOQuery组件,把Open改为ExecSQL就可以了
smoker 2004-07-16
- 打赏
- 举报
忘了说明,表是access 2000
smoker 2004-07-16
- 打赏
- 举报
1:表ID是唯一的,
2:adodataset中根本没有execsql属性
2:adodataset中根本没有execsql属性
lionlsl 2004-07-16
- 打赏
- 举报
表中的ID号不唯一
wozhuchuanwei 2004-07-15
- 打赏
- 举报
把open; 改为ExecSQL
