PREENCHER O LISTVIEW MAIS RAPIDO
Olá pra todos !
Estou com o seguindo problema: estou fazendo uma pesquisa de clientes com o listview, a pesquisa funciona só que em rede fica bem mais lenta. O código é o seguinte:
Set dados = OpenDatabase(App.Path & [Ô]\dados.mdb[Ô])
Set tbcliente = dados.OpenRecordset([Ô]clientes[Ô], dbOpenTable)
tbcliente.Index = [Ô]nome[Ô]
tbcliente.MoveFirst
While Not tbcliente.EOF
cod = Trim(UCase(Text1))
If InStr(UCase(tbcliente([Ô]nome[Ô])), cod) > 0 Then
Set lst = Lista.ListItems.Add
With lst
.Text = tbcliente([Ô]codigo[Ô])
.SubItems(1) = testar(tbcliente([Ô]nome[Ô]))
.SubItems(2) = testar(tbcliente([Ô]endereco[Ô]))
End With
End If
tbcliente.MoveNext
Wend
E o listview tem que ser preenchido apenas com o nome que contenha o texto de Text1 (pesquisa com apenas parte do nome).
Alguem sabe um jeito de fazer isso mais rápido ? Mesmo que tenha que trocar o listview por outro componente.
Agradeço a qualquer ajuda.
Até mais!
Estou com o seguindo problema: estou fazendo uma pesquisa de clientes com o listview, a pesquisa funciona só que em rede fica bem mais lenta. O código é o seguinte:
Set dados = OpenDatabase(App.Path & [Ô]\dados.mdb[Ô])
Set tbcliente = dados.OpenRecordset([Ô]clientes[Ô], dbOpenTable)
tbcliente.Index = [Ô]nome[Ô]
tbcliente.MoveFirst
While Not tbcliente.EOF
cod = Trim(UCase(Text1))
If InStr(UCase(tbcliente([Ô]nome[Ô])), cod) > 0 Then
Set lst = Lista.ListItems.Add
With lst
.Text = tbcliente([Ô]codigo[Ô])
.SubItems(1) = testar(tbcliente([Ô]nome[Ô]))
.SubItems(2) = testar(tbcliente([Ô]endereco[Ô]))
End With
End If
tbcliente.MoveNext
Wend
E o listview tem que ser preenchido apenas com o nome que contenha o texto de Text1 (pesquisa com apenas parte do nome).
Alguem sabe um jeito de fazer isso mais rápido ? Mesmo que tenha que trocar o listview por outro componente.
Agradeço a qualquer ajuda.
Até mais!
Tópico encerrado , respostas não são mais permitidas