Waldir Jr.

Os dados do codigocliente não está dando erro, só está dando que não consigo inverter as datas! Tenho um controle DTPicker e insiro as datas ele reconhece como #21/8/2004# só que quando do o format dentro do select ele não converte para #8/21/2004#, não sei porque isso está acontecendo!

 

SpiritCalad

 

Eu uso o DTPicker para inserir as datas, ai embaixo vai o código completo:

 

Dim inicio As Date
    Dim fim As Date
    Dim codigo As Integer
   
    inicio = Cdate(cbinicio.Value)
    fim = Cdate(cbfim.Value)
    codigo = Cliente2("CODIGOCLIENTE")
    
    FinanCli.Open "SELECT * FROM FINANCLI WHERE CODIGOCLIENTE = '" & codigo & "' and data >= ' " & Format(inicio, "mm-dd-yyyy") & " ' and data <= '" & Format(fim, "mm-dd-yyyy") & "' ORDER BY DATA", BD, adOpenForwardOnly, adLockOptimistic
    Unload Me

 

Rocha.

 

Já tentei a sua colocação mas não deu certo.

Porque vc. não tenta usar sem converter a data (não use Cdate) e use BETWEEN em vez de <= >=, tenho uma instrução select parecida com a sua só que no Access e funciona bem.

Tente assim

 

Encontrei a solução!

Quando declaro a variável como Date, o VB transforma automaticamente o valor que é atribuido a variável em "mm/dd/yyyy". Assim o meu select ficou:

 

FinanCli.Open "SELECT * FROM FINANCLI WHERE CODIGOCLIENTE = '" & codigo & "' and data between ' " & inicio & " 'and  '" & fim & "' ORDER BY DATA", BD, adOpenForwardOnly, adLockOptimistic

 

É isso ai galera!

Obrigado por tudo!