Discussion :

[Tsimplice]

Bonjour, j'ai un souci avec un object TIBSercurityService.
Avec Delphi 5 Enterprise mis à jour, XP Home edition je veux utiliser le composant pour gerer les utilisateurs de la base de donnée mais quand je tente ca ne marche pas. Voici mon bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 //Créer l'utilisateur dans la base interbase
     try
     ibuser.ServerName:=ipserver;//adresse ip de mon serveur
     IbUser.Params.Values['user_name']:= 'SYSDBA';
     IbUser.Params.Values['password']:= 'masterkey';
 
     ibuser.Active:=true;//Pour etablir la connexion 
     ibuser.UserName:=tuseridUtilisateur.Value;
     ibUser.FirstName:=tusernomUtilisateur.Value;
     ibuser.Password:='password';
 
     ibuser.AddUser;

je recoit le message suivant:" unexpeted item in service parameter block, expected isc_spb_sec_username "

apres : " service not attached "
Je demande de l'aide. Merci d'avance

[qi130]

J'ai ce code qui fonctionne :

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
23
24
25
26
with IBSecurityService1 do begin
        with Params do begin
           Clear;
           Add('user_name='+UserActif);
           Add('password='+PswActif);
        end;
        Protocol:=TCP;
        ServerName:=Host;
        UserName:=Edit4.Text;
        PassWord:=Edit5.Text;
        FirstName:=Edit2.Text;
        LastName:=Edit1.Text;
        SQLRole:=ComboBox1.Text;
        Active:=True;
        Try
           AddUser;
        Except
           On E:Exception do begin
              ShowMessage(E.ClassName+':'+E.Message);
              Active:=False;
              RollBack;
              Exit;
           end;
        end;
        Active:=False;
     end;

A priori, la méthode Active doit être appelée après que tout soit rempli pour l'ajout.

[Tsimplice]

Merci pour le coup de main mais dans ton code il y a un probleme avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  RollBack;

mais je l'ai enlevé ca marche. J'arrive à créer l'utilisateur c'est une erreur au niveau du sqlRole. Je donnais un role qui n'existe pas.