Problème de connexion à une base de donnée et authentification des users voulant
josavoi
Messages postés3Date d'inscriptionmercredi 26 août 2009StatutMembreDernière intervention23 novembre 2009
-
23 nov. 2009 à 09:30
josavoi
Messages postés3Date d'inscriptionmercredi 26 août 2009StatutMembreDernière intervention23 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
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
A voir également:
Problème de connexion à une base de donnée et authentification des users voulant