query的update问题?

[duke7y]

Query1.SQL.Clear;
Query1.SQL.Add('UPDATE T003 SET message=''hello'' WHERE no=''00000001''');
Query1.ExecSQL;
query1.Active :=true;

运行时提示enoresultset 信息为 error creating cursor handle
我看了帮助，enoresultset是在query执行非select时抛出的异常可没写怎样解决。

[johnnyqiu]

TQuery不能返回值
改成这样试试

Query1.SQL.Clear;
Query1.SQL.Add('UPDATE T003 SET message=''hello'' WHERE no=''00000001''');
Query1.ExecSQL;
with Query1 do
begin
Close;
Unprepare;
SQL.Clear;
SQL.Text :='select *from T003';
Active :=true;
end;

[ailibuli]

去掉"query1.Active :=true;"

[qizhanfeng]

就是 ailibuli(愛理不理)说的

[qingke21]

顶

[insert2003]

这样

Query1.SQL.Clear;
Query1.SQL.Add('UPDATE T003 SET message=''hello'' WHERE no=''00000001''');
Query1.ExecSQL;