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

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Busca Avançada em banco de dados
Postada em 2/9/2004 por BRTS            

List1.Clear
Dim lst As String
Data1.Recordset.FindFirst "CampoBusca like'" & Text1.Text & "'"
lst = Data1.Recordset.Fields(0)
List1.AddItem lst

Do
Data1.Recordset.FindNext "campoBusca like'" & Text1.Text & "'"
If Data1.Recordset.NoMatch Then GoTo fim
lst = Data1.Recordset.Fields(0)
List1.AddItem lst
Loop
Exit Sub
fim:
 


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