Commande de recherche
pispa16
Messages postés
36
Date d'inscription
Statut
Membre
Dernière intervention
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je suis entrain de faire un logiciel qui permet de garder son répertoire téléphonique mais j'arrive pas à créer la commande rechercher. C'est à dire j'entre le numéro je mets recherche ça me sort le nom ou vice versa. Aidez moi SVP
NB: J'utilise Visual Basic 6
je suis entrain de faire un logiciel qui permet de garder son répertoire téléphonique mais j'arrive pas à créer la commande rechercher. C'est à dire j'entre le numéro je mets recherche ça me sort le nom ou vice versa. Aidez moi SVP
NB: J'utilise Visual Basic 6
A voir également:
- Commande de recherche
- Invite de commande - Guide
- Commande terminal mac - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Commande dism - Guide
- Diskpart commande - Guide
5 réponses
ok, tu as quel type de connexion avec ta base ?
Je te propose ici un module avec une connexion ADOBD : https://www.cjoint.com/?duu05BK5nZ
et voilà un exemple pour l'utiliser, à mettre dans un autre module:
;o)
Je te propose ici un module avec une connexion ADOBD : https://www.cjoint.com/?duu05BK5nZ
et voilà un exemple pour l'utiliser, à mettre dans un autre module:
Option Explicit
Private rs As Recordset
Public Sub GetPersonByName(ByVal nom As String) 'on passe le nom à rechercher en paramètre quand on appelle la procédure
Dim query As String
Dim Ok As Boolean
'on se connecte à la bdd
ModBdd.ConnectBdd
'
'construction de la requête
query = "SELECT NOM, PRENOM, TEL FROM PERSONNE WHERE NOM= '" & nom & "'"
'
'on créé l'objet recordset
Set rs = New ADODB.Recordset
'
'on passe la requête à la base
Ok = ModBdd.OuvrirRecordset(queyr, rs)
'
'on teste le retour booléen
If Ok = False Then
MsgBox "Il n'y a pas d'enregistrements dans la base pour " & nom, vbExclamation, "Base de données"
Exit Sub
End If
'
'on affiche le resultat dans une listbox
'frmListe est l'UserForm où se trouve la listBox
With frmListe
'
'on parcours le recordset
' (i) on se place sur premier enregistrement
Ok = ModBdd.RSLirePremier(rs)
While Ok = True
' (ii) on affiche le résultat dans la listbox : rs.Fields(0) est le Nom, rs.Fields(1) est le Prénom, rs.Fields(2) est le Tel.
.list1.AddItem rs.Fields(0) & vbTab & rs.Fields(1) & vbTab & rs.Fields(2)
' (iii) on va lire l'enregistrement suivant, si le retour est False, on sort de la boucle
Ok = ModBdd.RSLireSuivant(rs)
Wend
End With
End Sub
;o)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question