Comparar fechas en Access

[janexa]

hola tengo una aplicacion hecha en delphi 7 y uso una BDatos en ACcEss 2003 estoy haciendo una consulta Código Delphi [-]
datamodule1.QC.Close;
datamodule1.QC.SQL.Clear;
datamodule1.QC.SQL.Add('select a.*,c.nombre as Nombre_Articulo, a2.compra_lts ');
datamodule1.QC.SQL.Add('from doctos_compras a, partidas_compras a2, articulos c ');
datamodule1.QC.SQL.Add('where a.folio_compra=a2.folio_compra and a2.cve_art=c.idarticulo and and a.fecha>=aram1 and
a.fecha<dateadd(dd,1,aram1)');
datamodule1.QC.SQL.Add('order by fecha');
datamodule1.QC.ParamByName('param1').AsDatetime:=Picker1.Datetime;
datamodule1.QC.ExecSQL;





Me marca un error del Access que le falta parametros!!!!!!
HElp Me PLease

[[Caral]]

Hola
No lo entiendo bien, pero por lo menos hay un error:

Código Delphi [-]
datamodule1.QC.Close;
datamodule1.QC.SQL.Clear;
datamodule1.QC.SQL.Add('select a.*,c.nombre as Nombre_Articulo, a2.compra_lts ');
datamodule1.QC.SQL.Add('from doctos_compras a, partidas_compras a2, articulos c ');
datamodule1.QC.SQL.Add('where a.folio_compra=a2.folio_compra and a2.cve_art=c.idarticulo and and a.fecha >= Param1 and
a.fecha <  dateadd(dd,1, Param1)');
datamodule1.QC.SQL.Add('order by fecha');
datamodule1.QC.ParamByName('Param1').AsDatetime:=Picker1.Datetime;
datamodule1.QC.ExecSQL;

Saludos

[janexa]

Ke no entiendes???

[janexa]

Código Delphi [-]
datamodule1.QC.Close;
datamodule1.QC.SQL.Clear;
datamodule1.QC.SQL.Add('select a.*,c.nombre as Nombre_Articulo, a2.compra_lts ');
datamodule1.QC.SQL.Add('from doctos_compras a, partidas_compras a2, articulos c ');
datamodule1.QC.SQL.Add('where a.folio_compra=a2.folio_compra and ');
datamodule1.QC.SQL.Add('a2.cve_art=c.idarticulo and and a.fecha>=:Xfecha ');
datamodule1.QC.SQL.Add(' and (a.fecha);
datamodule1.QC.SQL.Add('order by fecha ');
datamodule1.QC.ParamByName('Xfecha').AsDatetime:=Picker1.Datetime;
datamodule1.QC.ExecSQL;

[[Caral]]

Hola
Pregunto:
Con que componente enlazas con access?
Bde , ado , etc.
Saludos

[janexa]

uso BDE y quiero que el resultado de la consulta en un quickreport o dbgrig no se si sea la sintaxis para mandar la fecha en access

Código Delphi [-]
procedure TExistencias.GenerarClick(Sender: TObject);
var fecha,fecha2:variant;
begin
fecha:=picker1.DateTime;
datamodule1.QC.Close;
datamodule1.QC.SQL.Clear;
datamodule1.QC.SQL.Add('select a.*,c.nombre as Nombre_Articulo, a2.compra_lts ');
datamodule1.QC.SQL.Add('from doctos_compras a, partidas_compras a2, articulos c ');
datamodule1.QC.SQL.Add('where a.folio_compra=a2.folio_compra and a2.cve_art=c.idarticulo and a.fecha=:valor and a.fecha); ---->NO SE SI MANEJE ESO EN ACCESS
datamodule1.QC.ParamByName('valor').Value:=fecha;  datamodule1.QC.ExecSQL;
suiDBGrid2.DataSource:=datamodule1.JD2;
end;

[[Caral]]

Hola
No se que pretendes hacer, la verdad sigo sin entender.
Para empezar te aconsejo que cambies de bde a ado.
Veamos, se supone que estas haciendo una comparacion de fechas, el campo debe ser, supongo de tipo datetime en la tabla.
Entonces podriamos colocar dos datetimepicker en el form y hacer esto:
Con bde:

Código Delphi [-]
datamodule1.QC.Close;
datamodule1.QC.SQL.Clear;
datamodule1.QC.SQL.Add('select a.*,c.nombre as Nombre_Articulo, a2.compra_lts ');
datamodule1.QC.SQL.Add('from doctos_compras a, partidas_compras a2, articulos c ');
datamodule1.QC.SQL.Add('where a.folio_compra = a2.folio_compra and a2.cve_art = c.idarticulo and and a.fecha >= :Fecha1 and
a.fecha <=  :Fecha2');
datamodule1.QC.SQL.Add('order by fecha');
datamodule1.QC.ParamByName('Fecha1').Value:=Picker1.Datetime;
datamodule1.QC.ParamByName('Fecha2').Value:=Picker2.Datetime;
datamodule1.QC.Open;

Con ado:

Código Delphi [-]
datamodule1.QC.Parameters.ParamByName('Fecha1').Value:=Picker1.Datetime;
datamodule1.QC.Parameters.ParamByName('Fecha2').Value:=Picker2.Datetime;

o con cualquiera:

Código Delphi [-]
datamodule1.QC.Parameters[0].Value:=Picker1.Datetime;
datamodule1.QC.Parameters[1].Value:=Picker2.Datetime;

Saludos