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，也使用下一行。

更新存储过程失败并显示查询

更新

2 个答案: