Création d'une page de login avec une bdd Microsoft Access
jus2mandarine
Messages postés218Date d'inscriptionvendredi 5 juin 2015StatutMembreDernière intervention29 novembre 2022
-
Modifié le 29 août 2017 à 17:33
Bonjour chers tous,
Le code que j'ai saisi sur une feuille de login pour permettre une communication avec une base de données ms Accès ne marche pas. Lorsque je valide après la saisie du nom d'utilisateur et mot de passe, voici le message que je reçois :
" Erreur d'execution '-2147467259(80004005)'
[Microsoft][Gestionnaire de pilotes ODBC] Sources de données introuvable et nom de pilote non spécifié "
Voici le code que j'ai saisi dans la feuille module :
'---------------------------------------------
Option Explicit
'---------------------------------------------
Public cnn As ADODB.Connection
Public Sub getconnected()
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = "Provider.Jet.OLEDB.4.0;Data Source=" & App.Path & ".\bd-exact-rh\bd_exact_rh.mdb" & ";Persist Security Info=False;"
cnn.Open
End Sub
voici le code que j'ai sai sur la feuille form pour se loguer avec une base de données Access :
'----------------------------------------------
Option Explicit
'----------------------------------------------
Private Sub cmdOK_click()
If txtUserName.Text = "" Then
MsgBox "Champ utilisateur vide"
txtUserName.SetFocus
Exit Sub
ElseIf txtPassword.Text = "" Then
MsgBox "Champ mot de passe vide"
txtPassword.SetFocus
Exit Sub
Else
Call login
End If
End Sub
'----------------------------------------------
Private Sub login()
MdlConnexion.getconnected
Dim rs As ADODB.Recordset
rs.Open "select * from user where login='" & txtUserName.Text & "'", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount < 1 Then
MsgBox "Utilisateur invalide", vbInformation, "Login"
txtUserName.SetFocus
Exit Sub
Else
If txtPassword.Text = rs!Pass Then
Unload Me
home.Show
Exit Sub
Else
MsgBox "Mot de passe incorrect !", vbInformation, "login"
txtPassword.SetFocus
Exit Sub
End If
End If
Set rs = Nothing
End Sub
EDIT : Ajout des balises de code (la coloration syntaxique).
