LISTVIEW

GUTO 10/03/2005 14:56:29
#72159
opa boa tarde galera, eu algum tempo to tentano fazer um lance de busca no meu form, e acabei pegando com colegas um tempo atrasum sistema que usava listView , so uq eu uso txt, é tipo asim eu tenho varias busca Codigo , Descricao , Rua , e quando e digito na txtpesquisa ja cai o resultado direto na txt do form , ate ai tudo bem , so que eu fiz o codigo que vai na txt que é esse
If Len(TxtPesquisar.Text) <> 0 Then FazPesquisa

e fiz uma sub que faz a pesquisa em uma sub com nome de FazPesquisa

Dim ConsultaSQL As String
ConsultaSQL = ""
ConsultaSQL = "SELECT * FROM Tbl_Apartamentos WHERE Codigo like '" & TxtPesquisar & "*'"
Set Bdimobiliaria = OpenDatabase(App.Path & "\Bdimobiliaria.mdb", False, False)
Set rsApartamentos = Bdimobiliaria.OpenRecordset(ConsultaSQL, dbOpenSnapshot)

CarregaApartamento

Tem tamen ourta sub que é pra carregar , so que o problema é q eu num tenho a minima ideia de como eu carrego as txts do meu form em ves de um listview

lsvApartamento.ListItems.Clear
If rsApartamentos.RecordCount <> 0 Then
While Not rsApartamentos.EOF
Set NewItem = FrmApartamentos.ListItems.Add(, , rsApartamentos("Codigo"))
NewItem.SubItems(1) = " " & Left(rsApartamentos("Nome"), 38)
NewItem.SubItems(2) = " " & rsApartamentos("Cidade")
NewItem.SubItems(3) = " " & rsApartamentos("Estado")
TabelaConsulta.MoveNext

Porque o Objetivo é fazer uma consulta sobre consulta eu uso o option mas num consigo fazer uma consulta e depois fazer outra em cima sem perder o resultado anterior , entende? ir limitando uma pesquisa , esse codigo ae num faria isso tamen , mas seria mais um tipo de busca e eu poedria implementar , obrigado a todos q ajudarem
USUARIO.EXCLUIDOS 10/03/2005 16:05:50
#72184 Resposta escolhida
Cara, você poderia ir colocando os resultados das consultas em LISTBOX e depois de Três consultas (tem de ter um limite... e o menor possível) e depois se for precisar de alguma coisa da consulta.. colocar a opção pra pessoa informar qual das 3 consultas será usada... valida.. sei lá......

Agora da primeira parte.. não entendi nada...
GUTO 10/03/2005 16:46:03
#72202
o sistema que eu peguei usava um listveiw, onde quando eu escrevia em uma txtpesquisar por exemplo uma letra A retornava todos os nomes que comecassem com a letra A , so na hora de carregar isso esta voltado para um listview e naum pra um form com txt Veja: esse é o codigo que esta no listview que carrega todos os registros com a letra A .......... So que tem um problema eu num quero que os valores voltem para o listview eu quero q os valores sejam retornados para o meu form nas txt , conform eu faço a consulta , eu tentei de varios jeirtos mas , infelizmente nuan tive suseso, entendeu germanir ?

lsvApartamento.ListItems.Clear
If rsApartamentos.RecordCount <> 0 Then
While Not rsApartamentos.EOF
Set NewItem = FrmApartamentos.ListItems.Add(, , rsApartamentos("Codigo"))
NewItem.SubItems(1) = " " & Left(rsApartamentos("Nome"), 38)
NewItem.SubItems(2) = " " & rsApartamentos("Cidade")
NewItem.SubItems(3) = " " & rsApartamentos("Estado")
TabelaConsulta.MoveNext
USUARIO.EXCLUIDOS 10/03/2005 17:12:37
#72207
Dim ConsultaSQL As String
ConsultaSQL = ""
ConsultaSQL = "SELECT * FROM Tbl_Apartamentos WHERE Codigo like '" & TxtPesquisar & "*'"
Set Bdimobiliaria = OpenDatabase(App.Path & "\Bdimobiliaria.mdb", False, False)
Set rsApartamentos = Bdimobiliaria.OpenRecordset(ConsultaSQL, dbOpenSnapshot)

'Vc tem que ver o que esta SUB OU FUNCTION esta chamando..
CarregaApartamento

