Code Required to put data in text box on selection of cmbbx

Question

I have one combo box and five text box.I required a code that when a user select an item from the combo box then the correspondence data should be in the five text box. Thanks

Khan Abrar Ahmed · Answer

HI, Instead of binding combobox manually, please add the below line ComboBox1.DataSource = myDataSet.Tables("emp").DefaultView ComboBox1.ValueMember = "EmpName" ComboBox1.DisplayMember = "EmpName" instead of and then call Dim dv As DataView = CType(ComboBox1.DataSource, DataView) For Each drv As DataRowView In dv If drv.Item("EmpID") = CType(ComboBox1.SelectedItem, DataRowView).Item("EmpId") Then TextBox1.Text = drv.Item("EmpID").ToString() TextBox2.Text = drv.Item("Designation").ToString() Exit For End If Next

Mohammad Ishaq · Answer

Yes it is work now .Thanks For your nice support. Due to you i have learn and also complete my project today. Thanks again

Vulpes · Answer

As Abrar said you're still not setting the DataSource property which is why the code is not working. If you replace this code: For Each dRow As DataRow IN myDataSet.Tables("tbleEmpl").Rows ComboBox1.Items.Add(dRow.Item("EmpName")) Next with this: ComboBox1.DataSource = myDataSet.Tables("tbleEmpl").DefaultView ComboBox1.ValueMember = "EmpName" ComboBox1.DisplayMember = "EmpName" then it should work.

Mohammad Ishaq · Answer

Object reference not set to an instance of an object. I receive this error message Online "For Each drv As DataRowView In dv"

Mohammad Ishaq · Answer

i have check everything but still in problem and my code give error.if you don't mind please check my screen shot and let me know the problem.This time i have open complete new file. Thanks

Vulpes · Answer

