SELECT EM CAIXA DE LISTAGEM

 Tópico anterior Próximo tópico Novo tópico

SELECT EM CAIXA DE LISTAGEM

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#438343 - 19/05/2014 14:29:20

EDINALDOLA
RIO DE JANEIRO
Cadast. em:Junho/2009


Amigos algum sabe qual a instruo que devo fazer para um select em uma caixa de listagem ? Exemplo: Tenho uma caixa de listagem com 50 registros. Dai o usurio seleciona 10 desses registros, que podero ser ou no em ordem de sequncia. Da preciso executar um select em uma tabela para, por exemplo, dar um bnus de 10% na prxima compra dos clientes referentes aos 10 registros selecionados nesta caixa de listagem.
Se algum puder ajudar, agradeo.




Resposta escolhida #438344 - 19/05/2014 15:50:12

TECLA
SAO PAULO
Cadast. em:Janeiro/2001


Membro da equipe
Voce j consegue obter os itens selecionados?




#438360 - 20/05/2014 12:10:31

EDINALDOLA
RIO DE JANEIRO
Cadast. em:Junho/2009


Consigo selecionar os registros na caixa de listagem. Agora o que no estou conseguindo identificar estes registros para o select. No sei se a caixa de listagem possui alguma propriedade que possa utilizar no WHERE do select.



#438368 - 20/05/2014 17:35:46

TECLA
SAO PAULO
Cadast. em:Janeiro/2001


Membro da equipe
O que precisa fazer percorrer os itens do listbox e verificar se a propriedade selected = true.

dim selecionado as string, i as integer
for i = 0 to list1.listcount - 1
  if list1.selected (i) = true then
    selecionado = selecionado & list1.list (i) & [], []
  end if
next i

selecionado = left (selecionado, len (selecionado) - 2)

Quando voc for montar a expressao SQL s concatenar com o valor da varivel []selecionado[].

... WHERE campo IN ([] & selecionado & [])[]





#438531 - 27/05/2014 11:19:47

EDINALDOLA
RIO DE JANEIRO
Cadast. em:Junho/2009


                  Tecla, deu certo, fiz apenas algumas modificaes, conforme abaixo, e funcionou. Obrigado. Vou encerrar o tpio e pontuar voc.                  

                   Dim I as Integer
                   Dim Selecionado as Integer

                   For I = 0 To Lista1.ListCount - 1
                        If ListaI1.Selected(I) = True Then
                            Selecionado = Lista1.Column(1, I)
                            ....
                            ([]Select Campo FROM Tabela WHERE Campo=[] & Selecionado & [][])
                           ....
                        End If
                    Next I




 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por EDINALDOLA em 27/05/2014 11:20:33