Consulta Por Fecha Con Base De Datos Dbase
 

Saludos,

Tengo una base de datos en dbase y estoy haciendo una consulta por fecha y me devuelve un mensaje de error como el que sigue:

type mismatch in expression

Lo he hecho de diferente manera como sigue:

form6.Query1.Close;
form6.Query1.SQL.Clear;
form6.Query1.SQL.Add('select * from tbl_backup where fecha='+datetostr(DateTimePicker1.Date));
form6.Query1.Open;
if form6.query1.recordcount > 0 then
form6.showmodal
else
showmessage('No existen registros en la fecha especificada');

=========================================================================

{form6.Query1.close;
form6.Query1.sql.clear;
form6.query1.sql.add('select * from tbl_backup');
form6.query1.sql.add('where fecha =' + DateToStr(DateTimePicker1.Date));
form6.query1.open;
if form6.query1.recordcount > 0 then
form6.showmodal
else
showmessage ('No existen registros para la fecha indicada');

==========================================================================
form6.query1.SQL.clear;
form6.query1.sql.add('Select * from tbl_backup,');
form6.query1.sql.add('where Fecha =# '+DateToStr(DateTimePicker1.Date)+'#');
form6.Query1.Params[0].AsDate:= datetimepicker1.date;
form6.query1.open;
if form6.query1.recordcount > 0 then
form6.showmodal
else
showmessage ('No existen registros para la fecha indicada');

El campo de es tipo date y estoy utilizando el componebte datetimerpicker1.

Espero que alguien me ayude con esto por favor.

casi estoy seguro que podria ser:

Código Delphi [-]
form6.query1.sql.add('where fecha =' + QuotedStr(DateToStr(DateTimePicker1.Date)));

lo que hace la funcion QuotedStr es poner comilla simple en la fecha, para que quedara algo asi:

Where Fecha = '23/04/2007'

Código Delphi [-]
form6.query1.sql.add('where fecha =' + QuotedStr(FormatDateTime('mm/dd/yyyy',DateTimePicker1.Date)));

Un Saludo.

Saludos,

Gracias por la ayuda, me funciona de maravilla