Bonsoir, j'éssaye de donner les droits à un utilisateur pour lire ecrire etc... sur une table, la requete passe sans message d'erreur, mais il n'y à aucun effet sur ma table...
Voici le code :
Peut être que c'est l'utilisation de grant qui ne va pas, j'ai vu un sujet qui montrait une requete de ce type...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 With IBDatabase1 do begin DatabaseName := ExtractFilePath(Application.ExeName)+'Bdd\GestionDesPass.FDB'; Params.Clear; Params.Add('User_Name=SYSDBA'); Params.Add('Password=masterkey'); LoginPrompt:=false; Connected := true; end; IBTransaction1.DefaultDatabase := IBDataBase1; with IBQuery1 do begin Database := IBDatabase1; Transaction := IBTransaction1; SQL.clear; SQL.Add('GRANT ALL ON Utilisateur TO adminBasePass;'); ExecSQL; end; IBTransaction1.Commit; IBDatabase1.Connected:=false; end;
J'éspère que vous pourrez m'aider.
Partager