Jump to content
Fórum Script Brasil
  • 0

Consulta Entre Datas


Gabriel Cabral
 Share

Question

Olá pessoal....

é o seguinte....

tenho uma combobox com os nomes de clientes e um MSHFlexGrid q aparecerá o resultado da consulta de acordo com o nome escolhido na combobox....

está assim...

Private Sub cboNomeFantasia_Click()
Set Conex = New ADODB.Connection
Conex.Open StringDeConexao


StringSQL = "SELECT * FROM Atendimentos WHERE Atend_NomeFantasia Like "

StringSQL = StringSQL & "'" & cboNomeFantasia & "' ORDER BY CDate(Atend_Data)"


Set rs = New ADODB.Recordset

rs.Open StringSQL, Conex, adOpenDynamic, adLockOptimistic

If rs.EOF Then MsgBox "Não foram encontrados registros correspondentes."

Set GrideCons.DataSource = rs
GrideCons.Refresh
rs.Close
Set rs = Nothing

O problema surge quando preciso fazer essa consulta entre datas...separadamente ou juntamente com a consulta feita do nome...

como se faz a consulta entre datas?

já tentei utilizar BETWEEN na instrução SQL mas não deu certo....

o campo Atend_Data, q armazena as datas é do tipo texto....mas convertido para data [CDate()] na instrução SQL....

para fazer a consulta entre datas é preciso especificar as datas em duas textbox...

elas não precisam estar ligadas a nenhum campo não é?!

Agradeço muito quem puder me ajudar

Obrigado

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0
o select teria q ser tipo assim:

sql = "Select * From Tabela Where CDate(Data) Between #" & Format(data1.Text, "YYYY-MM-DD") & "# And #" & Format(data2.Text, "YYYY-MM-DD") & "#"

se não funcionar, posta ae o codigo q você usou e mensagem do erro.

Ae kuroi....certinho....muito obrigado mesmo

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...