SELECT COM LIKE
o meu select ta assim:
Sele1 = [Ô]Select * from Imóveis where Nome_Prop LIKE [ô]*Sérgio*[ô][Ô]
...
adoPrimaryRS.Open Sele1, db, adOpenStatic, adLockOptimistic
...
Set DataGrid1.DataSource = adoPrimaryRS
dai nao aparece nada no grid.
( no access funciona, mas no vb nao !?!? )
Sele1 = [Ô]Select * from Imóveis where Nome_Prop LIKE [ô]*Sérgio*[ô][Ô]
...
adoPrimaryRS.Open Sele1, db, adOpenStatic, adLockOptimistic
...
Set DataGrid1.DataSource = adoPrimaryRS
dai nao aparece nada no grid.
( no access funciona, mas no vb nao !?!? )
Tente assim:
Sele1 = [Ô]Select * from Imóveis where Nome_Prop LIKE [ô]%Sérgio%[ô][Ô]
Sele1 = [Ô]Select * from Imóveis where Nome_Prop LIKE [ô]%Sérgio%[ô][Ô]
Dim SQL As String
SQL = [Ô]SELECT * FROM Imoveis WHERE Nome_Prop =[Ô] & TxtProprietario & [Ô] order by Nome[Ô]
Data1.RecordSource = SQL │-> Campo Texto
Data1.Refresh
SQL = [Ô]SELECT * FROM Imoveis WHERE Nome_Prop =[Ô] & TxtProprietario & [Ô] order by Nome[Ô]
Data1.RecordSource = SQL │-> Campo Texto
Data1.Refresh
Tu tá precisando com Like
Coloque a query no evento Change de Text1:
Sele1 = [Ô]Select * From Imoveis Where Nome_Prop Like [ô][Ô] & Text1.Text & [Ô]%[ô] Order By Nome_Prop[Ô]
nomedatuaconexão.execute Sele1
Deve ser isso
. . .
Uma outra forma:
No evento Change:
Sele1 = [Ô]Select * From Imoveis Where Nome_Prop Like [ô][Ô] & Replace(Trim(Text1.Text), [Ô] [Ô], [Ô]%[Ô]) & [Ô]%[ô] Order By Nome_Prop[Ô]
nomedatuaconexão.execute Sele1
AÃ vc pode procurar algo como: JO C SIL
E traz no resultado: JOSE CARLOS DA SILVA
No evento Change:
Sele1 = [Ô]Select * From Imoveis Where Nome_Prop Like [ô][Ô] & Replace(Trim(Text1.Text), [Ô] [Ô], [Ô]%[Ô]) & [Ô]%[ô] Order By Nome_Prop[Ô]
nomedatuaconexão.execute Sele1
AÃ vc pode procurar algo como: JO C SIL
E traz no resultado: JOSE CARLOS DA SILVA
Tópico encerrado , respostas não são mais permitidas