error con consulta a 2 tablas

[[Caral]]

Hola
Para mi el problema es el uso de dos botones.
1- hace la sqntencia sql
2- ejecuta el parametro.
Como va a saber el segundo codigo que parametro es fec.
Hay muchas maneras de hacerlo, esta es una:

Código Delphi [-]
Query1.close;
Query1.sql.Add('select venta.fecha, stock.codigo, stock.descrip');
Query1.sql.Add('from ventas, stock');
Query1.sql.Add('where stock.codigo = venta.codigo and fecha = '+StrToDate(datetimepicker1.Date));

Esta es otra:

Código Delphi [-]
Query1.close;
Query1.sql.Add('select venta.fecha, stock.codigo, stock.descrip');
Query1.sql.Add('from ventas, stock');
Query1.sql.Add('where stock.codigo = venta.codigo and fecha = :fec');
sqldataset1.ParamByName('fec').AsDate := datetimepicker1.Date;

Y bueno hay mas.
Saludos