How to Populate a Listbox from Access 2007 database by changing items from Combo Box in VB.Net

Question

0.00/5 (No votes)

See more:

Dear all
I am just developing a project in VB.Net and Access 2007 and i just got stuck at a point where I just need to Populate a Listbox from Access 2007 database but if I change an item from the combo box the listbox should change accordingly. I have the code to populate the listbox but items are not changing after changing combo box items.
Please guide me in this regard.

Private Sub frmneworder_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cmbmain.Text = "Select Main Item"
        Call loadinvestigations()
    End Sub

Sub loadinvestigations()
        Con.Open()
        Dim cmd As New OleDbCommand("select * from items", Con)
        Dim dr As OleDbDataReader = cmd.ExecuteReader
        While dr.Read
            lstitem.Items.Add(dr(1).ToString.ToUpper)
        End While
        dr.Close()
        Con.Close()

Private Sub cmbmain_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbmain.SelectedIndexChanged
       Con.Open()
       Dim cmd As New OleDbCommand("select item_name from items where cat_name='" & txtopd.Text & "'", Con)
       Dim dr As OleDbDataReader = cmd.ExecuteReader()
       While dr.Read
           lstitem.Items.Add(dr(1).ToString.ToUpper)
       End While
       dr.Close()
       Con.Close()
   End Sub

Posted 9-Dec-14 3:56am

sarfarazbhat

Add a Solution

Comments

Maciej Los 10-Dec-14 13:34pm

Replace:
Dim cmd As New OleDbCommand("select item_name from items where cat_name='" & txtopd.Text & "'", Con)
with:
Dim cmd As New OleDbCommand("select item_name from items where cat_name='" & , cmbmain.SelectedValue & "'", Con)

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

sarfarazbhat · Accepted Answer · 2014-12-13T02:41:00

Hello guys It worked finally with the following code:

VB

Private Sub cmbmain_SelectedValueChanged(sender As Object, e As EventArgs) Handles cmbmain.SelectedValueChanged
        lstitem.Items.Clear()
        Con.Open()
        Dim cmd As New OleDbCommand("select * from items where cat_name='" & cmbmain.Text & "'", Con)
        Dim dr As OleDbDataReader = cmd.ExecuteReader
        While dr.Read
            lstitem.Items.Add(dr(1).ToString.ToUpper)
        End While
        dr.Close()
        Con.Close()
    End Sub

I thank Mt Maciej Los for his kind help.
Thank you