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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Banco de Dados / ListBox
mcgyver
CRUZEIRO
SP - BRASIL
ENUNCIADA !
Postada em 22/11/2004 15:37 hs            
Olá amigos programadores...
Tenho um BDEstoque, com uma TBControle, com os campos Código, Medicamento e Data...
No meu frmEstoque, possuo um cmdPesquisa e uma LstLista.
Quando o programa começar, aparecerá um inputbox com a pergunta :"Qual medicamento deseja procurar?"
Depois disso, eu gostaria de um comando que depois que eu digitasse o medicamento, todos os nomes iguais ao que eu digitei (pois há varios nomes repetidos no BD), fossem inseridos na lstlista com seus respectivos campos código e data...
Por exemplo, se eu digitar Cataflam, todos os cataflam que eu possuo no meu bd, junto com seu código e data serão incluidos na minha lstlista...
Muito obrigado para quem me salvar neste problema...
   
Leolima
PORTO ALEGRE
RS - BRASIL
ENUNCIADA !
Postada em 22/11/2004 16:48 hs            
após ter feito a pesquisa...
if not recordset.bof then
    do while not recordset.eof
        lstlista.additen recordset("CAMPO_DA_TABELA")
        recordset.movenext
    loop
else
      msgbox "medicamento não encontrado"
end if
 
     Espero ter ajudado!!!

"A mente que se abre para novas idéias jamais volta ao seu tamanho original".
(Albert Einstein)

----------------------------------------------PII-450-256MB-GForceII-64-TV/out-Soyo----- ----Agora com Framework 1.1 + Visual Studio 2003 + WinXP.  Acredite se quiser!---- 
 Leonardo Cassuriaga                                                            Fone:(51) 96394735
 Tecnico Informática                              __o                              Programador VB6.0
 Programador Web                              _>/,                                          DBA Access
-------------------------------------------(+)/(+)__________P_o_r_t_o__A_l_e_g_r_e_RS__
Charles   Darwin :   As   espécies   que   sobrevivem   não   são   as   mais   fortes,    mas as que melhor conseguem se adaptar às mudanças!
-----------------------------------------------------------------------------------------------
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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