filtrare tabella per data con datetimepicker

[gianpa]

alla fine la sintassi che mi dà meno problemi è :   
clientdataset1.Filter:='DATA<''dateTostr(monthcalendar1.Date)''';
ma mi dà comunque errore di conversione di tipo(ole-str)

tutte le altre che ho provato compreso la tua suggerita sopra mi danno errori di sintassi...

ciao

[Antonello]

clientdataset1.Filter:='DATA<''dateTostr(monthcalendar1.Date)''';
ma mi dà comunque errore di conversione di tipo(ole-str)

gianpa,
ho fatto una prova con gli esempli  che riguardano il TClientDataSet inclusi in D6,
un semplicissimo TEdit in cui inserire la data nel formato gg/mm/aaaa e al click su un TButton
ClientDataSet1.Filter := 'ShipDate <= '''+Edit1.Text +'''';
ClientDataSet1.Filtered := True;
il tutto funziona perfettamente.
Se a te continua a dare problemi dovresti controllare il formato delle date.

[gianpa]

Provo come dici poi ti faccio sapere ! Ma che cosa e' SHIPDATE ?
Ciao

[Antonello]

Provo come dici poi ti faccio sapere ! Ma che cosa e' SHIPDATE ?
Ciao

è il nome del campo nella tabella sulla quale applichi il filtro, quindi  per te diventa
ClientDataSet1.Filter := 'Data <= '''+Edit1.Text +'''';
ClientDataSet1.Filtered := True;

[gianpa]

e infatti così come lo scrivi è perfetto ,non devo correggere nulla !!!
purtroppo mi torna questo errore:
First chance exception at $7C812FD3. Exception class EVariantTypeCastError with message 'Could not convert variant of type (OleStr) into type (Date)'. Process sviluppo.exe (3456)

se è il formato della data a dare problemi posso assegnarlo nella createForm o c'è una proprietà (che non trovo) nel componente ?
Ciao

[Antonello]

che dati e come li carichi nel clientdataset?
l'errore in quale momento si presenta?
se a design time nella proprietà filter scrivi Data <= '31/12/2012' imposti la proprietà filtered a true e attivi il clientdataset che succede?

[gianpa]

posto tutto:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
edit1.Text:=dateTOstr(monthcalendar1.Date);

end;

procedure TForm1.BitscadenzaClick(Sender: TObject);
//     var data,giorno:string;
begin
// sqldataset1.commandtext:='SELECT * from INTERVENTO where DATA< date';
// clientdataset1.Filter:='DATA<''datetimepicker1.text''';
// clientdataset1.Filter:=DATA<'18/09/2013';
// clientdataset1.Filter := 'DATA<' + QuotedStr(FormatDateTime('yyyy/mm/dd', giorno));
// clientdataset1.Filter := 'DATA<' + QuotedStr(FormatDateTime('yyyy/mm/dd', Edit1.Text));
// ClientDataSet1.Filter := 'Data <= '''+Edit1.Text +'''';
clientdataset1.Filter:='DATA<''18/09/2013''';
//    clientdataset1.Filter:=Format('DATA<"%s"',[datetostr(date)]);
 clientdataset1.Filtered:=true;
end;

le righe con i/commenti/ sono il codice che mi da errore che ho provato ! le righe senza le barre di commento sono giuste; vengono eseguite! praticamente al posto della data scritta per esteso(18/09/2013) vorrei mettere una variabile perchè ovviamente possa cambiarne il valore !
ciao

[brunello]

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

prova così e vedi se funziona

[brunello]

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

scusa ma non  avevo visto il tedit quello non lo puoi formattare a piacimento mentre il valore riportato dal componente si

[Antonello]

clientdataset1.Filter:='DATA<''18/09/2013''';
clientdataset1.Filtered:=true;
end;

le righe con i/commenti/ sono il codice che mi da errore che ho provato ! le righe senza le barre di commento sono giuste; vengono eseguite! praticamente al posto della data scritta per esteso(18/09/2013) vorrei mettere una variabile perchè ovviamente possa cambiarne il valore !
ciao

usa un TMaskEdit imposta la proprietà Maskedit a !99/99/0000;1;_
ClientDataSet1.Filter := 'Data < '''+MaskEdit1.Text +'''';
ClientDataSet1.Filtered := True;
oppure la soluzione proposta da brunello

[gianpa]

Ho provato per prima il suggerimento di Brunello e funziona già magnificamente così ... comunque grazie TANTISSIMO a tutti e due !

ciao