Verificar Item Do Checkedlistbox

[Guest --Marks --]

Olá, tenho um checkedlistbox que carrega os itens de uma base sql, porém preciso gravar em uma outra tabela os itens com "check", consegui percorrer todos os itens do checkedlistbox, mas não consigo gravar cada item com o "check" dentro do loop que verifica cada item do checkedlistbox.

Agradeço quem puder me ajudar!

[Churc]

movendo para a área específica!

[Guest --Marks --]

Bom, parte do problema eu consegui resolver, utilizando o chkLsitBox.GetItemChecked, agora meu problema é outro, como os itens são carregados apartir de uma tabela, preciso pegar o id de cada item p/ gravar na base...

valeu!

[kuroi]

movendo para a área específica!

VB 2005?? então a area especifica não é essa, to movendo pra .NET.

mas explica melhor seu problema, porque você não consegue pegar os ids??

[Guest --Marks --]

Ok. valeu!

Bom, o problema é que tenho que percorrer todos os itens e gravar na base cada um como um regitstro, aqueles que possuem "check", mas só consegui reconhecer um único item pelo ID, então todos os outros itens como o "check" recebem o mesmo ID, já que estou pegando somente o Valor... p/ exemplificar, o código p/ teste é este:

---------------------------------------------------

Dim contSerie As Integer

Dim selSerie As Boolean

contSerie = Me.chkFasSerie.Items.Count - 1

Do Until contSerie = -1

selSerie = chkFasSerie.GetItemChecked(contSerie)

If selSerie = True Then

MsgBox(Convert.ToInt32(Me.chkFasSerie.SelectedValue.ToString)) '??? teste

End If

contSerie = contSerie - 1

Loop

Se existe o "check" estou retornando o ID na msgbox... é claro que a idéia é gravar em banco depois.

---------------------------------

Para carregar o checkedlistbox, o código é este:

Public Shared Sub PreencherChk(ByVal pCheck As Object, ByVal pTabela As String, ByVal pChave As String, ByVal pDescricao As String)

Dim strSQL As String = "SELECT " & pChave & ", " & pDescricao & " FROM " & pTabela & " ORDER BY " & pDescricao

Conn = Conectar()

Dim cmdSQL As New SqlCommand(strSQL, Conn)

Try

Dim daCheck As New SqlDataAdapter(cmdSQL)

Dim dtCheck As New DataTable(pTabela)

daCheck.Fill(dtCheck)

pCheck.DataSource = dtCheck

pCheck.DisplayMember = pDescricao.ToString

pCheck.ValueMember = pChave.ToString

Catch ex As Exception

Desconectar()

MsgBox(ex.Message, MsgBoxStyle.Critical, "Erro CheckBox")

Finally

If Conn.State = ConnectionState.Open Then Desconectar()

cmdSQL.Dispose() : cmdSQL = Nothing

End Try

End Sub

Obrigado!

[Guest --Marks --]

Boas...

Agradeço a todos que se dispuseram a resolver este problema, mas medidas alterntivas devem ser tomadas.. rs.. o bom e velho listview faz o mesmo efeito com relação a solução, provavelmente não a performance, mas por hora basta.

Mais uma vez meu muito obrigado!

Abraço a todos.