Boa tarde a todos faço meu programam usando sql e gostaria de saber como posso fazer um filtro na minha pesquisa, tipo gostaria de filtrar todos os dados com o codigo 01 , e so retornasse na minha txt do form os codigos 01, e por nome tamen , obrigado gente ate breve

Olá Korn,

 

Não entendi bem o seu problema. poderia explicar melhor como você pretende fazer este pesquisa?

Dim BD as DAO.Database
Dim RS as DAO.Recordset
Dim RSFiltro as DAO.Recordset
Dim valor1 as Integer, valor2 as Integer
Dim texto as String

 

'Código de conexão
Set bd = OpenDatabase("Nome_Banco_De_Dados")
Set rs = bd.OpenRecordset("Select * from tabela")
valor1= 1
valor2= 2

 

if valor1 <= valor2 then 'verificando se o primeiro dado é menor do q o segundo dado

rs.filter = "Campo_cod >= " & valor1 & " AND Campo_cod <= " & valor2
Set RSFiltro = rs.OpenRecordset

with RSFiltro
 .MoveF irst
 Do while not .EOF
   texto = !Campo_Cod & ";" & texto
  .MoveNext
 Loop
End with

End If

 

Dim rs As ADODB.Recordset
Dim bd As ADODB.Connection
Dim valor1 as Integer, valor2 as Integer
Dim texto as String

 

Set rs = New ADODB.Recordset
Set bd = New ADODB.Connection
bd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Caminho_do_banco_de_dados.mdb"
rs.CursorLocation = adUseClient
rs.Open "select * from tabela", bd

valor1= 1
valor2= 2

if valor1 <= valor2 then 'verificando se o primeiro dado é menor do q o segundo dado

rs.filter = "Campo_cod >= " & valor1 & " AND Campo_cod <= " & valor2

with rs
 .MoveF irst
 Do while not .EOF
   texto = !Campo_Cod & ";" & texto
  .MoveNext
 Loop
End with

End If

 

rs.Filter = ""
Set RSFiltro = rs.OpenRecordset

 

Para retirar o filtro no ADO
rs.Filter = 0
rs.Requery

 

Pode-se fazer filtro também usando o operador Like para filtrar por nome exemplo:

temos uma lista:

Ana

Antonio

Bruno

Carla

Denise

Joao

Vitor

 

tratamos RS como do tipo ADODB.recordset

então:

 

rs.filter = "Nome like 'a*'"

A lista ficará assim:

Se fizermos assim:

O problema é q eu estou usando um optiom button e esta dando erro de method or data menber not found , mas eu vo continua tentando obrigado por postarem

ae eu coloquei como se fosse somente uma txt normal e coloquei esse codigo num botao e nao fez a busca, nao foi buscar vou continuar tentando , falo

Dim rsApartamentos As ADODB.Recordset
Dim Bdimobiliaria As ADODB.Connection
Dim valor1 As Integer, valor2 As Integer
Dim texto As String
 
Set rsApartamentos = New ADODB.Recordset
Set Bdimobiliaria = New ADODB.Connection
Bdimobiliaria.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:WINDOWSDesktopCópia de ImobiliariaBdimobiliaria.mdb"
rsApartamentos.CursorLocation = adUseClient
rsApartamentos.Open "select * from Tbl_Apartamentos", Bdimobiliaria
valor1 = 1
valor2 = 2
'Para filtrar
If valor1 <= valor2 Then 'verificando se o primeiro dado é menor do q o segundo dado
rsApartamentos.Filter = "Codigo >= " & valor1 & " AND Codigo <= " & valor2
'Mostrando os dados filtrados, por exemplo o campo Campo_cod
With rsApartamentos
 .MoveMin
 Do While Not .EOF
   texto = !Codigo & ";" & texto
  .MoveNext
 Loop
End With
End If

Korn eu enviei algumas respostas e perguntas ao seu e-mail mas gostaria de saber se vc está usando um ADOControl também.