数据是删掉了,系统也继续运行,但是会提示一句
---------------------------
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
---------------------------
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
sql.Text:='delete from dprovince where vcProvinceNo = ' + '''' + nodepoint(tvDic.Selected.Data).StrKey + '''' ;
execsql;//用 sql.execute
应该用ADOQuery,最好用ADOCommand