VB.NET - Make list box selection show other details in textboxes

Asked By kibika on 03-Jan-13 12:04 PM

I am populating a list box from Ms Access database with several fields from a specific table(EmployeeInfo). What I want to do is on selection of an item int he list box, display each field in the table to respective textboxes.

Thanks.

sundar k replied to kibika on 04-Jan-13 05:42 PM

try the below code
For i As Integer = 0 To <listboxvariablename>.SelectedItems.Count - 1
    <textboxcontrolname>.Text &= DirectCast(<listboxvariablename>
.SelectedItems(i), DataRowView)(1).ToString & vbCrLf
Next

Make list box selection show other details in textboxes - kibika replied to sundar k on 05-Jan-13 12:34 AM

I am using the code below. I have a list box in which there are some some names of people, on selecting a name, the details pertaining on the selected name should be displayed in textboxes. I am using the following code but it does not work. What am I doing wrong or how do I use your code to make it run.

Thanks.

Private Sub lstEmployees_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstEmployees.SelectedIndexChanged

Dim dbSource As String = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Payroll.mdb"

Dim db_command As New OleDbCommand, reader As OleDbDataReader

con.ConnectionString = dbSource

con.Open()

db_command.CommandText = "Select * from Employees where EmployeeNo = " & lstEmployees.SelectedIndex.ToString & ""

db_command.Connection = con

reader = db_command.ExecuteReader()

If (reader.read()) Then

TextBox1.Text = reader("FirstName").ToString

TextBox2.Text = reader("LastName").ToString

reader.close()

con.Close()

End If

End Sub