[الوادي]

Incubus

استدعي هذه الدالة FillListBoxDataSource

PHP كود :

Private Sub FillListBoxDataSource()
    Dim sql As String = _
        "SELECT [id], " & _
        "       ([first_name]+' '+[last_name]) AS [full_name] " & _
        "FROM   [table1] "

    Using da As New OleDb.OleDbDataAdapter(sql, cnn)
        Dim dt As New DataTable
        da.Fill(dt)
        Me.ListBox1.DisplayMember = "full_name"
        Me.ListBox1.ValueMember = "id"
        Me.ListBox1.DataSource = dt
        Me.ListBox1.SelectedIndex = -1
    End Using
End Sub