Ta dificil

[Vbzento 0]

Ola pessoal, sou meio novo em montar sql, ou ruim, hehehe quereo selecionar entre duas datas q estão em variaveis:Tipo, selecione todos os registro do cliente(seria a cbofiltro) entre data tal e data tal. fiz assim mas nao funfa > rs.Open "Select * From Cheques WHERE & campo & ='" & cbofiltro.Text & "'" and Data Between Cdate('" & Di & "') And cdate('" & Df & "');", db, adOpenStatic, adLockOptimisticonde ta o erro, sou grato por uma ajuda dos camaradas....

[Graymalkin 0]

Experimente assim:

 

rs.Open "SELECT * FROM Cheques WHERE cliente='" & cbofiltro.Text & "'" AND DateValue(Data)>=DateValue('" & Di & "') AND DateValue(Data)<=DateValue('" & Df & "');", db, adOpenStatic, adLockOptimistic

Abraços,

 

Graymalkin

PS: Você participava do canal VBWorld na Brasnet, não?

[Vbzento 0]

Experimente assim:

rs.Open "SELECT * FROM Cheques WHERE cliente='" & cbofiltro.Text & "'" AND DateValue(Data)>=DateValue('" & Di & "') AND DateValue(Data)<=DateValue('" & Df & "');", db, adOpenStatic, adLockOptimistic

Abraços,GraymalkinPS: Você participava do canal VBWorld na Brasnet, não?

Sim, ja te falei muito sobre que ixisti Deus e tu balança a cabeça, bah,E aiiiiiiiii Graima, seguinte : duvida DateValue(Data)é campo na tabela onde sera feito a busca das datas?a sua rotina acusa erro assim q se cola no vb, fica em vermelho e aponta para, DateValue('" & Di & "') o erro no primeiro apostrofo .Um abraço.

[Graymalkin 0]

Experimente assim:

rs.Open "SELECT * FROM Cheques WHERE cliente='" & cbofiltro.Text & "'" AND DateValue(Data)>=DateValue('" & Di & "') AND DateValue(Data)<=DateValue('" & Df & "');", db, adOpenStatic, adLockOptimistic

Abraços,GraymalkinPS: Você participava do canal VBWorld na Brasnet, não?

Sim, ja te falei muito sobre que ixisti Deus e tu balança a cabeça, bah,

Hehehehe! Você lembra de mim!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

E aiiiiiiiii Graima, seguinte : duvida DateValue(Data)é campo na tabela onde sera feito a busca das datas?a sua rotina acusa erro assim q se cola no vb, fica em vermelho e aponta para, DateValue('" & Di & "') o erro no primeiro apostrofo .

É, agora que notei um problema ali. O correto seria assim:

rs.Open "SELECT * FROM Cheques WHERE cliente='" & cbofiltro.Text & "' AND DateValue(Data)>=DateValue('" & Di & "') AND DateValue(Data)<=DateValue('" & Df & "');", db, adOpenStatic, adLockOptimistic

Abraços,Graymalkin