Filtrar valores

[weslei.conexao 0]

Olá amigos.. bom tenho uma tabela que se chama email ...com os campos nome, emai,l tel, perido, cliente ..aí na minha pagína listo essa tabela e tenho duas combos para filtrar os dados.. cboPeriodo e cboCliente

 

fiz um select assim pra filtrar os dados de acordo com os valores combinados na combo mas não ta trazendo dado nenhum..por será??

strSQL = "SELECT * FROM Email where periodo like '" & varFiltra & "%' "&" and "&" cliente like '" & varCliente & "%' order by Nome"

 

aguardo ajuda ...grato!!

[Ted k' 126]

o que é isso no meio? "&"

 

faz isso:

strSQL = "SELECT * FROM Email where periodo like '%"&varFiltra&"%' and cliente like '%"&varCliente&"%' order by Nome"

ou assim:

strSQL = "SELECT * FROM Email where periodo like '%"&varFiltra&"%'"
						
If varCliente <> "" Then
	strSQL = strSQL & " and cliente like '%"&varCliente&"%'"
End If

strSQL = strSQL & " order by Nome"

[xanburzum 169]

que tipo de dados (informação) o que é o cboPeriodo e cboCliente , lembre-se que dependendo da situação você pode usar a propriedade FILTER,

rs.FILTER = "estoque < 2", e porque você colocou o caracter "&"

 

É muito mais eficiente e mais fácil de manter, do que abrir recordsets múltiplos, usando o SQL múltiplo.

Você pode fazer uma consulta grande dos dados, e apenas filtra-la como você o necessita. Exemplo abaixo:

 

 

 

<%
Const adFilterNone = 0
Const adFilterPendingRecords = 1
Const adFilterAffectedRecords = 2
Const adFilterFetchedRecords = 3
Const adFilterConflictingRecords = 5
 
Dim oRS, strSQL, strConn

Set oRS = Server.CreateObject("ADODB.RecordSet")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" _
 &"Data Source=C:\Data\FPNWIND.mdb;"
strSQL = "SELECT * FROM Products"

oRS.Open strSQL, strConn, 3, 3

oRS.Filter = "UnitPrice < $20.00"

'Recordset que contenha
'somente Records com preço menor que $20
Do While Not oRS.EOF
 Response.Write(oRS("CategoryID") & "<BR>")
oRS.MoveNext
Loop

‘Remove Filtro
oRS.Filter = adFilterNone
'agora com todos os dados do campo

oRS.Filter = "SupplierID = 10"

'Recordset contains
'somente Records com ID =10
Do While Not oRS.EOF
 Response.Write(oRS("CategoryID") & "<BR>")
oRS.MoveNext
Loop

oRS.Close
Set oRS = Nothing
%>