Hola Jose, antes que todo, agradecerte la respuesta.
sucede que mencione mal las características de la tabla accesos, enrealidad, los datos quedan ingresados de la sgte forma:
Rut_Persona , Nivel_Acceso
-15.764.343-8 - Usuario
-14.744.843-4 - Usuario,
-14.744.843-4
- Administrador
-13.003.232-5 - Administrador
Donde por ejemplo, el rut 14.744.843-4, posee 2 niveles de acceso.
Intento extraer esta info a través de un datatable de la sgte forma, pero no logro que funcione.
Try
Dim Con As New SqlConnection(My.Settings.Conexion)
Con.Open()
cmd1.Parameters.Clear()
cmd1.CommandType = CommandType.StoredProcedure
cmd1.CommandText = "CargaNivel"
cmd1.Parameters.Add("@Rut", SqlDbType.NVarChar).Value = (ADM_ModifUser.TXT_Rut.Text.Trim())
cmd1.Connection = Con
Dim adapter As New SqlDataAdapter()
adapter.SelectCommand = cmd1
Dim table As New DataTable()
adapter.Fill(table)
Respuesta1 = cmd1.ExecuteReader
If Respuesta1.Read <> 0 Then
Respuesta1.Close()
For Each i As DataRow In table.Rows
Dim R As Integer
For R = 0 To CheckedListBox1.Items.Count - 1
If CheckedListBox1.GetItemText(R).Trim = i.Item("Modulos_Acceso") Then
CheckedListBox1.SetItemChecked(R, True)
Else
End If
(Claramente aqui no se como recorrer el checkedboxlist para que vaya comparando los items filtrados en el datatable, con los items que contiene el checkedboxlist y los marque.
Es decir, si el datatable filtra Nivel (Usuario y Administrador) posterior a la búsqueda del rut: 14.744.843-4, debiera marcar con
check, dentro del checkedboxlist, el campo Usuario y administrador para ese rut en especifico).
Next
End If
Con.Close()
Con.Dispose()
cmd1.Dispose()
Catch ex As Exception
MessageBox.Show(ex.Message)
Throw ex
End Try
Agradecería mucho la ayuda
Mis Cordiales Saludos a toda la comunidad.
