[VB6][SQL] Ouvrir mon application avec 2 profils différents
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:
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....