Well, in the previous image that you posted, it looked to me like the name of the column was 'Salry' (not 'Salary' as I'd have expected). However, I've just noticed that the table was called 'tbl' in that image and the one we're using now is called 'emp'. So does the latter table have columns with the same names?

Mohammad Ishaq · Answer

as you mention i have change Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM emp", con) The code is ok for the first text box but gives error on 2nd text box.please refer to my screen shot.Thanks

Vulpes · Answer

Ah, just noticed that this line is only fetching the EmpName column: Dim cmd As OleDbCommand = New OleDbCommand("SELECT EmpName FROM emp", con) You need it to fetch all 3 columns so change it to: Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM emp", con)

Mohammad Ishaq · Answer

Still Error Message . Please review the screen shot and point out my mistake.Thanks

Vulpes · Answer

Well, you're now populating the combobox 'manually' rather than using data-binding. The DataSource will therefore be Nothing and the code won't work. Also the code needs to be in the ComboBox_SelectedIndexChanged method rather than in Form_Load. I'd therefore change the code in Form_Load back to how you originally had it: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\a.accdb;") Dim cmd As OleDbCommand = New OleDbCommand("SELECT EmpName FROM emp", con) con.Open() Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim myDataSet As DataSet = New DataSet() myDA.Fill(myDataSet, "emp") ComboBox1.DataSource = myDataSet.Tables("emp").DefaultView ComboBox1.ValueMember = "EmpName" ComboBox1.DisplayMember = "EmpName" con.Close() con = Nothing End Sub and the code in the SelectedIndexChanged event handler to: Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.SelectedIndex > -1 Then Dim dv As DataView = CType(ComboBox1.DataSource, DataView) For Each drv As DataRowView In dv If drv.Item("EmpName") = CType(ComboBox1.SelectedItem, DataRowView).Item("EmpName") Then TextBox1.Text = drv.Item("EmpID").ToString() TextBox2.Text = drv.Item("Salry").ToString() Exit For End If Next End If End Sub

Mohammad Ishaq · Answer

Hello According to your instruction i have made some change and put only two text boxes instead of five to clear things.Text Box1 and Text Box2.Now i set your code in such a way that when i select any item from the combo box,the two text boxes pick the data of next two column.I mean that when i select any name from combo box , then the Text Box 1 Shows his ID and Salary.I change your code according to this but when i run the code, it execute successfully but the text boxes shows nothing.I m attached my code screenshot please let me guide and point out my mistake i will be very thank full to you.

Vulpes · Answer

It looks like the name of the displayed column in the combobox is EmpName rather than EmpID so you'll need to change the code to the following. If there are any other errors like this, then just change the code to reflect the correct name of the column: Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.SelectedIndex > -1 Then Dim dv As DataView = CType(ComboBox1.DataSource, DataView) For Each drv As DataRowView In dv If drv.Item( "EmpName" ) = CType(ComboBox1.SelectedItem, DataRowView).Item(" EmpName" ) Then TextBox1.Text = drv.Item(" EmpName") .ToString() TextBox2.Text = drv.Item("Designation").ToString() TextBox3.Text = drv.Item("Department").ToString() TextBox4.Text = drv.Item("Job Title").ToString() TextBox5.Text = drv.Item("Salary").ToString() Exit For End If Next End If End Sub

Mohammad Ishaq · Answer

Please check the screen shot this time it gives the error of different type.

Mohammad Ishaq · Answer

I have bend the combo box using the following code. and its ok. Imports System.Data.OleDb Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\a.accdb;") Dim cmd As OleDbCommand = New OleDbCommand("SELECT EmpName FROM emp", con) con.Open() Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim myDataSet As DataSet = New DataSet() myDA.Fill(myDataSet, "emp") ComboBox1.DataSource = myDataSet.Tables("emp").DefaultView ComboBox1.ValueMember = "EmpName" ComboBox1.DisplayMember = "EmpName" con.Close() con = Nothing End Sub

Vulpes · Answer

I can see from the screenshot that Mohammad is binding to a DataView rather than a DataTable so the code will need to be changed to this: Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.SelectedIndex > -1 Then Dim dv As DataView = CType(ComboBox1.DataSource, DataView) For Each drv As DataRowView In dv If drv.Item("EmpID") = CType(ComboBox1.SelectedItem, DataRowView).Item("EmpId") Then TextBox1.Text = drv.Item("EmpID").ToString() TextBox2.Text = drv.Item("Designation").ToString() TextBox3.Text = drv.Item("Department").ToString() TextBox4.Text = drv.Item("Job Title").ToString() TextBox5.Text = drv.Item("Salary").ToString() Exit For End If Next End If End Sub

Khan Abrar Ahmed · Answer

Hi can you send the combo box binding, means how you are bind the combo box.

Mohammad Ishaq · Answer

I have change the text box name according to my name . but the code still given me the error on the line i have high lite.I have also attached the screen shot for understanding.Please guide me a little more. I m using VB2008 and ms access 2007. Access file name : a Thanks Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim selectedItem As String = ComboBox1.Items(ComboBox1.SelectedIndex) TextBox1.Text = selectedItem TextBox2.Text = selectedItem TextBox3.Text = selectedItem TextBox4.Text = selectedItem TextBox5.Text = selectedItem End Sub

Mohammad Ishaq · Answer

First of all i m very thankful to you.As i m new to learn vb and i know that my question is stupid. My Access Source File name : a And the table name is : emp The code you given me is ok but it gives error on one line .I have mention it below . I have also attached the screen shot for better understand. So please let me guide a little more. Thanks again Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.SelectedIndex > -1 Then Dim dt As DataTable = CType(ComboBox1.DataSource, DataTable) For Each dr As DataRow In dt.Rows If dr.Item("EmpID") = CType(ComboBox1.SelectedItem, DataRowView).Item("EmpId") Then TextBox1.Text = dr.Item("EmpID").ToString() TextBox2.Text = dr.Item("Designation").ToString() TextBox3.Text = dr.Item("Department").ToString() TextBox4.Text = dr.Item("Job Title").ToString() TextBox5.Text = dr.Item("Salary").ToString() Exit For End If Next End If

Vulpes · Answer

OK, assuming the data source is a DataTable, try this: Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.SelectedIndex > -1 Then Dim dt As DataTable = CType(ComboBox1.DataSource, DataTable) For Each dr As DataRow In dt.Rows If dr.Item("EmpID") = CType(ComboBox1.SelectedItem, DataRowView).Item("EmpId") Then TextBox1.Text = dr.Item("EmpID").ToString() TextBox2.Text = dr.Item("Designation").ToString() TextBox3.Text = dr.Item("Department").ToString() TextBox4.Text = dr.Item("Job Title").ToString() TextBox5.Text = dr.Item("Salary").ToString() Exit For End If Next End If End Sub

Mohammad Ishaq · Answer

I have one combo box with EmpID.and Five Text boxes.I want that when i select the EmpID of someone,then the of that ID should be fill in First Box,Disignation should be in 2nd box,Department should be in 3rd box job title should be in 4the box and salary should be apear in 5th box. Thanks

Khan Abrar Ahmed · Answer

Hi, you can try this. Use the SelectedIndexChanged event: and in the code Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yearLevel.SelectedIndexChanged Dim selectedItem As String = ComboBox1.Items(ComboBox1.SelectedIndex) txtbox1.text = selecteditem txtbox2.text = selecteditem txtbox3.text = selecteditem txtbox4.text = selecteditem txtbox5.text = selecteditem End Sub

Vulpes · Answer

Well. you could copy the selected item in the combobox to the first textbox by handling the former's SelectedIndexChanged event as follows: Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.SelectedIndex > -1 Then TextBox1.Text = ComboBox1.SelectedItem.ToString() End If End Sub However, you say that the correspondence data should be copied to all 5 textboxes. Can you explain what you mean by this please.

Code Required to put data in text box on selection of cmbbx

Insert Link

Embed YouTube Video

Table Options

Insert Image

Answers (22)