(VB 2010 express)Listbox da database

[Pinzid]

Scusate l'ignoranza ma è da poco che mi sono convinto di poter fare un programma, ed ora mi trovo con un problemino stupido che però nn riesco a risolvere, ho una listbox, e vorrei metterci dentro i dati di un database creato direttamente in vb, se faccio fare in automatico a vb allora tutto ok, ma se provo a mettere io il codice non riesco a trovare il codice esatto

ListBoxinventario1.Items.Add(Databaseoggettiinvent ario1DataSet.Tables("Oggetti").Columns("Nome").row s(0).item(0))

con questo riesco ad avere ogni singolo lemento uno per volta, mi sembra impossibile che nn ci sia la funzione per ottenerli tutti.
come devo fare?

[gibra]

Prova così:

listBox1.DataSource = tuodataset.tables("tabella")
listBox1.DisplayMember = "Nome"
listBox1.ValueMember = "ID"  ' per salvare l'ID del record selezionato.

[Pinzid]

Perfetto grazie mille perfetto,
ultima cosa, e se volessi mettere nello stesso item, più colonne? la & o il + non mi danno risultati
ListBoxinventario1.DisplayMember = "Nome" & "Peso"

[gibra]

Non puoi.

Devi aprirti un DataReader sui campi che ti interessa mostrare, poi potrai popolare il combobox concatenando le colonne:

Dim OleDbConnectionString As String = <stringa di connessione al database>
Using conn As OleDbConnection = New OleDbConnection(OleDbConnectionString)
    Dim sql As String = "SELECT campo1, campo2 FROM tabella"
    Dim aCommand As OleDbCommand = New OleDbCommand(sql, conn)
    Using aReader As OleDbDataReader = aCommand.ExecuteReader
        cboFields.Items.Clear()
        If aReader.HasRows Then
            While aReader.Read()
                cboFields.Items.Add(aReader(0).ToString + " " + aReader(1).ToString)
            End While
        End If
    End Using
End Using