Solved

Why is my listbox not filling?????

Posted on 2009-05-13
4
257 Views
Last Modified: 2012-08-14
I am missing something, just not sure what.
I am filling a listbox using a dataset.  There is 1 record in the table and when I do message boxes to show if there are any items in the listbox, it shows that there is the 1 item, but the item does not show in the list box.
What am I doing wrong???
Below I use messageboxes to check that there is an item.
Private Sub FillTaskList(Optional ByVal bStartUp As Boolean = False)
        Dim cT As New cTasks(ConnectionString)
 
        cT.FillList(Me.lstTasks)
        MessageBox.Show(Me.lstTasks.Items.Count)
        If bStartUp Then
            cT.SetupTaskLUGrid(Me.fpGrdTasks)
            MessageBox.Show(Me.lstTasks.Items.Count)
            Me.lstTasks.SelectedIndex = -1
            MessageBox.Show(Me.lstTasks.Items.Count)
        End If
    End Sub
 
I fill the list using
Private Function SQLCombo() As String
        Dim str As String
 
        str = "SELECT TaskID, " _
        & " TaskName " _
        & " FROM TasksLU " _
        & " ORDER BY TaskName"
 
        Return str
 
    End Function
 
 
 
 
    Public Sub FillList(ByVal cnt As ListBox)
        Dim ds As New DataSet
 
        If DatabaseToUse() = BizObjs.DBType.Access Then
            'Access Database
            Dim dc As New OleDb.OleDbConnection(ConnectionString)
            Dim da As New OleDb.OleDbDataAdapter(SQLCombo, dc)
 
            Try
 
                da.Fill(ds)
                dc.Close()
                cnt.DataSource = ds.Tables(0)
                cnt.DisplayMember = "TaskName"
                cnt.ValueMember = "TaskID"
 
            Catch ex As Exception
 
                MessageBox.Show(ex.Message)
                ''Throw ex
 
            Finally
                dc.Close()
                da.Dispose()
            End Try
        End If
 
    End Sub

Open in new window

0
Comment
Question by:Sheritlw
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
4 Comments
 
LVL 9

Accepted Solution

by:
Deathrace earned 250 total points
ID: 24377378
0
 

Author Comment

by:Sheritlw
ID: 24377450
This is a windows form VB 2008 net app and the listbox does not have a databind property.
Thanks
0
 
LVL 11

Assisted Solution

by:srikanthreddyn143
srikanthreddyn143 earned 250 total points
ID: 24378054
Try

Public Sub FillList(ByRef cnt As ListBox)
0
 

Author Comment

by:Sheritlw
ID: 24378092
unfortunately that didn't work:-(
0

Featured Post

On Demand Webinar: Networking for the Cloud Era

Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way. I've always enjoyed working with graphics, but it's never too clever to re-invent …
Introduction As chip makers focus on adding processor cores over increasing clock speed, developers need to utilize the features of modern CPUs.  One of the ways we can do this is by implementing parallel algorithms in our software.   One recent…
This is a high-level webinar that covers the history of enterprise open source database use. It addresses both the advantages companies see in using open source database technologies, as well as the fears and reservations they might have. In this…
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…

734 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question