Recherche avec adodc 2 éléments

Question

Recherche avec adodc 2 éléments

Signaler

apprendrevb6.0 - 16 mai 2018 à 12:21
vb95

Messages postés: 2099
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 2 avril 2020

- 17 mai 2018 à 15:31

<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

A voir également:

Adodc
Vb6 adodc - Meilleures réponses
Adodc1 - Meilleures réponses
Adodc in vb - Forum - Visual Basic 6
Se connecter a une base de donnée sans le composant adodc - Codes sources - Visual Basic / VB.NET (Base de Donnees)
Liaison datagrid -> bd access sans adodc - Codes sources - Visual Basic / VB.NET (Base de Donnees)
Gerer lerreur 3704 du control adodc - Codes sources - Visual Basic / VB.NET (Base de Donnees)
Gestion d'une base de donneé par adodc - Codes sources - Visual Basic / VB.NET (Base de Donnees)

1 réponse

Répondre Posez votre question

vb95 · Answer 1 · 2018-05-17T13:41:34+0200

Réponse 1 / 1

vb95

Messages postés: 2099
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 2 avril 2020

89
17 mai 2018 à 13:41

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

apprendrevb6.0
17 mai 2018 à 15:22

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

vb95

Messages postés: 2099
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 2 avril 2020

89 > apprendrevb6.0
17 mai 2018 à 15:27

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

apprendrevb6.0
17 mai 2018 à 15:23

Je n'ai pas essayé les tableaux de controle

Signaler

apprendrevb6.0
17 mai 2018 à 15:28

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

vb95

Messages postés: 2099
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 2 avril 2020

89 > apprendrevb6.0
Modifié le 17 mai 2018 à 15:32

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

Votre réponse