¿Recorrer checkedlistbox para pintar items?

[Zergatul]

Hola que tal.
Estoy trabajando en un form de windows en visual basic, la versión de visual studio 2005 y tengo un checkedlistbox... tengo una duda, no sé como recorrer ese checkedlistbox para que seleccione los items que ya están marcados.

Tengo un query (la pondré porsiacaso)

MiComando.CommandText = "select per_pro.id_per_fk, 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 & "'"

Y este código para que los seleccione:

'For c As Integer = 0 To miDS.Tables(0).Rows.Count - 1

ConsultoresEnProyecto.Add(miDS.Tables(0).Rows(c)(0 ))
checkedlistbox1.SetItemCheckState(c, CheckState.Checked)
checkedlistbox1.SetItemChecked(c, True)

Ese ùltimo código me marca items, pero no los que deben, sólo me llena los items que encuentra por orden, pero no los que deberían estar seleccionados...

Por favor, si alguien sabe o a echo algo así que me diga como solucionarlo, llevo con este problema toda estas semanas, si es posible ¡Muchas gracias!

[Aquaventus]

Hola Zergatul para saber quienes estan seleccionados utiliza este codigo :

Código vb.net:

Dim i As Integer
        Dim mensaje As String
        mensaje  = "Items Seleccionados :" & ControlChars.CrLf
        For i = 0 To (CheckedListBox1.Items.Count - 1)
            If CheckedListBox1.GetItemChecked(i) = True Then
                mensaje  = mensaje  & "Item " & (i + 1).ToString & " = " & CheckedListBox1.Items(i).ToString & ControlChars.CrLf
            End If
        Next
        MessageBox.Show(mensaje )
 

[Zergatul]

Hola aquaventus, muchas gracias por la respuesta. Soy algo lerdo en visual basic. Pero por lo que estoy viendo en tu respuesta me muestra un msgbox de los que seleccioné manualmente.
Tal vez mi pregunta no se entendió bien, lo que quiero hacer esque en base a la query que expongo arriba, automáticamente se seleccionen los items del checkedlistbox en base al resultado que salió en esa query

saludos ;).
Disculpa en caso que la respuesta que me diste era lo que estoy preguntando en verdad. Muchas gracias

[Aquaventus]

ah ok, entonces podrias colocar tu codigo de como cargas los datos a tu checkedlistbox para ver como comparas cuales estan marcadas para hacer los respectivos checks. Saludos!

[Zergatul]

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.

[Aquaventus]

ok hasta ahi bien, ahora como puedo saber que campos se van a marcar? que columna del datatable dentro de tu dataset es el que identifica que se van a marcar?

[Zergatul]

Iniciado por Aquaventus

ok hasta ahi bien, ahora como puedo saber que campos se van a marcar? que columna del datatable dentro de tu dataset es el que identifica que se van a marcar?

Aquaventus, gracias por tu tiempo por intentar ayudarme. Compadrito, espero no molestartem, ahora no estoy en la sala ya que estoy ahora en horario de colación. No creo que tarde mucho, vuelvo y posteo.

PD: Sobre tu pregunta, ¿tu quieres que te mande la query con la que indico que campos se marcan?, la query está arriba en todo caso ¿o deseas otro detalle?.

vaaale

[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!

[Zergatul]

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

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 ;)

[Aquaventus]

entonces...?? no entiendo porque llenas sino sabes cuales marcar???, para eso deberias tener un campo mas en tu tabla con valor 0 o 1 para identificar cuales marcar al momento de llamar.

[Aquaventus]

mira lo que haces esta bien pero ahi en tu for tienes que identificar ¿Qué o Cuales quieres marcar? por ejemplo :

Trabajando con un "SUPUESTO" que aquellos que tengan estado "habilitado" esten marcados :

Código vb.net:

'        'Recorro toda la lista
        For i = 0 To (CheckedListBox1.Items.Count - 1)
            'Aquellos que digan "habilitados" se marcaran
            If CheckedListBox1.Items(i).ToString.Equals("habilitado") Then
                'Los marco
                CheckedListBox1.SetItemChecked(i, True)
            End If
        Next
 

Espero que me hayas comprendido. que para que selecciones a un item debes saber ¿Cuales vas a seleccionar? por algo en particular. Saludos!

[MKiske]

saludos ....
si tienes en la tabla los valores para marchar el checklist lo que debes realizar es consultar los datos arrojarlos a un data table y crear un for each en donde recorres la tabla y determinas si el registro que lleve el for each tiene como valor true para que te marqhe la opcion....

[rikakashi]

Yo tengo una duda respecto a esto... yo cargo mis datos y los muestro en mi CheckedListBox. como puedo realizar esta comparacion

mi item seleccionado = checked true

[mvazquez]

Que tal colega, aqui esta tu solucion:

for (int i = 0; i < CheckedListBox.Items.Count; i++)
{
CheckedListBox.SetItemChecked(i, false);
}

Saludos.

PD: si te sirvio calificame!!