数据是删掉了,系统也继续运行,但是会提示一句
---------------------------
Gtysystempub
---------------------------
AdoP: CommandText does not return a result set.
---------------------------
SQL语句是没有问题我的代码是这样的  begin
    if MessageBox(0, pchar(StrMess), '请选择', MB_ICONQUESTION + MB_YESNO) = IDYES then
    begin
      with AdoP do
      begin
        try
          close;
          sql.Clear;
          sql.Text:='delete from dprovince where vcProvinceNo = ' + '''' + nodepoint(tvDic.Selected.Data).StrKey + '''' ;
          execsql;
//执行到这里弹出错误
        //删除此节点
           tvDic.Selected.Delete;
        finally
          close;
        end;
      end;
    end;
  end