Discussion :

[Tsimplice]

Bonjour,
j'ai choisi d'utiliser ADO pour developper une application vu que BDE n'est plus maintenu. Actuellement j'utilise une base interbase 7 avec un provider ADO SIBProvider. Je suis arrivé tant bien que mal à éviter les couacs vu que les erreurs ADO sont pas très explicites.
j'ai essayé de faire un grant avec un ado command
voici le bou de code

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
 
ibuser.addUser;
          //Grant sur toutes les tables
          dm.qsql3.Close;
          dm.qsql3.SQL.Text:='select distinct RDB$RELATION_NAME tab from rdb$RELATION_FIELDS where RDB$VIEW_CONTEXT is null  and RDB$SYSTEM_FLAG = 0';
          dm.qsql3.open;
          dm.qsql3.First;
          while not dm.qsql3.Eof do
          begin
             try
             begin
              dm.Command1.CommandText:=' grant select, delete, insert, update, references  on '+dm.qsql3.fieldbyname('tab').asstring+' to '+ tuserid_Utilisateur.Value;
              dm.Command1.Execute;
              dm.qsql3.next;
              end;
             except
                dm.qsql3.next;    
             end;
          end;

Mais à l'execution de la commande il y a l'erreur.
Je demande de l'aide, Merci

[zemeilleurofgreg]

je te conseil plutôt le TADOQuery

[Tsimplice]

Bonjour,
en fait j'ai cru que le TADOQuery n'est pas indiqué pour ca car j'ai eu la première erreur en utilisant ce composant.
Mon intention estb d'accorder des droits sur les tables de ma base a l'utilisateur que je viens de créer. Ca marche très bien avec les composants BDE.