|
|
Postada em 18/09/2004 21:50 hs
Bem pessoal depois de um tempo parado com o VB agora estou de volta com o gás total...mas ja tenho dúvida desde a época que eu parei com oa pramação..
Eu tenho um formulário com um textbox e um listview....no listview eu exibo vários campos de uma tabela em access usando o 3.6 (NOME, ENDEREÇO, Numero...Bem a minha dúvida é seguinte....vamos supor que eu tenho um cadastro entre 200 diferentes assim:
Nome = Ricardo Alexandre Centeno
Endereço = Rua das Aprendiz
Número = 11447
Se eu digitar assim: [b] no [/b] (Centeno), [b] das [/b], [b] 44 [/b] teria que entre muitos registros filtrar o meu nome com todos os dados digitados acima....Um exemplo de um programa que faz isso é o winamp ele filtra como o nome do artista + nome da música + pasta aonde ele está localizado sem ser precisas as digitações....basta ter uma letra ele filtra...
Agradeço desde ja |
|
|
|
|
|
caco
|
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 18/09/2004 22:08 hs
Oi! O Listview tem o método FindItem para buscar pelos items. Há muito tempo atrás respondi uma dúvida explicando em detalhes como funciona. Dê uma olhada no tópico do link abaixo. Abraço!
Messenger: vbdev@uol.com.br
|
|
|
|
|
|
Postada em 18/09/2004 22:41 hs
Tudo bem mas a minha pesquisa se aplica a 3 campos de uma tabela citei como exemplo Nome, Endereço, Número a medida que vou digitando no texto ele vai mostrando os textos dos campos que contem o mesmo que estou digitando na textbox de pesquisa eliminando assim os outros que não tenham.... a báse do código eu sei mas é apenas para um campo só...seria esse: On Error Resume Next
Me.lstusuario.ListItems.Clear
If TabUsuario.RecordCount > 0 Then
TabUsuario.MoveMin
End If
Set TabUsuario = BancoInterface.OpenRecordset("Select * from Usuario where Nome like'" & Trim(Me.txtlocalizar.Text) & "*'")
Do While TabUsuario.EOF = False
Me.lstusuario.ListItems.Add , , TabUsuario.Fields("Codigo")
Me.lstusuario.ListItems(Me.lstusuario.ListItems.Count).SubItems(1) = TabUsuario.Fields("Nome")
Me.lstusuario.ListItems(Me.lstusuario.ListItems.Count).SubItems(2) = TabUsuario.Fields("Usuario")
Me.lstusuario.ListItems(Me.lstusuario.ListItems.Count).SubItems(3) = TabUsuario.Fields("Tipo")
Me.lstusuario.ListItems(Me.lstusuario.ListItems.Count).SubItems(4) = TabUsuario.Fields("Status")
TabUsuario.MoveNext
Loop
Me.lstusuario.SelectedItem.Selected = True
A chave de tudo está no SQL mas nesse exemplo o texto digitado tem que ser preciso caso ao contrário ele não acha, e é apenas para um campo de tabela....eu queria fazer para 3 ou mais campos ....entendeu? |
|
|
|
|
|
Postada em 19/09/2004 19:32 hs
|
|
|
|
