Afficher des données au niveau d'une listview aprés une recherche
Bonjour à tous
Voilà j'ai créé trois datacombos pour faire une recherche et je veux qu'aprés la recherche le résultat s'affiche sur la listview.
Le code pour les recherches marchent mais j'ai un problème pour le code qui permet d'afficher le résultat. Command1 est le bouton "Rechercher" qu'on clique pour commencer la recherche.
Voilà le code
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
| Private Sub Command1_Click()
Dim Critere As String
If (Trim(DataCombo1.Text) <> "") Then
If (Critere <> "") Then
Critere = Critere & " and nom_dr like '%" & Trim(DataCombo1.Text) & "%'"
Else
Critere = Critere & " nom_dr like '%" & Trim(DataCombo1.Text) & "%'"
End If
End If
If (Trim(DataCombo2.Text) <> "") Then
If (Critere <> "") Then
Critere = Critere & " and type_connexion like '%" & Trim(DataCombo2.Text) & "%'"
Else
Critere = Critere & " type_connexion like '%" & Trim(DataCombo2.Text) & "%'"
End If
End If
If (Trim(DataCombo3.Text) <> "") Then
If (Critere <> "") Then
Critere = Critere & " and type_nas like '%" & Trim(DataCombo3.Text) & "%'"
Else
Critere = Critere & " type_nas like '%" & Trim(DataCombo3.Text) & "%'"
End If
End If
If Critere <> "" Then
Critere = " Where " & Critere
End If
Debug.Print Critere
' Listview = " Select nom_agence from ListeAgences " & Critere & ";"
End Sub |
Avec un datagrid c'est plus facile mais je veux m'améliorer en vb.
J'espère que vous me comprenez.
Merci d'avance