Consulta em SQL
Como faço para fazer a seguinte consulta
Quero selecionar todas as contas PAGAS , por exemplo em um período inicial de 01/08/03 até 15/08/03, em SQL;
Obrigado
Quero selecionar todas as contas PAGAS , por exemplo em um período inicial de 01/08/03 até 15/08/03, em SQL;
Obrigado
Estanieski
Curtidas 0
Respostas
Diogoalles
14/08/2003
select * from Table1
where ((Data >= :data1)and(data2 <= :data2))
o código acima deve estar dentro de um componente Query. Na propriedade Params da query defina que data1 e data2 são do tipo Date.
insira no seu formulário dos componentes edit´s que receberão a Data1 e Data2
aí no OnClick de um Button coloque
...
begin
Query.Close;
Query.ParamByName(´Data1´).AsDate := strtodate(Edit1.Text);
Query.ParamByName(´Data2´).AsDate := strtodate(Edit2.Text);
Query.Open;
end;
abraço
Diogo
where ((Data >= :data1)and(data2 <= :data2))
o código acima deve estar dentro de um componente Query. Na propriedade Params da query defina que data1 e data2 são do tipo Date.
insira no seu formulário dos componentes edit´s que receberão a Data1 e Data2
aí no OnClick de um Button coloque
...
begin
Query.Close;
Query.ParamByName(´Data1´).AsDate := strtodate(Edit1.Text);
Query.ParamByName(´Data2´).AsDate := strtodate(Edit2.Text);
Query.Open;
end;
abraço
Diogo
GOSTEI 0
Machado
14/08/2003
Só completando o nosso amigo.
If edit2.Text < edit1.text Then
begin
ShowMessage(´Intervalo de datas inválido, a data inicial é maior que a data final!´);
edit2.text := edit1.text;
end
Else
begin
Só para verificar e não causar um erro.
If edit2.Text < edit1.text Then
begin
ShowMessage(´Intervalo de datas inválido, a data inicial é maior que a data final!´);
edit2.text := edit1.text;
end
Else
begin
Só para verificar e não causar um erro.
GOSTEI 0