كومبوبوكس وليست بوكس وداتاقريد وربطهن بزر عرض

كود :

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

كود :

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

PHP كود :

Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        'Dim cmd As New OleDbCommand
        'Dim reader As OleDbDataReader
        'cmd = New OleDbCommand("select * from table1 where author ='" & ComboBox1.Text & "'", cn)

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

        Dim t As New DataTable

        cn.Open()
        t.Load(cmd.ExecuteReader)
        cn.Close()

        ListBox1.DataSource = t 'cmd.ExecuteReader(0)
        ListBox1.DisplayMember = "book"

        '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
    End Sub

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

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

        Dim t As New DataTable



        cn.Open()

        t.Load(cmd.ExecuteReader)

        cn.Close()





        DataGridView1.DataSource = t