filtrare tabella per data con datetimepicker

[gianpa]

ciao
riesco a filtrare una tabella ottenendo i record prima di una certa data così:
clientdataset1.Filter:='DATA<''18/09/2013''';
però vorrei scegliere a runtime la data che voglio o con un tedit o con il DTPicker però ottengo sempre errori soprattutto con le virgolette !
qualcuno di voi sà la sintassi corretta ?

Grazie

ciao

[xinyiman]

ciao, hai già provato con la sintassi Between ?!

[gianpa]

scusa , ma ho postato già quello che vorrei ,cioè che mi ritorni la lista dei record dove la data è precedente a oggi (per esempio) . Con between mi pare che si possa indicare un intervallo di tempo che non mi serve!
Vorrei sapere come sfruttare il suddetto componente (comodo perchè visualizza un calendario da cui estrarre la data voluta)

ciao

[Stilgar]

La butto a sentimento:

Codice: [Seleziona]

clientdataset1.Filter:=Format('DATA<"%s"',[datetostr(data)]);

la variabile data è un datetime.
Eventualmente espora come chiedere a dateToStr come ottenere la data nel formato che vuoi. (Italiano suppongo dall'esempio)

Stilgar

[brunello]

così su SQLSERVER funziona, ciao Brunello

clientdataset1.Filter := 'DATA<' + QuotedStr(FormatDateTime('yyyy/mm/dd', giorno));

[gianpa]

Grazie Brunello era quello che mi serviva; purtroppo però mi dice:

[Pascal Error] Unit1.pas(62): E2250 There is no overloaded version of 'FormatDateTime' that can be called with these arguments

grazie lo stesso!
ciao

[gianpa]

ho provato anche la sintassi suggerita da Stilgar ,ma:
[Pascal Error] Unit1.pas(64): E2250 There is no overloaded version of 'DateToStr' that can be called with these arguments

----stesso identico errore------

sob!!!

[Legolas]

Sia DateToStr che FormatDateTime richiedono come parametro una variabile di tipo TDateTime. Che cosa passi come parametro?

[brunello]

Non ho verificato con DTPicker ma con un semplice componente DateEdit1 passi il parametro Date non ci sono problemi, ciao Brunello

clientdataset1.Filter := 'DATA<' + QuotedStr(FormatDateTime('yyyy/mm/dd', DateEdit1.Date));

[Legolas]

Tra l'altro notavo ora una cosa: quell'errore [Pascal Error] non mi pare di averlo mai incontrato in Lazarus e/o freepascal, così come non mi risulta ci sia un TDateTimePicker in lazarus. Stai usando per caso Delphi?

[gianpa]

Grazie Brunello ,ora provo !
Sì Legolas li uso entrambi ...

Ciao

[Antonello]

lazarus + sqlite + ztable

procedure TForm1.Button1Click(Sender: TObject);
begin
  if CalendarDialog1.Execute then
  begin
    ZTable1.Filter := 'Data < ''' + DateToStr(CalendarDialog1.Date) + '''';
    ZTable1.Filtered := true;
  end else
    ZTable1.Filtered := false;
end; 

funziona

[gianpa]

ho modificato così per il delphi2007 : procedure TForm1.Button1Click(Sender: TObject);
begin

  if monthcalendar1.ExecuteAction=1 then
  begin
    sqldataset1.Filter := 'Data < ''' + DateToStr(monthcalendar1.Date) + '''';
    sqldataset1.Filtered := true;
  end else
    sqldataset1.Filtered := false;


end;

end.

ma mi da' errore su executeaction (non c'è execute) --> not enough parameters !
La sintassi richiede un parametro booleano(ho messo=1)

ciao

[Legolas]

TCalendarDialog e TMonthCalendar sono due componenti differenti, quindi non puoi utilizzarli allo stesso modo!

Il primo è un dialog, e per questo motivo ti è stato mostrato un esempio che ne prevede l'apertura per l'utilizzo (CalendarDialog1.Execute). Il secondo invece è già visibile sul form, quindi non devi richiamare nessun codice per mostrarlo a schermo. Probabilmente potrebbe bastare

Codice: [Seleziona]

    sqldataset1.Filter := 'Data < ''' + DateToStr(monthcalendar1.Date) + '''';
    sqldataset1.Filtered := true;

[gianpa]

con questa istruzione :

edit1.Text:=dateTostr(monthcalendar1.Date);

sono riuscito a passare il valore cliccato sul monthcalendar1 al componente edit1 che mi visualizza la data che ho scelto!
ora non mi resta che passare la data al filtro per ottenere i record che hanno la data inferiore ...
provo perchè ancora trovo errori ... poi posto il risultato!
ciao