PESQUISAR E MOSTRAR RESULTADO EM UM LISTVIEW
to tentando fazer uma pesquisa onde posso pesquisar por nome e por codigo e pmostrar o resultado da pesquisa em um listivew, mas ta dando alguns erros uso ado e banco acess.
da o seguitne erro: compile error - method or data member not found..
segue abaixo o codigo pra q alguem possa dar uma olhada pra mim ok. tb quero esclarecer uma duvida qual a tecla q eu uso pra debugar o programa pra eu poder ver onde esta dando erro.
lstresultado.ListItems.Clear
If tbusuarios.RecordCount = 0 Then Exit Sub
If txttexto = "" Then
tbusuarios.MoveFirst
Do While Not tbusuarios.nomatch
Set Temp = lstresultado.ListItems.Add(, "", tbusuarios!codigo, 0, 0)
'On Error Resume Next
Temp.SubItems(1) = tbusuarios!usuario
Temp.SubItems(2) = tbusuarios!senha
Temp.SubItems(3) = tbusuarios!confirmasenha
tbusuarios.MoveNext
Loop
Exit Sub
End If
If optcodigo.value = True Then
crit = "codigo=" & txttexto
ElseIf optusuario.value = True Then
crit = "usuario='" & txttexto & "'"
End If
tbusuarios.Seek crit
Do While Not tbusuarios.EOF
Set Temp = lstresultado.ListItems.Add(, "", tbusuarios!codigo, 0, 0)
'On Error Resume Next
Temp.SubItems(1) = tbusuarios!usuario
Temp.SubItems(2) = tbusuarios!senha
Temp.SubItems(3) = tbusuarios!confirmasenha
tbusuarios.MoveNext crit
Loop
da o seguitne erro: compile error - method or data member not found..
segue abaixo o codigo pra q alguem possa dar uma olhada pra mim ok. tb quero esclarecer uma duvida qual a tecla q eu uso pra debugar o programa pra eu poder ver onde esta dando erro.
lstresultado.ListItems.Clear
If tbusuarios.RecordCount = 0 Then Exit Sub
If txttexto = "" Then
tbusuarios.MoveFirst
Do While Not tbusuarios.nomatch
Set Temp = lstresultado.ListItems.Add(, "", tbusuarios!codigo, 0, 0)
'On Error Resume Next
Temp.SubItems(1) = tbusuarios!usuario
Temp.SubItems(2) = tbusuarios!senha
Temp.SubItems(3) = tbusuarios!confirmasenha
tbusuarios.MoveNext
Loop
Exit Sub
End If
If optcodigo.value = True Then
crit = "codigo=" & txttexto
ElseIf optusuario.value = True Then
crit = "usuario='" & txttexto & "'"
End If
tbusuarios.Seek crit
Do While Not tbusuarios.EOF
Set Temp = lstresultado.ListItems.Add(, "", tbusuarios!codigo, 0, 0)
'On Error Resume Next
Temp.SubItems(1) = tbusuarios!usuario
Temp.SubItems(2) = tbusuarios!senha
Temp.SubItems(3) = tbusuarios!confirmasenha
tbusuarios.MoveNext crit
Loop
Compila o programa usando o CTRL + F5.
Quando ele der esse aviso: "compile error - method or data member not found.. " ele irá marcar o item que está com erro. Pode ser uma text que você usou para fazer o código e deletou, ou uma coleção do ADO que você digitou errado, como FIND = correto, e vc digita FAINDE = errado (só pra entender o que estou falando...)]
Ok?
Quando ele der esse aviso: "compile error - method or data member not found.. " ele irá marcar o item que está com erro. Pode ser uma text que você usou para fazer o código e deletou, ou uma coleção do ADO que você digitou errado, como FIND = correto, e vc digita FAINDE = errado (só pra entender o que estou falando...)]
Ok?
axo q vc naum entendeu quero debugar passo a passo somente o form q estiver dando erro, somente o form q eu estiver testando eu naum me lembro direito eu sei que aperta F alguma coisa.
A tecla é F8
alguem pode me ajudar a resolver meu problema com a pesquisa tanto por nome, codigo cpf, e listar os dados em um listview
Perai ... vc queria a tecla ou o que ???
Eu faço assim para listar os resultados no meu listview:
Depois de conectar a recordset tbMain à  tabela do banco de dados...
Neste exemplo, primeiro confiro se já existem as colunas, senão as crio.
Depois uso o laço For...Next para preencher a lista com os dados dos campos Registro, Nome e Observações.
Depois de conectar a recordset tbMain à  tabela do banco de dados...
With lstRegistros
If .ColumnHeaders.Count = 0 Then
.ColumnHeaders.Add 1, , "Registro", 629.8583
.ColumnHeaders.Add 2, "Nome", "» Nome", 3974.74
.ColumnHeaders.Add 3, "Notas", "Notas", 6030.43
End If
For Its = 1 To tbMain.RecordCount
.ListItems.Add Its, , Format(tbMain("REGISTRO").Value, "000")
.ListItems(Its).ListSubItems.Add 1, , tbMain("NOME").Value
.ListItems(Its).ListSubItems.Add 2, , IIf(IsNull(tbMain("OBSERVACOES").Value), "", tbMain("OBSERVACOES").Value)
tbMain.MoveNext
Next
End WithNeste exemplo, primeiro confiro se já existem as colunas, senão as crio.
Depois uso o laço For...Next para preencher a lista com os dados dos campos Registro, Nome e Observações.
Tópico encerrado , respostas não são mais permitidas