Posez votre question Signaler

Recherche avec adodc 2 éléments

- - Dernière réponse : vb95
Messages postés
1984
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
12 décembre 2019
 - 17 mai 2018 à 15:31
Visual Basic 6 Posez votre question Signaler
<Rech></Rech>Bonjour,
j'ai un problème de recherche avec deux ou trois numéros

Avec un numéro, je n'ai pas de problème. J'écris:

Private Sub Rechercher_Click()
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.Find “id=“ & Val(Text_nombre1.Text)
If Adodc1.Recordset.EOF= Then
MsgBox “Ce numéro n’existe pas“, VbExclamation, ““
Text_Nombre1.Text=““
Text_Nombre1.Enabled=True
End if
End Sub

Mais recherche avec deux numéros (numéro1 et numéro2)
une erreur se signale
J'ai utilisé Or ou And, mais aucune solution

Merci d'avance
Afficher la suite 

1 réponse

Signaler Commenter la réponse de vb95
Messages postés
1984
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
12 décembre 2019
 79
0
Merci
Bonjour !
Première question : pourquoi apprendre VB 6 qui n'est plus mis à jour depuis 1998 ? il y a VB Net qui est bien plus performant actuellement . Maintenant c'est ton choix et je le respecte .

Secundo : ton code entre balises aurait été bien plus lisible 

Private Sub Rechercher_Click() 
    Adodc1.Refresh 
    DataGrid1.Refresh 
    Adodc1.Recordset.Find “id=“ & Val(Text_nombre1.Text) 
    If Adodc1.Recordset.EOF= True Then 
        MsgBox “Ce numéro n’existe pas“, VbExclamation, ““ 
        Text_Nombre1.Text=““ 
        Text_Nombre1.Enabled=True 
    End if 
End Sub

voir https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche

Tertio : tu parles de 2 nombres. Dans ton code il n'y en a qu'un seul qui est écrit dans la TextBox Text_Nombre1 .
Afficher les 13 commentaires
Signaler Commenter la réponse de apprendrevb6.0
-
De la façon suivante:

Private Sub Rechercher_Click()
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.Find “id=“ & Val(Text_nombre1.Text)
Adodc1.Recordset.Find “id=“ & Val(Text_nombre2.Text)
If Adodc1.Recordset.EOF= True Then
MsgBox “Ce numéro n’existe pas“, VbExclamation, ““
Text_Nombre1.Text=““
Text_Nombre1.Enabled=True
Text_Nombre2.Text=““
Text_Nombre2.Enabled=True

End if
End Sub

Il n' y a pas de recherche pour nombre2 mais uniquement nombre1
Signaler Commenter la réponse de vb95
vb95
Messages postés
1984
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
12 décembre 2019
 79 > apprendrevb6.0 -
Fais un double-click sur une des TestBox et regarde la Sub qui s'est écrite toute seule !
Dis-mo ce qui as été écrit !
Signaler Commenter la réponse de apprendrevb6.0
-
Je n'ai pas essayé les tableaux de controle
Signaler Commenter la réponse de apprendrevb6.0
-
Je me déconnecte pour déplacement à une formation
Merci pour votre volonté
Je réessayerai plus tard. Bonne journée et que le
Bon Dieu vous bénisse
Signaler Commenter la réponse de vb95
vb95
Messages postés
1984
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
12 décembre 2019
 79 > apprendrevb6.0 -
Si tu n'essayes pas ce que l'on te dit ………………;
Un lien pour des explications : http://www.zdnet.fr/actualites/vb6-simplifier-votre-codage-grace-aux-groupes-de-controles-39186911.htm
Commenter la réponse de vb95
Répondre Posez votre question