[0theghost0]

هذا الكود عبارة عن قراءة البيانات ووضعها في listview
المطلوب هو تغيير من listview الى DataGrideView

كود :

Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
           Dim sql As String = " Select * from [Rent] WHERE [Cus_Balance] = @Cus_Balance "
           Using da As New OleDbDataAdapter(sql, conn)
               da.SelectCommand.Parameters.AddWithValue("@Cus_Balance", Val(ComboBox1.Text))
               Using dt As New DataTable
                   da.Fill(dt)
                   ListView1.Items.Clear()
                   For Each row As DataRow In dt.Rows
                       ListView1.Items.Add(New ListViewItem({row("Equ_Name"), row("Equ_Qantity"), row("Rent_Date")}))
                   Next
               End Using
           End Using
       End Using