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
mcgyver
CRUZEIRO
SP - BRASIL
ENUNCIADA !
Postada em 23/11/2004 15:40 hs            
Olá amigos programadores...
Eu já fiz essa pergunta, recebi uma resposta e não deu certo, e espero que alguém me ajude com outra resposta...
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 de novo...
   
ghost_jlp
 Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 23/11/2004 17:06 hs            
Um exemplo:
 
Dim strMedicamento as String
Dim RS as ADODB.Recordset
Dim DB as ADODB.Connection
.
.
'conexão ao BD e Tabela
.
'no evento load do seu form por exemplo:
strMedicamento = InputBox("Qual medicamento deseja procurar?", "Consulta")
RS.Filter = "Nome like '" & strMedicamento & "*'" 'filtra os registros da sua tabela
 
RS.MoveF irst
Do while Not RS.EOF
 List1.AddItem RS!Cod & " - " & RS!Medicamento & " - " & RS!Data 'Adiciona os registros ao seu List
 RS.MoveNext
Loop
 
Usando o filtro vc só obtém os registros q vc digitar. No caso se vc digitar "a" vão aparecer todos os registros q começam com a letra "a". Se vc digitar "cataflan" vão aparecer todos os registros com o nome "cataflan" e assim por diante... depois é adicionado à sua lista de forma simples de modo q ficaria assim o layout do conteúdo da lista:
 
cód    medicamento data
0001 - cataflan - 23/11/2004
 
espero q te ajude... qq problema é só postar novamente
 
t+
 
obs: para q a sua tabela fique sem o filtro afim de retornar todos os registros da tabela é só fazer isso: RS.Filter = "Nome_do_Campo >= ''"
TÓPICO EDITADO
  
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