您所在位置：主题：删除问题请教
daixueqiong
[专家分：0] 发布于 2006-07-28 18:05:00
本人想把数据库中的耗材领取表的所有记录清空,编写了如下代码：
procedure Tclear.BitBtn1Click(Sender: TObject);
begin
if Application.MessageBox('确实要删除全部记录?','提示',mb_YesNo)=ID_Yes then
begin
with ADOQuery1 do
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from 耗材领取表');
Adoquery1.Delete;
end;
end;
end;
确总是出错，显示Adoquery1:cannot perform this openration on a closed dataset
我改了几个设置但还是出错，
请问各位高手如果要清除数据库中一个表的全部记录要如何编写代码啊？
procedure Tclear.BitBtn1Click(Sender: TObject);
begin
if Application.MessageBox('确实要删除全部记录?','提示',mb_YesNo)=ID_Yes then
begin
with ADOQuery1 do
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from 耗材领取表');
Adoquery1.Delete;
end;
end;
end;
确总是出错，显示Adoquery1:cannot perform this openration on a closed dataset
我改了几个设置但还是出错，
请问各位高手如果要清除数据库中一个表的全部记录要如何编写代码啊？
