Hola
Perdon no lo hice bien, lo vuelvo a poner:
Código SQL
[-]
select venta.fecha, stock.codigo, stock.descrip
from ventas, stock
where stock.codigo = venta.codigo and fecha = :fec
el otro:
Código Delphi
[-]
clientdataset1.Close;
sqldataset1.ParamByName('fec').AsDate := datetimepicker1.Date;
clientdataset1.Open;
asi esta mejor.
Saludos