为何提示我不返回结果集？我没太多分数请各位见谅啊！

[rjjlyx]

我用了TREEVIEW，下面的代码是删除与树接点选中内容相对应的一条记录，运行通过，但按下按纽就出现错误提示：adoquery commandtext does not return a result set.请教各位高手，怎么回事？
procedure TMainForm.btnDelDeptClick(Sender: TObject);
var
str:string;
begin
if Assigned(tvDeptList.Selected) then
begin
str:=string(pchar(tvDeptList.Selected.Data^));
adoqrquery.SQL.Clear;
adoqrquery.SQL.Add('DELETE FROM DEPT');
adoqrquery.SQL.Add('WHERE [Code] = '':DeptCode''');
adoqrQuery.SQL.Text:=stringreplace(adoqrQuery.SQL.Text,':DeptCode',str,[rfreplaceall,rfignorecase]);
try
adoqrquery.Open;


except
end;
adoqrquery.Close;
end;
end;

[rjjlyx]

难怪提示没有结果集返回呢。谢谢啦。

[Shiyl]

没有细看，不过既然是'DELETE FROM DEPT'那么应该是
adoqrquery.ExecSQL;
不是adoqrquery.Open;

[rjjlyx]

怎么没人理我呢？小妹急啊

[digestion]

呵呵，一看提示就知道是应该用Execsql而不是OPEN，就这么简单。

[taoff]

就是 Shiyl(云淡风清（回到梦开始的地方）) 所指的了
应该是 adoqrquery.ExecSQL;