[mhmd_911]

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