RECUPERAR DADOS DE UMA LISTBOX
Boa Noite,
Eu tenho salvo no banco de dados a seleção feita de uma listbox, como ela é multiselect, salvo no banco de dados as informações separando por virgula, minha dúvida é, como faço para recuperar a informação par visualização no listbox para trazer os Ãtens selecionados?
Para inserir no banco utilizo o seguinte código:
For i = 0 To CA_LIST_09.ListCount - 1
If CA_LIST_09.Selected(i) Then rst([Ô]Lista9[Ô]) = rst([Ô]Lista9[Ô]) & CA_LIST_09.List(i) & [Ô],[Ô]
Next
Obrigado.
Eu tenho salvo no banco de dados a seleção feita de uma listbox, como ela é multiselect, salvo no banco de dados as informações separando por virgula, minha dúvida é, como faço para recuperar a informação par visualização no listbox para trazer os Ãtens selecionados?
Para inserir no banco utilizo o seguinte código:
For i = 0 To CA_LIST_09.ListCount - 1
If CA_LIST_09.Selected(i) Then rst([Ô]Lista9[Ô]) = rst([Ô]Lista9[Ô]) & CA_LIST_09.List(i) & [Ô],[Ô]
Next
Obrigado.
Consegui resolver com esse código, não sei se o melhor mais funcionou!!!
lista_1 = Split(rst([Ô]lista1[Ô]), [Ô],[Ô])
Do While para <> 1
i = i + 1
If lista_1(i) = [Ô][Ô] Then para = 1
For x = 0 To CA_LIST_01.ListCount - 1
If CA_LIST_01.List(x) = lista_1(i) Then CA_LIST_01.Selected(x) = True
Next
Loop
lista_1 = Split(rst([Ô]lista1[Ô]), [Ô],[Ô])
Do While para <> 1
i = i + 1
If lista_1(i) = [Ô][Ô] Then para = 1
For x = 0 To CA_LIST_01.ListCount - 1
If CA_LIST_01.List(x) = lista_1(i) Then CA_LIST_01.Selected(x) = True
Next
Loop
Tópico encerrado , respostas não são mais permitidas