使用ADO连接ACCESS，删除数据时总是删错数据，在线等！！！

[mujingzhu]

各位大神：

我在使用ADO连接ACCESS数据库时，用了DBGRID显示数据，想要点击DBGrid1中的某一行,点击删除按钮后删除选中的那一行，使用的代码如下：
procedure TForm1.btn4Click(Sender: TObject);
begin
with qry1 do
begin
close;
Active:=True;
Edit;
Delete;
Update;
end;
end;
但在实际操作中时，不管我选中的哪一行，它删掉的数据总是第一行数据

[doloopcn]

按照你的代码，连接哪一种数据库都是删除第一行 不用CLOSE，直接DELETE就可以了 if Notqry.Eof then qry.DELETE; 这样就可以了

[日月路明]

if not qry1.IsEmpty then qry1.delete;

[lyhoo163]

你使用close，数据当前行就进入第一行了，再Delete删除当前行，就删除了第一行。 建议代码： procedure TForm1.btn4Click(Sender: TObject); begin with qry1 do begin Delete; end; end;

[xiaocongzhi]

当你Close再Active 游标自动定位在第一条了

[zyxgd]

这3行都是多余的，close是错删数据的根本原因： close; Active:=True; Edit;

[yunzm_wang]

close; Active:=True; 表示先关闭，再打开，所以一直是第一条，你可以打开sql monitor跟踪一下语句。

[lyhoo163]

引用 2 楼 lyhoo163 的回复:

你使用close，数据当前行就进入第一行了，再Delete删除当前行，就删除了第一行。 建议代码： procedure TForm1.btn4Click(Sender: TObject); begin with qry1 do begin Delete; end; end;

这样就可以了。。。。

[Mars]

删除某一行，必须加where条件判定啊，这样能删除是不对地。像 with qry1 do delete;是错误的

[cqzjb]

选中某行，直接delete，哪里还需要close，active

[leeky]

年关了，楼主该结帖了。

[秋天之落叶]

基本都是问完就跑，哇哈哈哈

[东南西北风]

with qry1 do begin close; 把qry1关闭了 Active:=True; Edit; Delete; 这里删除的不是你选中的那条记录了，数据集打开时，默认是第一条。 Update; end;