Discussion :

[angus9]

Bonjour,

Je souhaite ouvrir mon application avec 2 profils (administrateur et consultant). J'ai une table "Utilisateur" (Code, Login, MotPasse,Profil)
J'ai ma connexion à ma base de données, mais comment je peux me connecter à cette table qui permet d'ouvrir l'application ?

Actuellement mon code de connexion est :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub CmdOk_Click()
 
Dim rsado As ADODB.Recordset, dynNomTable As ADODB.Recordset, Conn As ADODB.Connection, strSQL As String
 
Set Conn = New ADODB.Connection
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\Program Files\......\mabase.mdb"
    Conn.Open
 
Set rsado = New ADODB.Recordset
 
strSQL = ("SELECT login, motpasse, profil FROM Util WHERE login = '" & txtUserName.Text & "' AND motpasse = '" & txtPassword.Text & "'")
 
Set rsado = New ADODB.Recordset
Set dynNomTable = New ADODB.Recordset
 
rsado.CursorLocation = adUseClient
rsado.Open strSQL, Conn, adOpenStatic, adLockReadOnly
dynNomTable.Open strSQL, Conn, adOpenStatic, adLockReadOnly
 
If (dynNomTable("profil")) = 1 Then
gProfil = 0
Parametre
End If
 
If (dynNomTable("profil")) = 2 Then
gProfil = 1
End If
 
If rsado.RecordCount <> 1 Then
 
MsgBox "Mauvais login ou mot de passe.", vbExclamation
 
End
 
End If
 
Unload Me
 
End Sub

Est ce que je dois insérer mon code de connexion à la base de données (alors que c'est déjà fait dans un module) ?
Bref je suis un peu perdu....

[Louis.Gruhn]

Quand tu parles de crée des comptes admin/consultant dans une table
Comment compte tu géré les droits d'accès à la bdd depuis ces tables.

Si j'ai bien compris avec ton code tu veux juste que la bdd valide si les login/mdp rentré dans les textbox sont ok?

[angus9]

Oui c'est ca
Actuellement suivant le mot de passe et login j'ai un acces Admin ou consultant.
Ces login et mot de passe étaient dans la bdd access.
Maintenant je veux faire la même chose mais à partir d'une table (Nommée "Utilisateur") se trouvant sur SQl Server.
Lorsque j'ouvre mon logiciel, il commence d'abord par ce connecter à la base et je souhaite ensuite me connecter à une table de la même base pour contrôler le login et mot de passe.

Je donne uniquement accès à certaine Form de vb6 et non aux données de la bdd suivant consultant ou administrateur