Sub getClient()
Dim lvItem As ListItem
Dim strSearchValue As String
Dim intSearch As Integer
'Effacer valeurs précédentes
Ugar.lvwClient.ListItems.Clear
intSearch = 0
'Réinitialiser SQL
gstrSQL = vbNullString
gstrSQL = " SELECT * FROM Client"
'RECHERCHE NOM CLIENT
If Ugar.txbRechercheClientNom <> vbNullString Then
gstrSQL = gstrSQL & " AND [Nom] LIKE '%" & Ugar.txbRechercheClientNom & "%'"
End If
'Obtenir données des clients
'Gestion des erreurs
On Error GoTo ErrorRecSet
'Ouverture du RecSet
Set gstrRecSet = New ADODB.Recordset
gstrRecSet.Open gstrSQL, gstrObjCon, adOpenDynamic, adLockOptimistic, adCmdText
Do While Not gstrRecSet.EOF
'Adds rows and load the file in the list
Set lvItem = Ugar.lvwClient.ListItems.Add(, , Format(GetDB(gstrRecSet.Fields("NoPlaque"), xlText)))
With lvItem
.ListSubItems.Add , , Format(GetDB(gstrRecSet.Fields("Marque"), xlText))
.ListSubItems.Add , , Format(GetDB(gstrRecSet.Fields("NoClient"), xlText), "0000")
.ListSubItems.Add , , Format(GetDB(gstrRecSet.Fields("Nom"), xlText))
.ListSubItems.Add , , Format(GetDB(gstrRecSet.Fields("Prenom"), xlText))
.ListSubItems.Add , , Format(GetDB(gstrRecSet.Fields("Statut"), xlText))
.ListSubItems.Add , , Format(GetDB(gstrRecSet.Fields("Adresse"), xlText))
.ListSubItems.Add , , Format(GetDB(gstrRecSet.Fields("Appt"), xlText))
.ListSubItems.Add , , Format(GetDB(gstrRecSet.Fields("Ville"), xlText))
.ListSubItems.Add , , Format(GetDB(gstrRecSet.Fields("CodePostal"), xlText))
.ListSubItems.Add , , Format(GetDB(gstrRecSet.Fields("TelMaison"), xlText))
.ListSubItems.Add , , Format(GetDB(gstrRecSet.Fields("TelBureau"), xlText))
.ListSubItems.Add , , Format(GetDB(gstrRecSet.Fields("TelPosteBureau"), xlText))
.ListSubItems.Add , , Format(GetDB(gstrRecSet.Fields("TelCellulaire"), xlText))
.ListSubItems.Add , , Format(GetDB(gstrRecSet.Fields("Email"), xlText))
End With
gstrRecSet.MoveNext
Loop
'Fermeture du RecSet
gstrRecSet.Close
Set gstrRecSet = Nothing
Exit Sub
ErrorRecSet:
MsgBox "Une erreur est survenue lors de la récupération des données pour ce client." & vbCrLf & vbCrLf & "Veuillez aviser l'assistance technique pour vérifier ce problème." & vbCrLf & "Merci.", vbCritical, "Erreur d'exécution"
End Sub