Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 196
  • Last Modified:

Populate Combos from DB and leave empty item

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
       
0
weight01
Asked:
weight01
  • 5
  • 3
  • 2
1 Solution
 
davehunt00Commented:
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
0
 
SanclerCommented:
Does

     cboUser.SelectedIndex = -1

not produce the effect you want?

Roger
0
 
weight01Author Commented:
Roger

Thanks did not work

Thanks anyway
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
weight01Author Commented:
Dave

Did not work

thanks anyway
0
 
davehunt00Commented:
What error or manifestation are you seeing?  Are you sure the data table is populated?
0
 
weight01Author 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]
0
 
weight01Author 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

0
 
SanclerCommented:
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
0
 
weight01Author 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
0
 
davehunt00Commented:
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
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 5
  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now