Consulta entre datas com filtro(SQL)

Delphi

14/02/2004

Galera estou precisando de um grande favor.
Preciso de uma função em SQL para localizar registros entre um dado periodo e especificando o valor de um campo da tabela.

Query1.Close;
Query1.ParamByName(´inicio´).Asdate := strtodate(MaskEdit1.text);
Query1.ParamByName(´termino´).Asdate := strtodate(MaskEdit2.text);
Query1.Open;

Essa função me dá todos os registro. Certo?
O q devo fz pra complementar essa rotina?

Valeu galera!


Denysk

Denysk

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

14/02/2004

Colega,

Coloca o script SQL pra gente analisar.


GOSTEI 0
Marco Salles

Marco Salles

14/02/2004

Amigo Insire Num Form DoisMaskEdit, Um DbGrid, Um DataSource, Um Query... Link O DataSource No Query, o DbGrid No DataSoyrce, e Na Propiedade DataBase Name Do Query Coloque O Nome Do Aliase Ou Caminho Onde Esta a Tabela Que Voce Quer Condultar. Na Propiedade Sql Do Query1 Insira as Seguintes Linhas De Comando: Select *From NOMEDASUATABELA...Por Fim Na Propiedade Active Do Query1 Selecione a Opção True e Veja o Que Acontece. Se Nada Acontecer Passamos Para a Etapa 2
Vamos ao Código...Num Evento Qualquer(Desde Que o Valor De MaskEdit1 e MaskEdit2 Estejam Devidamentes Selecionados e Corretos) Escreva:

Begin
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add(´Select *From NOMEDASUATABELA´);
Query1.Sql.Add(´Where SEUCAMPODATA >= :Inicio´);
Query1.ParamByName(´inicio´).Asdate := strtodate(MaskEdit1.text);
Query1.Sql.Add(´And SEUCAMPODATA <= :termino´);
Query1.ParamByName(´termino´).Asdate := strtodate(MaskEdit2.text);
Query1.Prepare;
Query1.Open;
End;

P:s Não Esqueça De Colocar Valores Corretos No MaskEdit


GOSTEI 0
POSTAR