gerer les utilisateurs d'une base de données sql avec vb.net

Version imprimable

Salut a tous

J'ai developpé une application avec vb.net 2008 et une base de données sql 2008 en mode connecter.

J'ai crée deux connexions et deux comptes d'utilisateur (administrateur, utilisateur). J'ai mis les privileges (grant et revoke) au niveau sql
Je voudrais savoir comment gerer ces privileges au niveau vb.net ?

Voila ce que j'ai fais mais insuffisant: 1 -les chaine de connexion:dans un module
Code:

1 2 3 Public con As New SqlConnection("Data Source=localHost;Integrated Security=false;Initial Catalog=test2;user id=brahim;password=123") Public con1 As New SqlConnection("Data Source=localHost;Integrated Security=true;Initial Catalog=test2;")
Et je voudrais savoir s'il faut 2 code pour chaque connection (con et con1)

Ou il y'a une autre methode plus simple ?

Merci de m'aider.

28/01/2010, 07h09
bobo10

Bonjour,

Tu peux faire une fonction qui te retourne la connexion voulue selon l'utilisateur qui la demande.
Le type d'utilisateur peut être défini via un Enum
28/01/2010, 13h47
dahiri10

Citation:

Envoyé par bobo10

Bonjour,

Tu peux faire une fonction qui te retourne la connexion voulue selon l'utilisateur qui la demande.
Le type d'utilisateur peut être défini via un Enum

hhhhh j'ai compris le 50%

c'est koi enum ? dabord lol ..... je suis debutant:mrgreen:

si vous permetter de me donner un bou de code

et merci d'avance.

Essai ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
Public Enum RoleType
  Administrateur = 1
  Utilisateur = 2
END Enum
 
Public Function Connexion(byval peRole as RoleType) as SqlConnection
  Dim objCon as SqlConnection = nothing
  Try
    Select Case peRole
       Case peRole.Administrateur
            objCon = New SqlConnection("Data Source=localHost;Integrated Security=true;Initial Catalog=test2;")       
       Case peRole.Utilisateur
            objCon = New SqlConnection("Data Source=localHost;Integrated Security=false;Initial Catalog=test2;user id=brahim;password=123")
     END Select
  Catch ex as exception
  objCon = nohting
  End Try
END Function

Ensuite tu appel simplement ta fonction de connexion