Problème de connexion à une base de donnée et authentification des users voulant

josavoi Messages postés 3 Date d'inscription mercredi 26 août 2009 Statut Membre Dernière intervention 23 novembre 2009 - 23 nov. 2009 à 09:30
josavoi Messages postés 3 Date d'inscription mercredi 26 août 2009 Statut Membre Dernière intervention 23 novembre 2009 - 23 nov. 2009 à 09:32
salut,
josavoi, j'ai un problème de connexion à ma base de données. j'utilise le code suivant et chaque fois que j'exécute les méssages d'erreur suivants s'affichent:
1.connection non appropriée ou incompatible au contexte
2.cette instruction ne peut pas s'executer si l'objet est ouvert

voi ci le code en question:
Private Sub Valider_Click()

Dim cn As ADODB.Connection
Dim rec As ADODB.Recordset
Dim Sql As String

Set cn = New ADODB.Connection
Set rec = New ADODB.Recordset

cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bd1\Db.mdb")
cn.CursorLocation = adUseClient
rec.ActiveConnection = cn

If Txtutilisateur.Text = "" Then
MsgBox "entrer le nom de l'utilisateur", vbCritical, "username!!!"
Txtutilisateur.SetFocus
End If

If Txtpasse = "" Then
MsgBox "entrer le mot de passe de l'utilisateur", vbCritical, "pwd!!!"
Txtpasse.SetFocus
Else

Sql = "select * from User where UserName like '" & Txtutilisateur & "' and Pwd like '" & Txtpasse & "'"
rec.Open (Sql)
rec.MoveFirst

While Not rec.EOF
rec.MoveNext
Wend
rec.Close

If UserName <> " &txtutilisateur &" Or Pwd <> " &txtpasse & " Then
MsgBox "Acces refusé, vérifier le nom et le mot de passe", vbexclammation, "identification"
Else
FrmMenuGnral.Show
End If
End If
End Sub

1 réponse

josavoi Messages postés 3 Date d'inscription mercredi 26 août 2009 Statut Membre Dernière intervention 23 novembre 2009
23 nov. 2009 à 09:32
0
Rejoignez-nous