LISTVIEW NAO RETORNA DADOS
Bom dia pessoal,
Está ocorrendo o seguinte, tenho um ListView que trás informações de uma tabela, porém, ele só lista os registros do banco caso ele não caia na cláusula [Ô]where[Ô], já testei o mesmo select no banco, e por lá ele retorna os registros normalmente. Estou usando banco Access 2003.
Gostaria da ajuda de vocês para entender o que está ocorrendo.
Obrigado.
Está ocorrendo o seguinte, tenho um ListView que trás informações de uma tabela, porém, ele só lista os registros do banco caso ele não caia na cláusula [Ô]where[Ô], já testei o mesmo select no banco, e por lá ele retorna os registros normalmente. Estou usando banco Access 2003.
Gostaria da ajuda de vocês para entender o que está ocorrendo.
Obrigado.
Então mostre seu código ai o pessoal via verificar.
Valeu.
Valeu.
Então pessoal, ai está o código...
strSQL = [Ô]SELECT usuarioid, nomusuario, dscendereco, dsctelefone, dsccpf [Ô]
strSQL = strSQL & [Ô] FROM tb_usuario[Ô]
If txtProcurar.Text <> Trim([Ô][Ô]) And txtProcurar.Text <> [Ô]Pesquisar por nome ou CPF...[Ô] Then
strSQL = strSQL & [Ô] WHERE [Ô]
strSQL = strSQL & [Ô] TRIM(LCASE(nomusuario)) LIKE [ô]*[Ô] & txtProcurar.Text & [Ô]*[ô] [Ô]
strSQL = strSQL & [Ô] OR TRIM(dsccpf) LIKE [ô]*[Ô] & txtProcurar.Text & [Ô]*[ô] [Ô]
strSQL = strSQL & [Ô] ORDER BY nomusuario, dsccpf [Ô]
End If
Set rstRetorno = clsBanco.AbrirRecordset(strSQL)
lvwUsuario.ListItems.Clear
Do While Not rstRetorno.EOF
lvwUsuario.ListItems.Add , , rstRetorno([Ô]usuarioid[Ô]), 0, 0
lvwUsuario.ListItems(lvwUsuario.ListItems.Count).SubItems(1) = rstRetorno([Ô]nomusuario[Ô])
lvwUsuario.ListItems(lvwUsuario.ListItems.Count).SubItems(2) = rstRetorno([Ô]dsccpf[Ô])
lvwUsuario.ListItems(lvwUsuario.ListItems.Count).SubItems(3) = rstRetorno([Ô]dscendereco[Ô])
lvwUsuario.ListItems(lvwUsuario.ListItems.Count).SubItems(4) = rstRetorno([Ô]dsctelefone[Ô])
rstRetorno.MoveNext
Loop
rstRetorno.Close
strSQL = [Ô]SELECT usuarioid, nomusuario, dscendereco, dsctelefone, dsccpf [Ô]
strSQL = strSQL & [Ô] FROM tb_usuario[Ô]
If txtProcurar.Text <> Trim([Ô][Ô]) And txtProcurar.Text <> [Ô]Pesquisar por nome ou CPF...[Ô] Then
strSQL = strSQL & [Ô] WHERE [Ô]
strSQL = strSQL & [Ô] TRIM(LCASE(nomusuario)) LIKE [ô]*[Ô] & txtProcurar.Text & [Ô]*[ô] [Ô]
strSQL = strSQL & [Ô] OR TRIM(dsccpf) LIKE [ô]*[Ô] & txtProcurar.Text & [Ô]*[ô] [Ô]
strSQL = strSQL & [Ô] ORDER BY nomusuario, dsccpf [Ô]
End If
Set rstRetorno = clsBanco.AbrirRecordset(strSQL)
lvwUsuario.ListItems.Clear
Do While Not rstRetorno.EOF
lvwUsuario.ListItems.Add , , rstRetorno([Ô]usuarioid[Ô]), 0, 0
lvwUsuario.ListItems(lvwUsuario.ListItems.Count).SubItems(1) = rstRetorno([Ô]nomusuario[Ô])
lvwUsuario.ListItems(lvwUsuario.ListItems.Count).SubItems(2) = rstRetorno([Ô]dsccpf[Ô])
lvwUsuario.ListItems(lvwUsuario.ListItems.Count).SubItems(3) = rstRetorno([Ô]dscendereco[Ô])
lvwUsuario.ListItems(lvwUsuario.ListItems.Count).SubItems(4) = rstRetorno([Ô]dsctelefone[Ô])
rstRetorno.MoveNext
Loop
rstRetorno.Close
strSQL = strSQL & [Ô] TRIM(LCASE(nomusuario)) LIKE [txt-color=#e80000][ô]*[Ô] [/txt-color]& txtProcurar.Text & [txt-color=#e80000][Ô]*[ô] [Ô][/txt-color]
strSQL = strSQL & [Ô] TRIM(LCASE(nomusuario)) LIKE [ô][Ô] & txtProcurar.Text & [Ô]%[ô] [Ô] para campo texto
strSQL = strSQL & [Ô] TRIM(LCASE(usuarioid)) LIKE [ô]%[Ô] & txtProcurar.Text & [Ô]%[ô] [Ô] para campo número
é o que uso.
Valeu
strSQL = strSQL & [Ô] TRIM(LCASE(nomusuario)) LIKE [ô][Ô] & txtProcurar.Text & [Ô]%[ô] [Ô] para campo texto
strSQL = strSQL & [Ô] TRIM(LCASE(usuarioid)) LIKE [ô]%[Ô] & txtProcurar.Text & [Ô]%[ô] [Ô] para campo número
é o que uso.
Valeu
strSQL = strSQL & [Ô] TRIM(LCASE(nomusuario)) LIKE [Ô]*[Ô] & LCASE(txtProcurar.Text) & [Ô]*[Ô]
Citação::
strSQL = strSQL & [Ô] TRIM(LCASE(nomusuario)) LIKE [txt-color=#e80000][ô]*[Ô] [/txt-color]& txtProcurar.Text & [txt-color=#e80000][Ô]*[ô] [Ô][/txt-color]
strSQL = strSQL & [Ô] TRIM(LCASE(nomusuario)) LIKE [ô][Ô] & txtProcurar.Text & [Ô]%[ô] [Ô] para campo texto
strSQL = strSQL & [Ô] TRIM(LCASE(usuarioid)) LIKE [ô]%[Ô] & txtProcurar.Text & [Ô]%[ô] [Ô] para campo número
é o que uso.
Valeu
Valeu, era isso mesmo.
Tópico encerrado , respostas não são mais permitidas