数据删除请教

Question

if application.MessageBox('您 确 认 要 删 除 吗','询问',mb_yesno)=idyes then
begin
with form3.ADOQuery1 do
begin
close;
sql.clear;
sql.add('delete from [来访数据] where id like '''+edit1.Text+'''');
open;
Refresh;
showmessage('删除完成');
end;end;
以上程序执行完毕，程序是会被执行的，数据也会被删除成功，，但是怎么会报错呢？我用的是MSSQL

Answer 1

不能用Refresh;
可以close -> open

Answer 2

一般像这种情况的写法:if application.MessageBox('您 确 认 要 删 除 吗','询问',mb_yesno)=idyes then
begin
with form3.ADOQuery1 do
begin
close;
sql.clear;
sql.add('delete from [来访数据] where id like '''+edit1.Text+'''');
excute;
showmessage('删除完成');
end;