RELATORIO EMTRE DATAS - COM URGENCIA

ERIVELTONVGA 03/11/2009 21:36:33
#326856
ENTÃO VAMOS LÁ...

PRIMEIRO OLHA COMO ESTA O CAMPO DE SEU BANCO DE DADOS, SE O QUE VC QUER ESTA COMO [Ô]DATA[Ô],
OUTRA COISA SUBSTITUI O CRITERIO, TIRA ELE E POE A SQL QUE LHE PASSEI.


Private Sub cmdok_Click()
Dim Sql As String
On Error Resume Next

Sql = [Ô]SELECT * FROM aniversario WHERE data BETWEEN #[Ô] & Format(txt1.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# and #[Ô] & Format(txt2.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]


ESPERO QUE DESSA VEZ DE CERTO.... ABRACOS

ERIVELTON
JWCELYO 03/11/2009 21:37:33
#326857
SELECT * FROM Tdados WHERE DataAut NOT BETWEEN 01/09/2009 AND 15/09/2009
NILTON.VIANNA 03/11/2009 23:29:33
#326873
Desculpe minha ignorância mais to apanhando
Pois bem tenho um exemplo abaixa que faço pra um tipo de busca
Exe.: apenas um, tenho o campo texto txtPesquisa.text
E nele coloco a pesquisa e funciona normal.
Só que tenho só o campo pesquisa, no caso teria que ter
Inicial.text e Final.text


[ô][ô]Esse ta Funcionando Normal, eu digito a data de emissao e ele pega a data que digitei por eu coloquei, = CadCaixasE.Emissao Like
se eu colocar = CadCaixasE.Vence Like , ele vai pegar sobre o vencimento.


Option Explicit
Dim RS As New ADODB.Recordset
Public FrmPesCxEntrada As Form

Private Sub cmdCancelar_Click()
Unload Me
End Sub

Private Sub Form_Load()

FG1.ColWidth(0) = 0
FG1.ColWidth(1) = 1000
FG1.ColWidth(2) = 3800
FG1.ColWidth(3) = 1330

MontarLista
End Sub

Private Sub txtPesquisa_Change()
MontarLista
End Sub

Private Sub MontarLista()

Dim RS As New ADODB.Recordset
Dim SQL As String
Dim Criterio As String

FG1.TextMatrix(0, 0) = [Ô]CaixaID[Ô]
FG1.TextMatrix(0, 1) = [Ô]Vencimento[Ô]
FG1.TextMatrix(0, 2) = [Ô]Descrição do Lançamentos[Ô]
FG1.TextMatrix(0, 3) = [Ô]Crédito R$:[Ô]

Criterio = Chr$(39) & txtPesquisa & [Ô]%[Ô] & Chr(39)
SQL = [Ô]SELECT CaixaID, Vence, Descricao, Credito FROM CadCaixasE WHERE CadCaixasE.Emissao Like [Ô] & Criterio & [Ô] ORDER BY Emissao[Ô]

On Error Resume Next
With RS
.Open SQL, CnSql, adOpenForwardOnly, adLockReadOnly

If .EOF Then

MsgBox [Ô]Registro não encontrado[Ô], vbExclamation, [Ô] Sisnews Informções[Ô]
Limpa
FG1.TextMatrix(1, 0) = [Ô][Ô]
FG1.TextMatrix(1, 1) = [Ô][Ô]
FG1.TextMatrix(1, 2) = [Ô][Ô]
FG1.TextMatrix(1, 3) = [Ô][Ô]

Else
Limpa
Do Until .EOF
FG1.AddItem RS(0) & vbTab & RS(1) & vbTab & RS(2) & vbTab & RS(3)
.MoveNext
Loop
FG1.RemoveItem 1
End If
.Close
End With
End Sub

Private Sub Limpa()
Dim i As Long
FG1.Redraw = False
For i = FG1.Rows - 1 To 2 Step -1
FG1.RemoveItem (i)
Next
FG1.Redraw = True
End Sub
MARCELO.TREZE 04/11/2009 12:07:10
#326911
colega exclua a linha criterio

e altere a sql

SQL = [Ô]SELECT CaixaID, Vence, Descricao, Credito FROM CadCaixasE WHERE Emissao BETWEEN #[Ô] & Format(txtDataIni.Text,[Ô]mm/dd/yyyy[Ô]) & [Ô]# AND #[Ô] & Format(txtDataFim.Text,[Ô]mm/dd/yyyy[Ô]) & [Ô]# ORDER BY Emissao[Ô]


lembre-se de mudar o tipo do campo para data/hora
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar