COLUNA LISTVIEW

GUTO 14/03/2005 12:42:59
#72925

ja viu um programa listiview dakeles q carregam as info quando se digita na txt , entaun ele carrega todas as informaçoes quando se digita em uma txt certo , no meu caso se eu coloco a letra "A" na txtnome, ele lista todos os nomes que tem essa letra , e acontece isso com todos os outros campos , Estado , Codigo, Cidade, Menos com o CEP , quando eu coloco na txt qualquer numro ele num lista no listview ta ligado

esse numeros 1 2 3 4 as ordem na ora de fazer uma consulta tipo aki o
Dim dado(5) As String, ConsultaSQL As String, MontaString As Boolean
Dim mPrimeiro As Boolean
Dim i As Integer

ConsultaSQL = ""
ConsultaSQL = "SELECT * FROM Clientes WHERE "
MontaString = True
mPrimeiro = True
dado(1) = ""
dado(2) = ""
dado(3) = ""
dado(4) = ""
dado(5) = ""
If Len(txtCodigo.Text) <> 0 Then
dado(1) = "[CODIGO] LIKE '" & txtCodigo.Text & "*'"
End If

If Len(txtSocial.Text) <> 0 Then
dado(2) = "[Nome] LIKE '" & txtSocial.Text & "*'"
End If

If Len(txtCidade.Text) <> 0 Then
dado(3) = "[Cidade] LIKE '" & txtCidade.Text & "*'"
End If

If Len(txtEstado.Text) <> 0 Then
dado(4) = "[Estado] LIKE '" & txtEstado.Text & "*'"
End If

If Len(txtcep.Text) <> 0 Then
dado(5) = "[CEP] LIKE '" & txtcep.Text & "*'"
End If

For i = 1 To 5
If Len(dado(i)) <> 0 Then
If mPrimeiro Then
ConsultaSQL = ConsultaSQL & dado(i)
mPrimeiro = False
Else
ConsultaSQL = ConsultaSQL & " And " & dado(i)
End If
End If
Next

Set dbCadastro = OpenDatabase(App.Path & "\GerCom.mdb", False, False)
Set TabelaConsulta = dbCadastro.OpenRecordset(ConsultaSQL, dbOpenSnapshot)

CarregaCliente

GUTO 14/03/2005 12:57:18
#72931

sera que tinha como apertar um botao dentro de um form e aparecer um outro form perquisa com essas consulta em listview e deposi apertando no resultado, dentro do listview ele retorna o valor dos campos pra um form onde estao as txt ? ou sera q isso num da?

GUTO 14/03/2005 15:24:09
#72965

Como fazer pro meu listview aceitar campos duplicados tenho um Codigo e Codigo do Imove, , o campo codigo é unico , mas pode conter varios codigos dos imoveis tipo
Codigo 1 (esse codigo significa o umProprietario)
Codigo do Imovel 1( significa qu eé um Imovel)
mas ele pode ter mais de 1 imovel , entaun
Codigo 1
Codigo do Imovel 2
meu codigo de pesuisa é esse e num querendo abusar mas como ficaria esse codigo em ADO? , valew pessoal

Dim dado(6) As String, ConsultaSQL As String, MontaString As Boolean
Dim mPrimeiro As Boolean
Dim i As Integer
ConsultaSQL = ""
ConsultaSQL = "SELECT * FROM Tbl_Apartamentos WHERE "
MontaString = True
mPrimeiro = True
dado(1) = ""
dado(2) = ""
dado(3) = ""
dado(4) = ""
dado(5) = ""
If Len(txtCodigo.Text) <> 0 Then
dado(1) = "[CODIGO] LIKE '" & txtCodigo.Text & "*'"
End If
If Len(txtcodimo.Text) <> 0 Then
dado(2) = "[CodigoImo] LIKE '" & txtcodimo.Text & "*'"
End If
If Len(txtdescricao.Text) <> 0 Then
dado(3) = "[Descricao] LIKE '" & txtdescricao.Text & "*'"
End If

If Len(txtnome.Text) <> 0 Then
dado(4) = "[nome] LIKE '" & txtnome.Text & "*'"
End If

