Aide sur ADO
samih
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
Bonjour, je viens régulièrement sur votre forum qui m'apporte toujours une grande aide, mais c'est la première fois que je poste ^^ .. je vous explique mon problème!
Je suis débutant sur ADO (vb6 et access) ... Dans un projet je dois parcourir un recordset et faire une reherche voila comment g procédé: g crée une fonction dans le module pour pouvoir l'appeler dans tout le projet comme suit:
records est le recordset et x l'élément recherché
Public Function rechmat(records, x) As Boolean
records.MoveFirst
rechmat = False
While records.EOF = False
If Trim(x) = Trim(records!Matricule) Then
rechmat = True
Exit Function
Else
records.MoveNext
End If
Wend
End Function
cela marche tres bien cependant je voudrais faire une fonction qui puisse me servir pour n'importe quel element, po seulement "Matricule"!!!! g essayé ceci mais ca ne marche po :
Public Function rechmat(records, x, elmt) As Boolean
records.MoveFirst
rechmat = False
While records.EOF = False
If Trim(x) = Trim(records!elmt) Then
rechmat = True
Exit Function
Else
records.MoveNext
End If
'Wend
End Function
Si quelqu'un a une petite idée ^^ merci d'avance.
Je suis débutant sur ADO (vb6 et access) ... Dans un projet je dois parcourir un recordset et faire une reherche voila comment g procédé: g crée une fonction dans le module pour pouvoir l'appeler dans tout le projet comme suit:
records est le recordset et x l'élément recherché
Public Function rechmat(records, x) As Boolean
records.MoveFirst
rechmat = False
While records.EOF = False
If Trim(x) = Trim(records!Matricule) Then
rechmat = True
Exit Function
Else
records.MoveNext
End If
Wend
End Function
cela marche tres bien cependant je voudrais faire une fonction qui puisse me servir pour n'importe quel element, po seulement "Matricule"!!!! g essayé ceci mais ca ne marche po :
Public Function rechmat(records, x, elmt) As Boolean
records.MoveFirst
rechmat = False
While records.EOF = False
If Trim(x) = Trim(records!elmt) Then
rechmat = True
Exit Function
Else
records.MoveNext
End If
'Wend
End Function
Si quelqu'un a une petite idée ^^ merci d'avance.
A voir également:
- Aide sur ADO
- Filtrez le tableau pour ne faire apparaître que les bandes dessinées ado - Forum C#
- Que veut dire xd en langage ado ✓ - Forum Réseaux sociaux
- Que veut dire XD ? ✓ - Forum Mail
- Un ado en danger film complet en français ✓ - Forum Cinéma / Télé
- Instagram ado - Accueil - Réseaux sociaux
4 réponses
Bonjour,
j ai crée une application VB6 ACCESS via un data control ADODC mon pb c est je veux faire un textbox pour chercher des enregistrement, pourriez vous m aider svp et merci
j ai crée une application VB6 ACCESS via un data control ADODC mon pb c est je veux faire un textbox pour chercher des enregistrement, pourriez vous m aider svp et merci