execute sql DDL WITH ibscript at runtime

Question

I have a problem about running script

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;

strong textit shows me this message

'Dynamic SQL Error SQL error code = -104 Token unknown - line 1, column 43 TO'.

thank you in advance

What is the resulting SQL string? I suggest you construct it separately and log or print it. — Mark Rotteveel, Oct 26 '15 at 10:23

score 1 · Answer 1 · answered Oct 26 '15 at 10:13

1

You have

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

sql only.

So, check 'table_name' variable value. This error can occur when:

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

answered Oct 26 '15 at 10:13

Val Marinov

2,705
17
22

non i have correct value by debug thenx ' GRANT INSERT, UPDATE ON RECEPTION TO KOVAROV; ' – kovarov Oct 26 '15 at 10:31
I tested with `table_name := 'RECEPTION'`. Works well. – Val Marinov Oct 26 '15 at 10:44
in both cases works, but I get the error message after IBScript.Transaction.CommitRetaining; – kovarov Oct 26 '15 at 10:49
thank you this other error sql in code from revoke before this code – kovarov Oct 26 '15 at 12:49

execute sql DDL WITH ibscript at runtime

1 Answers1