Cita: Private Sub llenar_clb_TODOS_consultores()
Dim MiConexion As New OleDb.OleDbConnection
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Documents and Settings\practia\Escritorio\practia trabajo\Empresa - copia\staff2003.mdb"
MiConexion.Open()
Dim MiComando As New OleDb.OleDbCommand
MiComando.Connection = MiConexion
MiComando.CommandText = "select * from consultor"
Dim miDA As New OleDb.OleDbDataAdapter
Dim miDS As New DataSet
miDA.SelectCommand = MiComando
'El Data adapter llena el data set
miDA.Fill(miDS)
Dim X As Integer
max = miDS.Tables(0).Rows.Count
For X = 0 To max - 1
cbl_consultores.Items.Add(miDS.Tables(0).Rows(X)(3 ) + " " + miDS.Tables(0).Rows(X)(4))
guardarId.Add(miDS.Tables(0).Rows(X)(0))
Next
'Cerramos la conexion
MiConexion.Close()
End Sub
De esta manera traigo los nombres de los items (son consultores) que existen de la base de datos al checkedlistbox. En caso que hayan detalles que no se entiendan mucho, puse un array (guardarId) al momento de llamar a los consultores, que lo marqué en negrita. Ese array guarda las Id's de los consultores que muestra el checkedlistbox. Los consultores los traigo por nombre y apellido al checkedlistbox.