Hola, gracias por el codigo, me ayudo mucho... ahora el drama es que me aparece el siguiente error:
Error 'Operand type clash: int is incompatible with date
Al menos yo creo que no he hecho nada malo, aqui dejo mi codigo
procedure Tfregistro1.fechaClick(Sender: TObject);
var sql:string;
var date:string;
begin
FormatDateTime('yyyy-mm-dd', fecha.Date);
sql:='select * from BITACORA where NICK='+quotedstr(Uvariables.nombre)+' and FECHA='+datetostr(fecha.Date)+'';
fdata.consulta5.Close;
fdata.consulta5.SQL.Clear;
fdata.consulta5.SQL.Add(sql);
fdata.consulta5.Open;
end;
Gracias
|