Hi i am trying to retrieve information from two database tables so that the information can be used to update a listview. The only problem is that this requires me to bind a combo box and i have no idea how to do this so that it actually works.

Here is my code so far:

Private Sub populateCboClient()

        sourceData = New DatabaseConnection

        Dim dataSet As New DataSet

        Try
            ' Get all clients in a DataReader object
            sourceData.SQL = "qryClientName"
            sourceData.InitialiseCommand()
            sourceData.OpenConnection()

            sourceData.DataReader = sourceData.Command.ExecuteReader

            sourceData.FillDataSet(dataSet, "tblClients")

            ' check data exists
            If sourceData.DataReader.HasRows Then
                ' process all rows
                'While sourceData.DataReader.Read()

                'cboClient.Items.Add(sourceData.DataReader.Item("C liName"))
                cboClient.DataSource = sourceData.DataReader

                cboClient.DisplayMember = "qryClientName"
                cboClient.ValueMember = "CliAccountNumber"

                'cboClient.DataBindings(dataSet)

                'End While

            End If

            sourceData.DataAdapter.Dispose()

        Catch ExceptionErr As Exception
            MessageBox.Show(ExceptionErr.Message)

        Finally
            ' cleanup
            sourceData.Dispose()
            sourceData = Nothing

            dataSet.Dispose()
            dataSet = Nothing

        End Try

    End Sub

I don't understand how to actually bind the information so that the Client Name is the piece of information showing in the cbo and Client Number is the piece of information being used to perform search to update List View.

Any ideas?

Thanks

Amethyst

hi there.. my first idea.. try this post in the .net forum ;) you will have better luck than here...

i dont remember the exact code, but dont you have an example in the msdn about this???

HTH

Gonzalo

no or else i wouldn't be asking, the new code, is as follows:

sourceData = New DatabaseConnection

        Dim dataSet As New DataSet

        Try
            ' Get all clients in a DataReader object
            sourceData.SQL = "qryClientName"
            sourceData.InitialiseCommand()
            sourceData.OpenConnection()

            sourceData.DataReader = sourceData.Command.ExecuteReader

            sourceData.FillDataSet(dataSet, "qryClientName")

            ' check data exists
            If sourceData.DataReader.HasRows Then
                ' process all rows
                'While sourceData.DataReader.Read()

                'cboClient.Items.Add(sourceData.DataReader.Item("C liName"))
                cboClient.DataSource = sourceData.DataReader

                cboClient.DisplayMember = sourceData.DataReader.GetInt16(0)
                cboClient.ValueMember = sourceData.DataReader.GetString(1)

                'cboClient.DataBindings(dataSet)

                'End While

            End If

            'sourceData.DataAdapter.Dispose()

        Catch ExceptionErr As Exception
            MessageBox.Show(ExceptionErr.Message)

        Finally
            ' cleanup
            sourceData.Dispose()
            sourceData = Nothing

            'dataSet.Dispose()
            'dataSet = Nothing

        End Try

but this is telling me that the connection its using is open, and therefore not available to use. I'm really struggling with how to do this.

thanks

Amethyst