USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  INTERVALO ENTRE DATAS
Nilton Vianna
AMPARO
SP - BRASIL
ENUNCIADA !
Postada em 19/09/2009 19:08 hs         
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
 
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
   
Nilton Vianna
AMPARO
SP - BRASIL
ENUNCIADA !
Postada em 19/09/2009 22:12 hs         

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.

 

   
Alfterra
Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 21/09/2009 15:42 hs            
DATAI = Format(txtDataI.Value, "MM/DD/YYYY")
DATAF = Format(txtDataF.Value, "MM/DD/YYYY")
FILTROSQL = "SELECT * FROM AH010 WHERE "
EXPSQL = "[AH_DATA] >= " & DATAI & " AND [AH_DATA] <= " & DATAF
FILTROSQL = FILTROSQL & EXPSQL

ao iniciar a busca vc limpa o grid, e depois da busca vc manda prencher so com os cadastro que foi achado...
atencao pro campo data do seu banco de dados se for ACESS tem # no fitro SQL...
     
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
Postada em 22/09/2009 13:40 hs            
Use o Between, transforme sua data no formato "yyyymmdd" como String:
 
SQL = "SELECT CodCliente, Telefone, Nome, DataCad FROM CadCliente WHERE"
SQL = SQL & " DataCad BETWEEN " & sINICIO & " AND " & sFINAL
 
vlu//
     
Omar
MONTES CLAROS
MG - BRASIL
Postada em 22/09/2009 21:32 hs            
Olá pessoal.Tenho a impressão que o Nilton Vianna quer um consulta entre as datas
especificadas por ele, onde a consulta organiza o registros desejados e mais os outros
registros.Isto é.Se na sua tabela tem 100 registros e a consulta achou 10 registros ,esses
10 registro fica ordenado de 1 a 10 e os outros 90 registros vem na sequência 11,12,13
.......98,99,100.Pelo que eu entendi nenhum registro pode ficar fora da consulta.
Omar
     
Nilton Vianna
AMPARO
SP - BRASIL
ENUNCIADA !
Postada em 23/09/2009 14:23 hs         

Ok Omar Obrigado pela atenção,

Na verdade são lançamentos no caixa diário, por exemplo, tenho um mês de lançamento

E queria listar um período tipo do dia 10 ao dia 20, e no meu grid aprece se só o lançamento de 10 a 20, mantendo os demais.

Grato

 

   
Página(s): 1/4      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página