INTRVALO DE DATAS

NILTON.VIANNA 19/09/2009 11:33:57
#323260
Bom dias
intervalo de datas

Seguinte a minha idéia é localizar clientes cadatrastro por intervalo de datas
Exe:

Eu digitar data de 10/01/2009 a 20/01/2009

Listando no MSFLEXGRID, somente este período acima desconsiderando os demais.
Grato
TECLA 19/09/2009 12:07:11
#323262
Qual o banco de dados?
Como é feita a conexão?
Posta a rotina de conexão aqui pra que fique claro seu problema.
NILTON.VIANNA 19/09/2009 12:54:51
#323266
Opa Treze Perdão
estou usando o Access.

CLIENTES.MDB

TXT.CADASTRO.TEXT

Valeu pela atençao
NILTON.VIANNA 19/09/2009 13:02:27
#323267


Private Sub MontarLista()

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

grdPesquisa.TextMatrix(0, 0) = [Ô]CodCliente[Ô]
grdPesquisa.TextMatrix(0, 1) = [Ô]Telefone[Ô]
grdPesquisa.TextMatrix(0, 2) = [Ô]Nome[Ô]
grdPesquisa.TextMatrix(0, 3) = [Ô]Abertura[Ô]

[ô] txtadosPesquisa é o campo da busca

Criterio = Chr$(39) & txtDadosPesquisa & [Ô]%[Ô] & Chr(39)
SQL = [Ô]SELECT CodCliente, Telefone, Nome, DataCad FROM CadCliente WHERE CadCliente.DataCad Like [Ô] & Criterio & [Ô] ORDER BY Nome[Ô]
On Error Resume Next
With RS
.Open SQL, cnSQL, adOpenForwardOnly, adLockReadOnly
FABIOPNEVES 19/09/2009 21:27:55
#323272
se voce que usar a opção entre dataInicial e data final você não podera usar o LIKE .

tente o seguinte

SELECT CadCliente.CodCliente, CadCliente.Telefone, CadCliente.Nome, CadCliente.DataCad FROM CadCliente
WHERE .DataCad Between #01/01/2009# And #10/0/2009#.

Mais ou menos isso.

Desculpe se respondi errado...
NILTON.VIANNA 19/09/2009 22:11:18
#323275

Na verdade estou querendo fazer a pesquisa assim
Tenho 100 clientes cadastrados, destes 100 cada cliente tem uma data de abertura do cadastro
Na busca gostaria de pegar assim clientes cadastrados de 01/05/2009 a 01/10/2009
No meu flexgrid seleciona se apenas estes intervalos que selecionei, desconsiderando os outros.
TECLA 20/09/2009 11:15:46
#323280
  • Acrescente duas TEXTBOX para fazer a pesquisa (txtInicial e txtFinal)

  • Query SQL
    Dim Ini As String, Fim As String
    Ini =
    • [Ô]#[Ô] & Format(txtInicial, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
    Fim = [Ô]#[Ô] & Format(txtFinal, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
    SQL = [Ô]SELECT CodCliente, Telefone, Nome, DataCad [Ô]
    SQL = SQL & FROM CadCliente [Ô]
    SQL = SQL & [Ô]WHERE DataCad BETWEEN [Ô] & ini & [Ô] AND [Ô] & Fim
    [txt-color=#0B6138][ô]Aqui continua a rotina para executar a consula[/txt-color]
    NILTON.VIANNA 20/09/2009 19:32:53
    #323290
    Muito Obrigado TECLA

    [ô]NO CASO ESTOU USANDO UMA OPÇAO ASSIM PRA BUSCA POR MES FUNCIONA NOLMALMENTE
    TENHO UM txtPesquisa1 que faz a busca e lista no meu GRID somente ao mes que digitei.
    ------------------------------------------------------------------------------------------------------------------------
    no caso por data de emissao

    teria que fazer dois txtInicial e txtFinal
    pra Lista somente as datas de 01/01/2009 a 20/01/2009

    [ô]Pesquisa por nome da Mes (Funcional Normal)
    [ô]---------------------------
    Private Sub MontarLista1()
    Dim RS As New ADODB.Recordset
    Dim SQL As String
    Dim Criterio As String

    FG1.TextMatrix(0, 0) = [Ô]Lançamento[Ô]
    FG1.TextMatrix(0, 1) = [Ô]Descrição do Lançamentos[Ô]
    FG1.TextMatrix(0, 2) = [Ô]Documento[Ô]
    FG1.TextMatrix(0, 3) = [Ô]Débitos R$:[Ô]
    FG1.TextMatrix(0, 4) = [Ô]Créditos R$:[Ô]

    Criterio = Chr$(39) & txtPesquisa1 & [Ô]%[Ô] & Chr(39)
    SQL = [Ô]SELECT Emissao, Descricao, Doc, Debito, Credito FROM CadCaixas WHERE CadCaixas.Mes Like [Ô] & Criterio & [Ô] ORDER BY CaixaID[Ô]

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

    MsgBox [Ô]Registro não encontrado[Ô], vbExclamation, [Ô]Atenção[Ô]

    Limpa
    FG1.TextMatrix(1, 0) = [Ô][Ô]
    FG1.TextMatrix(1, 1) = [Ô][Ô]
    FG1.TextMatrix(1, 2) = [Ô][Ô]
    FG1.TextMatrix(1, 3) = [Ô][Ô]
    FG1.TextMatrix(1, 4) = [Ô][Ô]

    Else
    Limpa
    Do Until .EOF
    FG1.AddItem RS(0) & vbTab & RS(1) & vbTab & RS(2) & vbTab & RS(3) & vbTab & RS(4)
    .MoveNext
    Loop
    FG1.RemoveItem 1
    End If
    .Close
    End With
    End Sub
    Tópico encerrado , respostas não são mais permitidas
    Voltar