[RESOLVED] [2005] Listbox index issue

[Genom]

Hi;

I have a table in my database which contains 2 columns: ClientID, ClientName.
I want to put Clientnames to a listbox and clientid as indexes of each clientname. eg:
ClientID ClientName
1 Boosh
4 Sarkizy
7 Bleir
95 Puteen
214 Tayyeap

Now I add every client to listbox but if I try to use insert function, so that I can add them with clientid's as their indexes, I get an error which tells me that 1 is not an available value for an index. I know that arrays are beginning with 0 in listbox but I want to store the clientid's with clientnames.

I have found a solution: I can add every item like this
Boosh [1]
Sarkizy [4]
Bleir [7] etc... But I will need their ID's later and I have to write another sub to extract their ID numbers from string. But it will limit user to use [] characters for Clientnames. Do you know a better solution?

[Negative0]

Create a Class for your names:

Public Class MyObject
    Private _name As String
    Private _ID As Integer

    Public Property Name() As String
        Get
            Return _name
        End Get
        Set(ByVal value As String)
            _name = value
        End Set
    End Property

    Public Property ID() As Integer
        Get
            Return _ID
        End Get
        Set(ByVal value As Integer)
            _ID = value
        End Set
    End Property

    Public Overrides Function ToString() As String
        Return _name
    End Function
End Class

Then when you add them to the listbox, it will use the ToString method when it displays the items in the list. So you could do something like this:

        Dim x As New MyObject
        x.Name = "Bill"
        x.ID = 5

        ListBox1.Items.Add(x)
        x = New MyObject
        x.Name = "Jane"
        x.ID = 24
        ListBox1.Items.Add(x)

Then you can access it later:

        Dim obj1 As MyObject
        obj1 = DirectCast(ListBox1.Items(1), MyObject)
        MessageBox.Show(obj1.ID.ToString)

[stimbo]

Just a suggestion, maybe a simple dictionary might be an alternative. Store ID in the key, and string in the value:

Dim ClientList As New Dictionary(Of Integer, String)

[talkro]

Dim connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test\Start.mdb;Mode = Read;" & "Persist Security Info = False")
 
Dim command As New OleDbCommand("SELECT ClientID, ClientName FROM Table1", connection)
 
connection.Open()
Dim reader As OleDbDataReader = command.ExecuteReader
Dim table As New DataTable
 
table.Load(reader)
 
' load the combobox
myListBox.DisplayMember = "ClientName"
myListBox.ValueMember = "ClientID"
myListBox.DataSource = table
 
reader.Close()
connection.Close()

[Genom]

So these mothods are really helpful for me. I will save these objects in combobox too so I will use Negative0's method. I didnt know that I can add any object like this to a listbox Ill try it.
Thanks a lot

[Genom]

I get this error
Client.ID = Dataset.Tables(TbClients).Rows(i).Item(0)
Object reference not set to an instance of an object.
But it is not happenning with Client object because i have written numbers or strings and it worked. It happens because of item of dataset I dont know how to solve it??

NOTE: TbClients is a string "Clients"
i is a integer and goes from 0 to dataset's table's rowcount - 1