Boa tarde, caso alguém possa ajudar ai vai a duvida...

 

estou construindo um form e criando varios campos para ser digitados os paramentros.

 

exemplo : do codigo 0000  até o codigo 99999

              da data    01/01/01 até data 01/01/99

 

obs ; a idéia é concatenar as condições para o filtro de chamar dentro do select conforme o exemplo abaixo.

 

 PAR03 = mskCod1.Text
 PAR04 = mskCod2.Text
   
 Condicao = " (COD_CLI BETWEEN '" & PAR03 & "' AND '" & PAR04 & "')"
    
 PAR06 = FormatDateTime(mskCort1)
 PAR07 = FormatDateTime(mskCort2)
    
 Condicao = Condicao + " AND (VALID_CORT_CLI>='" & PAR06 & "')"
 Condicao = Condicao + " AND (VALID_CORT_CLI>= '" & PAR07 &"')"
 
Set TB_PRINT = New ador.Recordset

TB_PRINT.Open "Select * from FTCLIM01  WHERE  '"& CONDICAO &"' ORDER BY CEP_CLI", "PROVIDER= MICROSOFT.JET.OLEDB.4.0;PERSIST SECURITY INFO=FALSE;USER ID=;DATA SOURCE = projetod1.MDB", adOpenStatic, adLockOptimistic

 

o select não reconhece o comando e me traz todo o conteudo do banco..

 

 

 

 

Anderson,

Retire as aspas simples do select. Ex.:

 

TB_PRINT.Open "Select * from FTCLIM01  WHERE  "& CONDICAO &" ORDER BY CEP_CLI", "PROVIDER= MICROSOFT.JET.OLEDB.4.0;PERSIST SECURITY

Anderson reparei que na segunda condição:

 PAR06 = FormatDateTime(mskCort1)
 PAR07 = FormatDateTime(mskCort2)
    
 Condicao = Condicao + " AND (VALID_CORT_CLI>='" & PAR06 & "')"
 Condicao = Condicao + " AND (VALID_CORT_CLI>= '" & PAR07 &"')"

o retorno será >= "01/01/01" e >="01/01/99"

 

assim o correto deve ser

 Condicao = Condicao + " AND (VALID_CORT_CLI<= '" & PAR07 &"')"