Datagrid select distinct

Question

0.00/5 (No votes)

See more:

Hi,

I'm trying to create a Select Distinct query, but i'm getting stuck with either an empy combobox either a filled combobox that displays all the doubles.

I have a form (form5) with 1 combobox and 1 datagrid.
The datagrid loads 5 collumns "ID", "firm", "Fname", "mname", "Lname"

The collumn "firm" will have some double firms with people in the other collumns

ID Firm Fname Mname Lname
1 AA John N West
2 AA Jim L East
3 BB Harry Sick Long
4 CC Barry N Klote

etc.
I would like to select the firm from a combobox and filter the datagrid so that it only displays the selected firm and the people that are registred here. Furthermore i want the combobox that i use for selecting the firms to lose the doubles.

I can load the datagrid and load the Combobox, but selecting is only pointing to the record (highlights in the grid) i choose and doesn't filter. Is there anyone that can give me a clue on how to solve this.

VB

Private Sub Form5_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Kjelpasser2012DataSet.Employees' table. You can move, or remove it, as needed.
        Me.EmployeesTableAdapter.Fill(Me.passer2012DataSet.Employees)
        'Select DISTINCT "firm" from "Employees" 
        'End Select

    End Sub

VB

  'TODO: This line of code loads data into the 'passer2012DataSet.Employees' table. You can move, or remove it, as needed.

        Dim ds As New passer2012DataSet
        Dim con As New OleDb.OleDbConnection
        Dim da As New OleDb.OleDbDataAdapter("Select DISTINCT firm from Employees", con)
        Dim dt As New DataTable
'i made these text
        'Me.passer2012DataSet.Employees.Open()
        ' da.Fill(ds)
        'dt = ds.Tables(0)

        'databinding()
        cmbfirma.DataSource = ds
        cmbfirma.DisplayMember = "employeeID" 'DataTextField = "employeeID"
        cmbfirma.ValueMember = "Firma" 'DataValueField = "Firma"
        Me.EmployeesTableAdapter.Fill(Me.Kjelpasser2012DataSet.Employees)
       
        con.Close()

Thank you for your reply. I don't seem to get i to work this way.

I use the "Me.EmployeesTableAdapter.Fill" method so is it possible that i don't need to use the OLEDB connection or do i still need this to correctly connect to the DB (access)? I changed a bit in the script you had sent but this did not do the trick. Any tips?

The combobox fills with the following text.

VB

System.Data.DataViewManagerListItemTypeDescriptor

what to do about this message?

Posted 22-Feb-12 7:37am

Cardin94

Updated 4-Mar-12 23:29pm

v3

Add a Solution

Comments

Cardin94 2-Mar-12 3:39am

Can anyone shed more light on this for me?

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)

graciax8 · Answer 1 · 2012-02-22T17:55:00

Solution 1

Try this one

VB

Dim ds As New DataSet()
Dim con As New OdbcConnection(ConnStr)
Dim da As New OdbcDataAdapter("Select DISTINCT firm from Employees", con)
con.Open()
da.Fill(ds)
dt = ds.Tables(0)

'databinding
dropdownlist.DataSource = ds
dropdownlist.DataTextField = "ID"
dropdownlist.DataValueField = "Firm"
dropdownlist.DataBind()


con.Close()

Best Regards,
@iamsupergrasya

Posted 22-Feb-12 17:55pm

graciax8

Comments

Ganesan Natarajan 23-Feb-12 4:30am

dropdownlist.DataTextField = "Firm"
dropdownlist.DataValueField = "ID"

and use the ID value to fetch the data

Cardin94 24-Feb-12 13:02pm

<pre lang="vb">
'TODO: This line of code loads data into the 'passer2012DataSet.Employees' table. You can move, or remove it, as needed.

Dim ds As New passer2012DataSet
Dim con As New OleDb.OleDbConnection
Dim da As New OleDb.OleDbDataAdapter("Select DISTINCT firm from Employees", con)
Dim dt As New DataTable
'i made these text
'Me.passer2012DataSet.Employees.Open()
' da.Fill(ds)
'dt = ds.Tables(0)

'databinding()
cmbfirma.DataSource = ds
cmbfirma.DisplayMember = "employeeID" 'DataTextField = "employeeID"
cmbfirma.ValueMember = "Firma" 'DataValueField = "Firma"
Me.EmployeesTableAdapter.Fill(Me.Kjelpasser2012DataSet.Employees)

con.Close()
</pre>
Thank you for your reply. I don't seem to get i to work this way.

I use the "Me.EmployeesTableAdapter.Fill" method so is it possible that i don't need to use the OLEDB connection or do i still need this to correctly connect to the DB (access)? I changed a bit in the script you had sent but this did not do the trick. Any tips?

The combobox fills with the following text.

Collapse | Copy Code
System.Data.DataViewManagerListItemTypeDescriptor
what to do about this message?