Commande de recherche

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