USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Carregar 2 listbox simultaneamente
Rogerio
não registrado
ENUNCIADA !
Postada em 08/06/2011 04:18 hs   
Uso vb6 e tenho as tabelas abaixo. Eu queria que ao clicar em um nome da lista de nomes automaticamente ser preenchida a lista de servicos com todos os nomes (descrição) dos serviços utilizados para cada nome clicado na lista de nomes
Já conseguir carregar a lista de nomes. Ex: clico em "joao" e na lista servicos aparece todos os serviços (descrição) feitos para joão.

Tabnomes      Tabservicos

Codnomes       Codservico
nomes             descricao                      
                      Codnomes

já fiz o join das tabelas "Tabnomes inner join Tabservicos on Tabnomes.Codnomes = Tabservicos.Codnomes, porém no código que eu fiz  deu errado pois clico num nome e vem na lista servicos todos os serviços de todos os nomes. Se alguem tiver uma dica eu agradeço.
   
Almir
não registrado
ENUNCIADA !
Postada em 08/06/2011 07:55 hs   
Você esta precisando de colocar o filtro.
Where CodNomes = 1,3,5 ou outro qualquer como textbox.
Isto é uma dica para tu raciocinar.
   
comendador
SÃO GONÇALO
RJ - BRASIL
ENUNCIADA !
Postada em 08/06/2011 08:54 hs            
cara vou te dar o caminho das índias "kkkk", no Listview existe um EVENTO chamado ITEMCLICK, nele vc coloque uma variável para receber o código da pessoa SELECIONADO:

Dim Codigo_nomes as Interge
Codigo_nomes = ListView1.SelectedItem.Text

Assim vc colocara o CÓDIGO da pessoa selecionada dentro da variável, depois é só fazer um SELECT na tabela "Tabservicos" utilizando a variável "Codigo_nomes" como WHERE

E ai vc preenche o LISTVIEW com as query! OK

Bom penso que foi isso que entendi!
   
Juan Carlos R.A
Pontos: 2843
MACEIO
AL - BRASIL
ENUNCIADA !
Postada em 08/06/2011 09:38 hs            
isso mesmo esta faltando a condição where

sim o campo codigo for string
select descricao Tabnomes inner join Tabservicos on Tabnomes.Codnomes = Tabservicos.Codnomes where Tabservicos.Codnomes='"& valor_codigo &"'

sim o campo codigo for integer
select descricao Tabnomes inner join Tabservicos on Tabnomes.Codnomes = Tabservicos.Codnomes where Tabservicos.Codnomes="& valor_codigo &"

pronto.

   
Almir
não registrado
ENUNCIADA !
Postada em 08/06/2011 09:41 hs   
Comendador;cara,estou precisando do caminho da mega sena.KKKKKKKKKKKKKKKKKKKKKKK.
Valeu
   
comendador
SÃO GONÇALO
RJ - BRASIL
ENUNCIADA !
Postada em 08/06/2011 10:26 hs            
kkkkkkk se eu soube-se kkkkkkk, quem sabe eu te passaria kkkkkkkkk.[:p]
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página