firebird - 在运行时使用 ibscript 执行 sql DDL

Question

我有关于运行脚本的问题

IBScript := TIBScript.Create(nil);
IBScript.Database := FDM_DB.IBD_GCV;
IBScript.Transaction := FDM_DB.IBT_GCV;
IBScript.Terminator := ';';
IBScript.AutoDDL:=true;
IBScript.Script.Clear;
IBScript.Script.Add('GRANT INSERT, UPDATE ON ' + table_name + '  TO ' + user + ' ;');
IBScript.ExecuteScript;
IBScript.Transaction.CommitRetaining;

强文本向我显示此消息

'动态 SQL 错误 SQL 错误代码 = -104 令牌未知 - 第 1 行，第 43 列 TO'。

先感谢您

Answer 1

你有

GRANT INSERT, UPDATE ON ' + table_name + ' TO ' + user + ; 

仅限 sql。

所以，检查'table_name'变量值。在以下情况下可能会发生此错误：

table_name = '';//(empty string).