DSN

Question

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

cs_Michele · Answer

Je réponds à ma propre question pour mon
problème de recordcount,
il suffisait de déterminer le type
de curseur:
RS.CursorType = adOpenStatic
RS.CursorLocation = adUseClient
A+ Michèle

DSN

1 réponse

Discussions similaires