Cherche dans base de donne recordset

gladiator1024 Messages postés 65 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 1 février 2011 - 17 févr. 2010 à 17:33
gladiator1024 Messages postés 65 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 1 février 2011 - 18 févr. 2010 à 14:38
SALUT
j'ai un base de donnée en vb6 et accès reliée avec contrôle recordset
et je besoin d'un solution de cettr code
cette code pour recherche

If Option1.Value False And Option2.Value False Or Text1.Text = "" Then
MsgBox "vous devez choisir une option ou remplir la zone du texte "
End If
Dim recherche 'As String
'Recherche
If Option1.Value = True Then
recherche = " [nom] like " & "'" & Text1.Text & "*" & "'"
rsop.FindFirst recherche
Do While Not rsop.NoMatch
Exit Sub
rsop.FindNext recherche
Loop
MsgBox " Il n'y a plus d'enregistrement répondant au critère spécifié!", vbOKOnly, "Recherche"
rsop.MoveFirst
Text1.Text = ""
Text1.SetFocus
Else
'Recherche d'un client a partir de son nom
recherche = " [nom com] like " & "'" & Text1.Text & "*" & "'"
rsop.FindFirst recherche
Do While Not rsop.NoMatch
Exit Sub
rsop.FindNext recherche
Loop
MsgBox " Il n'y a plus d'enregistrement répondant au critère spécifié!", vbOKOnly, "Recherche"
rsop.MoveFirst
Text1.Text = ""
Text1.SetFocus
End If

merci a tout

2 réponses

cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 78
17 févr. 2010 à 19:58
Salut
Et quel est ton problème ?

De quel type est ton RecordSet ? DAO ou ADODB ?
Pour info, DAO est obsolète (à ne plus utiliser) et, de surcroit, les méthodes FindFirst fonctionnent mal.
Je te recommande fortement de basculer en ADODB. Ce n'est pas trop compliqué de passer de l'un à l'autre.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
0
gladiator1024 Messages postés 65 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 1 février 2011
18 févr. 2010 à 14:38
merci de votre réponse

mon type de recherche c'est recordset
0