If Len(txtrua.Text) <> 0 Then
dado(5) = "[Rua] LIKE '" & txtrua.Text & "*'"
End If

If Len(txtbairro.Text) <> 0 Then
dado(6) = "[Bairro] LIKE '" & txtbairro.Text & "*'"
End If


For i = 1 To 6
If Len(dado(i)) <> 0 Then
If mPrimeiro Then
ConsultaSQL = ConsultaSQL & dado(i)
mPrimeiro = False
Else
ConsultaSQL = ConsultaSQL & " And " & dado(i)
End If
End If
Next

Set dbCadastro = OpenDatabase(App.Path & "\Bdimobiliaria.mdb", False, False)
Set TabelaConsulta = dbCadastro.OpenRecordset(ConsultaSQL, dbOpenSnapshot)

CarregaCliente

GUTO 14/03/2005 17:39:48
#72991

Bom varios Problemas que eu postei eu ja resolvi o Problemas Agora é que eu coloquei um botos no meu form , pra dar um Show que vai levar pra um form onde ten um listview
so que na ora que eu faço a pesquisa nun fuciona , num pega nada naun retorna valor nenhum
Seria assim na ora que eu insiro um dado no txt ja vai aprecendo no listview o codigo do txt é esse:
If Len(txtCodigo.Text) <> 0 Then FazPesquisa

que leva pra uma Private chamada "FazPesquisa"

FecharRsApartamentos
'04 abre a conexao com o banco de dados da foto
Set Bdimobiliaria = New ADODB.Connection
'FAZENDO A CONEXÃO COM O BANCO DE DADOS
Bdimobiliaria.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Bdimobiliaria.MDB;Persist Security Info=False"
'linha abaixo abre conexao e na ordem crescente pelo Codigo
Dim dado(6) As String, ConsultaSQL As String, MontaString As Boolean
Dim mPrimeiro As Boolean
Dim i As Integer
ConsultaSQL = ""
ConsultaSQL = "SELECT * FROM Tbl_Apartamentos where"
MontaString = True
mPrimeiro = True
dado(1) = ""
dado(2) = ""
dado(3) = ""
dado(4) = ""
dado(5) = ""
If Len(txtCodigo.Text) <> 0 Then
dado(1) = "[CODIGO] LIKE '" & txtCodigo.Text & "*'"
End If
If Len(txtcodimo.Text) <> 0 Then
dado(2) = "[CodigoImo] LIKE '" & txtcodimo.Text & "*'"
End If
If Len(txtdescricao.Text) <> 0 Then
dado(3) = "[Descricao] LIKE '" & txtdescricao.Text & "*'"
End If
If Len(txtnome.Text) <> 0 Then
dado(4) = "[nome] LIKE '" & txtnome.Text & "*'"
End If
If Len(txtrua.Text) <> 0 Then
dado(5) = "[Rua] LIKE '" & txtrua.Text & "*'"
End If
If Len(txtbairro.Text) <> 0 Then
dado(6) = "[Bairro] LIKE '" & txtbairro.Text & "*'"
End If
For i = 1 To 6
If Len(dado(i)) <> 0 Then
If mPrimeiro Then
ConsultaSQL = ConsultaSQL & dado(i)
mPrimeiro = False
Else
ConsultaSQL = ConsultaSQL & " And " & dado(i)
End If
End If
Next
CarregaCliente

que leva pra outra Private Chamada CarregaCliente

Dim i As Integer
If rst.EOF And rst.BOF Then
' quando o rst estiver fazio coloque aqui as rotinas aqui
Else
'for i é mais rápido que do while
End If
For i = 1 To rst.RecordCount - 1
txtCodigo = rst![Codigo]
txtcodimo = rst![CodigoImo]
txtdescricao = rst![Descricao]
txtnome = rst![nome]
txtrua = rst![Rua]
txtbairro = rst![Bairro]
Next

GUTO 21/03/2005 13:53:40
#74062

ou alguem tem aluma ideia de fazer uma consulta sobre consulta de outro jeito , usando combos , alguma coisa, mas essa consulta usaria + de um form e o resultado da consulta voltaria pro form onde estaria esssa consulta , obrigado