[حريف برمجة]

مرحبا ،، امسح كل الموجود من الاكواد وقم بلصق هذه الاكواد كاملة .

كود :

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
   Public cn As New OleDbConnection("provider=microsoft.ACE.OLEDB.12.0;" & " data source= D:\book.accdb")

   Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
       ListBox1.Items.Clear()

       Dim cmd As New OleDbCommand
       Dim reader As OleDbDataReader
       cmd = New OleDbCommand("select * from table1 where author ='" & ComboBox1.Text & "'", cn)

       cn.Open()

       reader = cmd.ExecuteReader
       While reader.Read
           If ListBox1.Items.Contains(reader.Item(2)) = False Then
               ListBox1.Items.Add(reader.Item(2))
           End If
       End While
       cn.Close()
   End Sub

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       Dim cmd As New OleDbCommand
       Dim reader As OleDbDataReader
       cmd = New OleDbCommand("select * from table1", cn)
       cn.Open()
       reader = cmd.ExecuteReader
       While reader.Read
           If ComboBox1.Items.Contains(reader.Item(1)) = False Then
               ComboBox1.Items.Add(reader.Item(1))
           End If
       End While
       cn.Close()
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim dp As New OleDbDataAdapter("select * from table1 where author ='" & ComboBox1.Text & "' and book = '" & ListBox1.Text & "'", cn)
       Dim ds As New DataSet

       dp.Fill(ds)

       DataGridView1.DataSource = ds.Tables(0)
   End Sub

End Class