Bonjour.
J'ai un problème avec ma connection DSN pour moi c'est la première fois que je veux
utiliser cette technique, et je rencontre pas mal de problèmes,
bien que assez documenté je ne trouve rien qui traite ce sujet.
Vous trouverez ci-dessous le code que je voulais utiliser, mais avec celui-ci je connecte bien à ma base de données avec ma première
requète.
où ça se complique c'est lorsque j'utilise ma deuxième requète je connecte
aussi à ma base mais je n'arrive pas à avoir le RecordCount dans ma
variable lTotalRecords et lorsque j'applique rs.MoveNext le contenu de
mes textBox ne change pas.
j'espere que mes explications sont assez claires pour que, comme je l'espere, quelqu'un vienne à mon aide
Merci d'avance
A +
Michèle
Option Explicit
Dim lTotalRecords As Long
Dim RS As New Recordset
Private CN As Connection
Set CN = New Connection
CN.Open "DSN=PointCla"
Private Sub Valider_Click()
On Error Resume Next
Screen.MousePointer = vbHourglass
' Crée un Recordset
' Lie à la connexion
Set RS.ActiveConnection = CN
'verifier si le texte password est vide
If (Len(Password) < 1) Then
MsgBox "Veuillez entrer votre mot de passe.", vbInformation + vbOKOnly, "erreur"
Password.Text = ""
Password.SetFocus
Screen.MousePointer = vbDefault
Exit Sub
Else
RS.Open "Select * from joueur WHERE motDePasse = '" & Password.Text & "'"
TxtMotDePasse = (RS!MotDePasse)
Textnom = (RS!nom)
Textprenom = (RS!prenom)
ClasCompet = (RS!classement)
txtSexe = (RS!sexe)
Txtcapital = (RS!Capital)
Txtref = (RS!ref)
Textnumero = (RS!numero)
RS.Close
End If
' si la recherche n'aboutit pas voir pour modification
If TxtMotDePasse = "" Then
MsgBox "IL n'y a aucun compétiteur qui correspond à ce mot de passe", vbOKOnly, "Erreur"
SSTab1.TabEnabled(0) = True
SSTab1.TabEnabled(1) = False
SSTab1.TabEnabled(2) = False
SSTab1.TabEnabled(3) = False
SSTab1.Tab = 0
Password.Text = ""
Password.SetFocus
Screen.MousePointer = vbDefault
Exit Sub
End If
' Interroge la base pour les resultats
RS.Open "Select * from point WHERE RefJoueur = " & Txtref
txtNom = (RS!nom)
txtPrenom = (RS!prenom)
TxtTournoi = (RS!tournois)
Text7 = (RS!classement)
Textresultats = (RS!resultats)
TxtBonus = (RS!bonus)
With RS
.MoveLast
lTotalRecords = .RecordCount
.MoveFirst
End With
End Sub