我使用Query控件出现了如下问题：'Error creating cursor handle'

[liang_jimmy]

我使用的Query如下：
ProductName := Query1.FieldByName('ProductName').Asstring;
NotDealUnit := NotDealUnit - UnitQuantity;
NotDealQuantity := QuantityPerUnit * NotDealUnit;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Update Products');
Query1.SQL.Add('SET NotDealUnit=:NotDealUnit,');
Query1.SQL.Add('NotDealQuantity=:NotDealQuantity');
Query1.SQL.Add('Where ProductName=:ProductName');
Query1.ParamByName('NotDealUnit').AsFloat := NotDealUnit;
Query1.ParamByName('NotDealQuantity').AsFloat := NotDealQuantity;
Query1.ParamByName('ProductName').AsString := ProductName;
Edit9.Text:= Query1.SQL.Text;
Query1.Active:=True;

应用系统生成以后运行，当要实现该功能时，系统发生如下错误：
Class ENoResultSet with message: 'Error Creating cursor handle'
请问该问题如何解决？

[zhenjie]

没有数据返回值的操作sql语句是不允许用open之类的操作动作的，只允许使用exesql方法。

[Liusp]

凡是有返回值的如 Select或一些存储过程，TQuery执行时用OPEN，而象DELETE、UPDATE、INSERT等没有返回的则用EXECSQL

[wjohenw]

多谢楼上，我也是来问这个问题的哈哈
我的是query.sql.add('alter talbe tablename add age int')
query.open;
出现和你相同的错误
哈哈，多谢楼上

[Michaelyfj]

把query.open 改成query.execsql;

如果是select .. from ..要用open
其他如update, delete..等要用execsql

[hjhhjh]

加一句
Query1.ExecSQL
DELETE、UPDATE、INSERT等用ExecSql
Select用Open

[dreamfan]

Y

[chechy]

将下面这句
Query1.Active:=True
改为
Query1.ExecSQL