IBQuery Executando Grant
Estou querendo atribuir papaeis aos usuarios dinamicamente no IBQuery.
Quado uso o seguinte codigo no IBconsole, nenhum erro acontece:
GRANT GERENTE TO MORTE;
Mas quando uso o grant no ibQuery esta dando erro.
Veja o codigo:
data.IBQuery.close;
data.IBQuery.sql.clear;
data.IBQuery.sql.add(´GRANT :par_Papel TO :par_user´);
data.IBQuery.ParamByName(´par_Papel´).AsString:=Trim(funcao.Text);
data.IBQuery.ParamByName
(´par_user´).AsString:=Exusuarios.Items.Strings[Index];
data.IBQuery.ExecSQL;
A mensagem de erro é:
Dinamic sql error
Sql error code=-104
Token unknow -line 1, char 6
?´.
Quado uso o seguinte codigo no IBconsole, nenhum erro acontece:
GRANT GERENTE TO MORTE;
Mas quando uso o grant no ibQuery esta dando erro.
Veja o codigo:
data.IBQuery.close;
data.IBQuery.sql.clear;
data.IBQuery.sql.add(´GRANT :par_Papel TO :par_user´);
data.IBQuery.ParamByName(´par_Papel´).AsString:=Trim(funcao.Text);
data.IBQuery.ParamByName
(´par_user´).AsString:=Exusuarios.Items.Strings[Index];
data.IBQuery.ExecSQL;
A mensagem de erro é:
Dinamic sql error
Sql error code=-104
Token unknow -line 1, char 6
?´.
Lorde_morte.
Curtidas 0
Respostas
Gandalf.nho
10/01/2005
Use o IBScript em vez do IBQuery
GOSTEI 0
Afarias
10/01/2005
Vc não pode usar parâmentros para isso. Formate o SQL em vez disso.
Sql.Text := Format(´GRANT ¬s TO ¬s´, [Trim(Funcao.Text),
ExUsuarios.Items.Strings[Index]]);
T+
Sql.Text := Format(´GRANT ¬s TO ¬s´, [Trim(Funcao.Text),
ExUsuarios.Items.Strings[Index]]);
T+
GOSTEI 0