Rilton, desculpe se parecer rispído, o objetivo não é ofender, mas sim tentar ajudar.
A falta de conhecimento deve ser suplementada pela vontade de aprender, isso aparentemente voce tem.
Porem a pressa suplanta essa vontade.
Voce disse que optou pelo operador Between, porem ainda não conhece como aplicar os anteriores (like >.<.=..) e principalmente montar a instrução sql.
Eu que tenho um pouqinho mais de conhecimento, mas estou meio enferrujado na ferramenta (já faz algum tempo que nãoa uso), estou apanhando, calculo como deve estar se sentindo.Se não parar e entender principalmente; como é montado a clausula sql (independentemente de qual banco de dados e/ou operador/operadores utilizar) voce não irá chegar a lugar nenhum.
Nesse ultimo arquivo que upou, ficou completamente desfigurado. Já não carrega os dados que anteriormente carregava, e não entendi se pretende utilizar o campo texto junto com as datas ou somente o campo texto ou somente a (s) datas.
Salientando tambem, que no exemplo anterior tambem é possivel (recomendado) utilizar para uma mesma data (>= e <=)
Então veja como fica:
Private Sub btnPesquisar_Click()
Dim cx As New ClasseConexao
Dim banco As ADODB.Recordset
Dim sql As String, Ord As String
ProcurarPor = Me.cboPesquisarPor.Text
OrdenarPor = Me.cboOrdenarPor.Text
With Me.lstv
.ListItems.Clear
Ord = " ORDER BY " & OrdenarPor & " " & Ordem & ";"
sql = "Select * FROM Programar "
If Me.chkPesquisa.Value = True Then
sql = sql & " WHERE " & ProcurarPor & " LIKE '%" & Me.txtPesquisa.Value & "%' "
ElseIf Me.chkPesquisa.Value = False Then
sql = sql & " WHERE " & ProcurarPor & " LIKE '" & Me.txtPesquisa.Value & "%' "
End If
If Me.txtDatafinal.Value <> "" And Me.txtDatainicial.Value <> "" Then
sql = sql & " And " & "Data_Inicial BETWEEN #" & Format(txtDatainicial.Value, "m/d/yyyy") & "# AND #" & Format(txtDatafinal.Value, "m/d/yyyy") & "#"
End If
sql = sql & Ord
Set banco = New ADODB.Recordset
cx.Conectar
banco.Open sql, cx.Conn, adOpenKeyset, adLockOptimistic
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 30/09/2012 1:01 pm