Création d'une page de login avec une bdd Microsoft Access

jus2mandarine 69 Messages postés vendredi 5 juin 2015Date d'inscription 3 mai 2018 Dernière intervention - 29 août 2017 à 13:01
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).

Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.
Jordane45


J'ai essayé de créer une source de données à partir d'un fichier Access, mais rien ne marche. Ci-dessous, le lien de mon projet :

http://www.cjoint.com/c/GHDk14Xbeuw

Merci pour votre support.

Très cordialement /-
Afficher la suite 

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.