Database Filtering through Combobox

Question

0.00/5 (No votes)

See more:

Dear Frirnds,

I have combobox which i have already binded with a ms-access database.
I want to filter a row from the database based on the value of combobox.
I have written code but that not works. That is -

dim Id as Integer ( My Primery Key is Numeric)
Id = ComboBox1.selectedValue
da = new OledbDataAdapter("Select * from Table_Name where Id='"& Id &"'")
ds=new Dataset
da.Fill(ds)

' Some Code to present the data to the Window Form

Error Msg = Cannot covert the object system.data.datarow to integer.

Thanks

Posted 20-Jun-12 21:02pm

Raghubir_Sarkar

Add a Solution

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)

vangapally Naveen Kumar · Accepted Answer · 2012-06-20T21:12:00

try like this

VB

Dim cbo As String = Cboid.Text

           Dim str As String = "SELECT DISTINCT(id) FROM sample where ID='" & cbo & "' order by id"

           Dim ds1 As DataTable
           ds1 = objbs.ExcuteQuary1(str)
           CboGroup.DataSource = ds1

           CboGroup.DisplayMember = "ID"
           CboGroup.ValueMember = "ID"
           CboGroup.SelectedIndex = -1

''Bs File
 Public Function ExcuteQuary1(ByVal str As String) As DataTable
        Try


            Dim da As New SqlDataAdapter()

            ' cmd = new SqlCommand();
            cmd.Connection = conopen()
            cmd.CommandType = CommandType.Text
            cmd.CommandText = str
            da.SelectCommand = cmd

            Dim dt As New DataTable()
            da.Fill(dt)
            Return dt
        Catch ex As Exception
            CloseConnection()

            Return Nothing
        Finally
            CloseConnection()
        End Try
    End Function