Bonjour,
J'ai un datagridview que j'ai rempli avec un table access et j'ai rajouter un combobox pour rechercher une information dans mon dgv.

Mon probleme est le suivant:
j'ai reussi a remplir mon combobox mais quand je selectionne une valeur je n'arrive pas a afficher les lignes du dgv qui correspondent

Voici mon code pour l'instant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
38
 
    Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source = Database2.accdb")
        cn.Open()
        Dim cmd As New OleDbCommand("select * from tblToolRequisition", cn)
 
        Dim AdapTContact As OleDb.OleDbDataAdapter
        Dim DtSet As New DataSet()
 
        AdapTContact = New OleDbDataAdapter(cmd)
 
        AdapTContact.Fill(DtSet, "tblToolRequisition")
 
        Dim Matable As DataTable
        Matable = DtSet.Tables("tblToolRequisition")
        DataGridView1.DataSource = Matable
 
        Dim dr As OleDbDataReader = cmd.ExecuteReader
        While dr.Read
            ComboBox1.Items.Add(dr(12).ToString)
        End While
 
        dr.Close()
        cn.Close()
 
    End Sub
 
    Private Sub ComboBox1_Click(sender As Object, e As EventArgs) Handles ComboBox1.Click
 
        Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source = Database2.accdb")
        cn.Open()
        Dim cmd As New OleDbCommand("select * from tblToolRequisition", cn)
        Dim dr As OleDbDataReader = cmd.ExecuteReader
        dr.Read()
        dr.Close()
 
    End Sub
Merci d'avance pour vos reponses