We help IT Professionals succeed at work.

Populate Combos from DB and leave empty item

weight01
weight01 asked
on
Medium Priority
230 Views
Last Modified: 2010-04-23
Hi

I am populating some combos from an access db but when they are populated the first record of the table is visible.  How can i make this blank or have text such as [Enter User Name].

Thanks

Code for populating combos:

Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & Application.StartupPath & "\ITAssets.mdb")

        Dim UserAdapter As New OleDbDataAdapter("SELECT Name FROM tblUsers", conn)
       
        Dim UserDT As New DataTable("tblUsers")
       

        Call UserAdapter.Fill(UserDT)   'Execute SQL above and fill data table with records.
       

        'Populate Combo Boxes
        cboUser.DataSource = UserDT


I have tried adding a blank record to the DB and that sort of works but leaves a blank record as a choice.


Thanks
       
Comment
Watch Question

Try something like this:

    Private Sub FillList()
        mylist.DataSource = UserDT
        mylist.DataTextField = "Name"
        mylist.DataValueField = "ID"
        mylist.DataBind()
        mylist.Items.Insert(0, "--- Select a name ---")      
        mylist.SelectedIndex() = 0
    End Sub

hth
Dave

Commented:
Does

     cboUser.SelectedIndex = -1

not produce the effect you want?

Roger

Author

Commented:
Roger

Thanks did not work

Thanks anyway

Author

Commented:
Dave

Did not work

thanks anyway
What error or manifestation are you seeing?  Are you sure the data table is populated?

Author

Commented:
The combo box is being populated with the data, however, it always shows the first record.  I would like that to be either blank or some text such as [Select a User]

Author

Commented:
Just to clarify, I recieve no errors with my code and all combos are populated.  I use the following to poplulate all the combos on a form:

Public Sub FillCombos()

        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & Application.StartupPath & "\ITAssets.mdb")

        Dim UserAdapter As New OleDbDataAdapter("SELECT Name FROM tblUsers", conn)
        Dim DeptAdapter As New OleDbDataAdapter("SELECT Department FROM tblDepartment", conn)
        Dim EFCTAGAdapter As New OleDbDataAdapter("SELECT EFCTAG FROM tblEFCTags", conn)
        Dim ModelAdapter As New OleDbDataAdapter("SELECT Model FROM tblModel", conn)


        Dim UserDT As New DataTable("tblUsers")
        Dim DepartmentDT As New DataTable("tblDepartment")
        Dim EFCTagDT As New DataTable("tblEFCTags")
        Dim ModelDT As New DataTable("tblModel")


        Call UserAdapter.Fill(UserDT)   'Execute SQL above and fill data table with records.
        Call DeptAdapter.Fill(DepartmentDT)
        Call EFCTAGAdapter.Fill(EFCTagDT)
        Call ModelAdapter.Fill(ModelDT)


        'Populate Combo Boxes

        cboUser.DataSource = UserDT
        cboUser.DisplayMember = ("Name")
        cboDepartment.DataSource = DepartmentDT
        cboDepartment.DisplayMember = ("Department")
        cboEFCRef.DataSource = EFCTagDT
        cboEFCRef.DisplayMember = ("EFCTAG")
        cboModel.DataSource = ModelDT
        cboModel.DisplayMember = ("Model")

        'Types
        With cboType
            .Items.Add("Laptop")
            .Items.Add("Desktop")
            .Items.Add("Printer")
            .Items.Add("Server")
            .Items.Add("Switch")
            .Items.Add("Hub")

        End With

        'Manufacturer
        With cboManufacturer
            .Items.Add("HP")
            .Items.Add("Dell")
            .Items.Add("Cisco")
            .Items.Add("IBM")
            .Items.Add("AMD")
            .Items.Add("CMS")
            .Items.Add("ZooStorm")

        End With

        'Supplier
        With cboSupplier
            .Items.Add("Supplier A")
            .Items.Add("Supplier B")

        End With

Commented:
The "in principle" problem here is that when a combobox is bound to a datatable it will only display what it is in that datatable and it will treat everything in the datatable as a "record".  As you've discovered, if you add a "record" to the datatable to give a blank entry or some alternative such as "[please select]", a user can then select that AS A RECORD.  Normally, if you force a combobox (even when it's bound) to have NO selection, by setting it's .SelectedIndex = -1, it will show a blank entry.  But I suggested that and you say it didn't work.

The ways round this "in principle" problem are (1) not to BIND the combobox to the datatable but - like you have done with your other comboboxes - FILL it with the data from the datatable.  On these lines

        With cboType
            .Items.Add("--- Select a name ---")
            For Each dr As DataRow in UserDT
                .Items.Add(dr("Name"))
            Next
        End With

or (2) to add a "record" to the datatable, but to put code (probably in the .SelectedIndexChanged event) to treat THAT selection differently from the selection of any valid "record".

Roger

Not the solution you were looking for? Getting a personalized solution is easy.

Ask the Experts

Author

Commented:
Thanks Roger, you have confirmed to me that there is no staight forward solution.

As a solution I have already created a record in the DB user table called -- Select a User -- and included this code as part of the validation when clicking a save button to prevent a user saving that record :

ElseIf cboUser.Text = "" Or cboUser.Text = "-- Select a User --" Then
            MessageBox.Show("Please enter a User.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
            cboUser.Focus()

Thanks
Yes, here is an extension of what Roger is talking about that I should have given you. What you do is disable the Submit button or the NextList until myList.SelectedIndex <> 0

    Private Sub mylist_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mylist.SelectedIndexChanged

        If mylist.SelectedIndex = 0 Then
            Submit1.Disabled = True
            nextList.Enabled = False
        Else
            Submit1.Disabled = False
            nextList.Enabled = True
        End If
    End Sub

Dave
Access more of Experts Exchange with a free account
Thanks for using Experts Exchange.

Create a free account to continue.

Limited access with a free account allows you to:

  • View three pieces of content (articles, solutions, posts, and videos)
  • Ask the experts questions (counted toward content limit)
  • Customize your dashboard and profile

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.