请问怎么删除记录，为什么这段代码只能执行一次(50分)

  • 主题发起人 主题发起人 jiang3403
  • 开始时间 开始时间
J

jiang3403

Unregistered / Unconfirmed
GUEST, unregistred user!
为什么这段代码只能执行一次

procedure TForm11.Button4Click(Sender: TObject);
begin
adoquery3.Active:=true;
adotable2.locate('用户名','edit1.text',[]);
adoquery3.Edit;
ADOQuery3.close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.add('delete from usertb where 用户名='''+edit1.Text+'''');
ADOQuery3.ExecSQL;
ADOTable2.Close;
ADOTable2.Open;
Application.MessageBox('成功删除账户！','提示信息',mb_ok);
edit1.Text:='';
end;


请问应该怎么改
另外commandtext does not return a result set是什么原因造成的
我是新手，急阿
 
你想执行几次呢？代码虽然不规范，但应该可以删除啊
 
需要每次点击都能删除
就是调试时第一次能删除，第二次开始就说
commandtext does not return a result set
 
已经删除了
怎么还能删呢
 
每次删除表中用户名为edit1的值
 
adoquery3.Active:=true;
adoquery3.Active:=true;都删除掉
 
1.adotable2相关的代码与ADOQuery3没关系应该分开写。
2.ADOQuery3刷新最好用相应的刷新语句，如果效果不行就直接给它close再open。
3.错误可能是由 adotable2.locate('用户名','edit1.text',[]);引起的。
4.ADOQuery3.SQL.add('delete from usertb where 用户名='''+edit1.Text+'''');写成ADOQuery3.SQL.add('delete from usertb where 用户名=quotedstr(edit1.Text)');比较直观。
 
delete from usertb 改成 delete usertb where ....
 
adoquery3.Edit;這一句有錯,因為並沒有結果集,所以出錯了.
 
代碼有點亂,adoquery3.Edit;這句去掉應該就可以了.
在ms sql server中:delete from usertb where ...=delete usertb where ...
 
to SiWeiLiuLang,
adoquery3.Active:=true;都删除掉调试时第二次删除显示cannot perform this operation on a closed dateset


to newsmile,
quotedstr调试时没法识别
query3 adotable2 指向同一张表
 
调试不能通过你就保持原样算了，指向同一张表你不必先locate，delete带了条件它会自己去找到符合条件的记录的。
 
to newsmile
把locate删了后,结果仍然不能删第二次,仍然显示
cannot perform this operation on a closed dateset
请问这是什么原因造成的
 
to eastweast
去掉adoquery3.Edit后,第二次修改仍然不行
 
把最后的修改结果帖出来，我说的那两句去了没
 
复制的时候出问题了，怎么两句写得一样
晕
 
你的usertb在什么地方？
procedure TForm11.Button4Click(Sender: TObject);
begin
//adoquery3.Active:=true;//在form中设置比较好，如果不在form中设置这行是必须的
ADOQuery3.open;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.add('delete from usertb where 用户名='''+edit1.Text+'''');
ADOQuery3.ExecSQL;
ADOQuery3.close;
Application.MessageBox('成功删除账户！','提示信息',mb_ok);
edit1.Text:='';
end;
 
问题解决了谢谢，把
adoquery3.Active:=true
adoquery3.Edit
都去掉就行了，

to SiWeiLiuLang,
请问为什么adoquery3.Active:=true要去掉
 
procedure TForm11.Button4Click(Sender: TObject);
begin
adoquery3.Active:=true;//这里删除
adotable2.locate('用户名','edit1.text',[]);//删除
with adoquery3 do
begin
close;
SQL.Clear;
SQL.add('delete from usertb where 用户名='''+edit1.Text+'''');
ExecSQL;
end;
//你的提示是说不能对已经关闭的数据集进行操作。你用下面的看看
with adotable2 do
begin
if active then
active := false ;
open;
ADOTable2.Close; //删除
ADOTable2.Open; //删除
end;
Application.MessageBox('成功删除账户！','提示信息',mb_ok);
edit1.Text:='';
end;
open 和close是对ACTIVE进行的操作。open 和close是TDATASET里的两个操作。
OPEN就是将ACTIVE ：= TRUE
 
那条语句相当于Open
你该知道原因了吧
 
您必须登录或注册才可回复。

Similar threads

Y
为何关闭一个空的记录集时出错？(100分)
回复
4
查看
99
ymf
Y
H
看看这段代码，就没人能解决这个问题吗？高手请 (20分)
回复
5
查看
190
northsky
N
Z
大家看看为什么执行以下代码后，退出系统时有内存错误提示？(100分)
回复
9
查看
138
smallbs
S
B
请问下面这段代码怎么转成存储过程(50分)
回复
6
查看
110
onlyonekgx
O
B
语句为什么不能被执行？(50分)
回复
5
查看
131
beyzhzj
B
后退
顶部