[الطالب]

سلام

كود :

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_Equipment] WHERE [Ren_NO] = @Ren_NO "
    Using da As New OleDbDataAdapter(sql, conn)
        da.SelectCommand.Parameters.AddWithValue("@Ren_NO", Val(ComboBox1.Text))
        Using dt As New DataTable
            da.Fill(dt)

            DataGridView1.DataSource = dt

        End Using
    End Using
End Using

او

كود :

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_Equipment] WHERE [Ren_NO] = @Ren_NO "
    Using da As New OleDbDataAdapter(sql, conn)
        da.SelectCommand.Parameters.AddWithValue("@Ren_NO", Val(ComboBox1.Text))
        Using dt As New DataTable
            da.Fill(dt)

            DataGridView1.Rows.Clear()
            For Each row As DataRow In dt.Rows
                DataGridView1.Rows.Add(New String() {row("Equ_ID"), row("Equ_Name"), row("Equ_Quantity"), row("Ren_Date")})
            Next

        End Using
    End Using
End Using

موفقين