'aqui ele apagar o ultimo item do LISTVIEW!!!!
'se vc quiser que não apague retire esta linha LISTITEN.CLEAR

lsvApartamento.ListItems.Clear
If rsApartamentos.RecordCount <> 0 Then
While Not rsApartamentos.EOF
Set NewItem = FrmApartamentos.ListItems.Add(, , rsApartamentos("Codigo"))
NewItem.SubItems(1) = " " & Left(rsApartamentos("Nome"), 38)
NewItem.SubItems(2) = " " & rsApartamentos("Cidade")
NewItem.SubItems(3) = " " & rsApartamentos("Estado")
TabelaConsulta.MoveNext


[txt-size=3]do jeito que vc quer:[/txt-size]


Dim ConsultaSQL As String
ConsultaSQL = ""
ConsultaSQL = "SELECT * FROM Tbl_Apartamentos WHERE Codigo like '" & TxtPesquisar & "*'"
Set Bdimobiliaria = OpenDatabase(App.Path & "\Bdimobiliaria.mdb", False, False)
Set rsApartamentos = Bdimobiliaria.OpenRecordset(ConsultaSQL, dbOpenSnapshot)

'Vc tem que ver o que esta SUB OU FUNCTION esta chamando..
CarregaApartamento

If rsApartamentos.RecordCount <> 0 Then
'para carregar nos text....

While Not rsApartamentos.EOF
txtcodigo = rsApartamentos("Codigo"))
txtnapart = rsApartamentos("Nome"), 38)
txtncidade = rsApartamentos("Cidade")
txtestado = rsApartamentos("Estado")
TabelaConsulta.MoveNext
end if
USUARIO.EXCLUIDOS 10/03/2005 17:14:52
#72208
Correção

do jeito que vc quer:



Dim ConsultaSQL As String
ConsultaSQL = ""
ConsultaSQL = "SELECT * FROM Tbl_Apartamentos WHERE Codigo like '" & TxtPesquisar & "*'"
Set Bdimobiliaria = OpenDatabase(App.Path & "\Bdimobiliaria.mdb", False, False)
Set rsApartamentos = Bdimobiliaria.OpenRecordset(ConsultaSQL, dbOpenSnapshot)

'Vc tem que ver o que esta SUB OU FUNCTION esta chamando..
CarregaApartamento

If rsApartamentos.RecordCount <> 0 Then
'para carregar nos text....

[txt-color=#ff0000]While Not rsApartamentos.EOF
txtcodigo = rsApartamentos("Codigo"))
txtnapart = rsApartamentos("Nome"), 38)
txtncidade = rsApartamentos("Cidade")
txtestado = rsApartamentos("Estado")
TabelaConsulta.MoveNext [/txt-color]
Loop
end if
GUTO 10/03/2005 18:03:53
#72222
Ae germanir valew por postar mas é o seguinte , e vc postou o seguinte vei ("Codigo")) e estava dano ero falow obrigado

While Not rsApartamentos.EOF
txtcod = rsApartamentos(("Codigo"))
mas esta dando eerrro de Ty misnatch aki o :no Private FazPesquisa

Set Bdimobiliaria = OpenDatabase(App.Path & "\Bdimobiliaria.mdb", False, False)
GUTO 10/03/2005 18:13:03
#72224
Correcao
(rsApartamentos("Codigo"))
USUARIO.EXCLUIDOS 10/03/2005 18:21:09
#72225
é verdade esqueci de tirar o ")"
Mas deu certo agora?
GUTO 10/03/2005 18:30:06
#72228
Opa germani r erro type mismatch

Set Bdimobiliaria = OpenDatabase(App.Path & "\Bdimobiliaria.mdb", False, False)
deixei assim

txtcod = rsApartamentos("Codigo")
GUTO 11/03/2005 11:29:13
#72306
mais ainda naun, alguem
USUARIO.EXCLUIDOS 11/03/2005 11:38:03
#72309
Em que linha.. acontece o erro?

é aqui
[txt-color=#ff0000] Set Bdimobiliaria = OpenDatabase(App.Path & "\Bdimobiliaria.mdb", False, False)[/txt-color]

ou aqui

[txt-color=#0000ff]txtcod = rsApartamentos("Codigo")[/txt-color]
Página 1 de 6 [51 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar