F�rum Pesquisa por Dia e mes, date time Picker #466825

13/01/2014

coloquei o seguinte c�digo no evento do bot�o de pesquisa:

If DateTimePicker2.Date < DateTimePicker1.Date Then
begin
ShowMessage('Intervalo de datas inv�lido, a data inicial � maior que a data final!');
DateTimePicker2.Date := DateTimePicker1.Date;
end
Else
begin
Inicio := DateToStr(DateTimePicker1.Date);
Final := DateToStr(DateTimePicker2.Date);
   ConsultaAniver.Close;
   ConsultaAniver.SQL.Clear;
   ConsultaAniver.SQL.Text := ' SELECT Membro.Nome, '+
  ' Membro.Fone, '+
  ' Membro.Celular, '+
  ' Membro.DataNascimento' +
  ' FROM Membros ' +
  ' WHERE Data >=:pInicial and Data<=:pFinal ORDER BY Data ';
  ConsultaAniver.ParamByName('pInicial').AsDateTime := StrToDate(Inicio);
  ConsultaAniver.ParamByName('pFinal').AsDateTime := StrToDate(Final);

AsDatetime esta sublinhado, e ai n�o roda

Moabe Oliveira

Curtir t�pico

+ 0

Responder

Posts

14/01/2014

Marcos Saffran

Ol� Moabe,

tente alterar o c�digo para:

   ConsultaAniver.SQL.Text := ' SELECT Nome, '+
  ' Fone, '+
  ' Celular, '+
  ' DataNascimento' +
  ' FROM Membros ' +
  ' WHERE DataNascimento >=:pInicial and DataNascimento<=:pFinal ORDER BY Data ';

Responder

Gostei + 0

14/01/2014

Leandro Chiodini

No SQL
pode usar um

to_date(:datainicial, "DD/MM")

caso for necessario.

att,

Responder

Gostei + 0

14/01/2014

Felippe Tadeu

Bom dia.

ConsultaAniver.SQL.Text := ' SELECT Nome, '+
' Fone, '+
' Celular, '+
' DataNascimento' +
' FROM Membros ' +
' WHERE DataNascimento >="'+FormatDateTime('formatoquevcquer',DateTimePicker1.Date)+'" and DataNascimento<="'+FormatDateTime('formatoquevcquer',DateTimePicker2.Date)+'" ORDER BY Data ';

vc pode usar esse tamb�m.

Responder

Gostei + 0

14/01/2014

Marcos Saffran

ConsultaAniver.ParamByName('pInicial').AsDateTime := StrToDate(Inicio);
ConsultaAniver.ParamByName('pFinal').AsDateTime := StrToDate(Final);

AsDatetime esta sublinhado, e ai n�o roda

N�o prestei aten��o nesse �ltimo detalhe.

Tente o seguinte:

ConsultaAniver.Params.ParamByName('pInicial').AsDateTime := StrToDate(Inicio);
ConsultaAniver.Params.ParamByName('pFinal').AsDateTime := StrToDate(Final);

Responder

Gostei + 0

14/01/2014

Douglas

Bom dia.

ConsultaAniver.SQL.Text := ' SELECT Nome, '+
' Fone, '+
' Celular, '+
' DataNascimento' +
' FROM Membros ' +
' WHERE DataNascimento >="'+FormatDateTime('formatoquevcquer',DateTimePicker1.Date)+'" and DataNascimento<="'+FormatDateTime('formatoquevcquer',DateTimePicker2.Date)+'" ORDER BY Data ';

vc pode usar esse tamb�m.

Meu amigo apenas uma sugest�o no seu c�digo. Fica mais elegante tamb�m.


ConsultaAniver.SQL.Text := ' SELECT Nome, '+
' Fone, '+
' Celular, '+
' DataNascimento' +
' FROM Membros ' +
' WHERE DataNascimento  between ' + QuotedStr(FormatDateTime('formatoquevcquer',DateTimePicker1.Date)) + ' and ' +     QuotedStr(FormatDateTime('formatoquevcquer',DateTimePicker2.Date)) + 'ORDER BY Data';

Responder

Gostei + 0