Solved

Why is my listbox not filling?????

Posted on 2009-05-13
4
229 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
  • 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

If you're writing a .NET application to connect to an Access .mdb database and use pre-existing queries that require parameters, you've come to the right place! Let's say the pre-existing query(qryCust) in Access takes a Date as a parameter and l…
1.0 - Introduction Converting Visual Basic 6.0 (VB6) to Visual Basic 2008+ (VB.NET). If ever there was a subject full of murkiness and bad decisions, it is this one!   The first problem seems to be that people considering this task of converting…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
Migrating to Microsoft Office 365 is becoming increasingly popular for organizations both large and small. If you have made the leap to Microsoft’s cloud platform, you know that you will need to create a corporate email signature for your Office 365…

863 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

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now