Cita:
Iniciado por Aquaventus 
ok tienes tu query... pero eso no me dice mucho sobre ¿que campos se van a seleccionar?, si bien esa consulta llena tu checkedlistbox debe haber algun campo "X" donde represente que 1 = "marcado" ó 0 = "no marcado", para yo saber que items se van a checkear, espero haber sido claro. Saludos!
Hola. Disculpa la demora.
Eso que preguntas creo que vendría siendo mi duda, porque el checkedboxlist me marca consultores, pero no me marca los que tienen que marcarse, sólo los "pinta" por orden... no sé cómo especificarle cuales tienen que ser.
éste es el método que tengo que marca en el checkedboxlist
Cita: Private Sub mostrar_consultores_en_proyectos()
Dim y As New ArrayList
Dim x As New ArrayList
For i As Integer = 0 To Me.cbl_consultores.Items.Count - 1
x.Add(guardarId.Item(i))
Next
For i As Integer = 0 To x.Count - 1
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 per_pro.id_per_fk, consultor.nom_con from consultor, " & _
"per_pro, proyectos where consultor.id_con = per_pro.id_per_fk and proyectos.id_pro = per_pro.id_pro_fk and " & _
"proyectos.id_pro = '" & cb_nom_pro.ValueMember & "'"
Dim miDA As New OleDb.OleDbDataAdapter
Dim miDS As New DataSet
miDA.SelectCommand = MiComando
miDA.Fill(miDS)
If miDS.Tables(0).Rows.Count > 0 Then
For c As Integer = 0 To miDS.Tables(0).Rows.Count - 1
ConsultoresEnProyecto.Add(miDS.Tables(0).Rows(c)(0 ))
cbl_consultores.SetItemCheckState(c, CheckState.Checked)
cbl_consultores.SetItemChecked(c, True)
Next
End If
Next
End Sub
Muchas gracias, responde cuando puedas. En caso que no sepas o no tengas tiempo, me avisas por favor. Vale ;)