更新存储过程因查询而失败

Question

数据库：Interbase 6.5 连接：与IBX或BDE结果相同 程序是用delphi 7编写的

我尝试更新sp。结果“Token Unknown -line xx, char yy” Line xx 和 char yy 指向第一个变量。

示例：

  query.sql.add('ALTER PROCEDURE');
  query.sql.add('MYPROCEDURE (mypkey integer)');
  query.sql.add('returns (myresult integer)');
  query.sql.add('as');
  query.sql.add('declare variable helpint integer;');
  query.sql.add('BEGIN');
  query.sql.add('select count(bla)');
  query.sql.add('from mytable');
  query.sql.add('where pkey=:mypkey');
  query.sql.add('into :helpint;');    <------ here is line xx
  query.sql.add('if (helpint>0) then myresult = 1;');
  query.sql.add('suspend;');
  query.sql.add('END');
try
  query.ExecSQL;
except
  on E:Exception do
  begin
    E.Message := E.Message +#13#10+query.SQL.Text;
    raise;
end;

如果我使用 ibconsole 更新 sp，它就可以工作。

出了什么问题吗？

更新：

在原始代码中，它是贴花变量！

更正：

query.sql.add('into :helpint;');    <------ here is line xx
query.sql.add('if (helpint>0) then myresult = 1;');

Answer 1

执行此操作

query.ParamCheck := False;
query.Params.Clear;
query.SQL.Clear;

在分配 SQL 之前 。完成 DDL 更新后，请不要忘记将 ParamCheck 恢复为 True。

Answer 2

您已经声明了一个变量 HELPINT，因此您必须在标记行以及下一行上使用 HELPINT 作为变量，而不是 VARIABLE。