Argument out of range

[maravert]

Hola a todos:

Estoy trabajando con un TSQLDataset y en su Propiedad CommandText tengo el siguiente código

Código SQL [-]
SELECT * FROM VentasMaestro WHERE Fecha BETWEEN :Fecha1 AND :Fecha2

y en su propiedad Params Tengo 2 parámetros

0 Fecha1 de tipo ftDate
1 Fecha2 de tipo ftDate

Cuando los llamo a consulta con el siguiente código

Código SQL [-]
procedure TfrmCorteporPeriodo.FormShow(Sender: TObject);
   VAR
     Fecha1, Fecha2 : TDate;
     Monto : Real;
   Begin
   Monto := 0;

   
  Fecha1 := DateTimePicker1.Date;
  Fecha2 := DateTimePicker2.Date;
   Periodo.DataSet.Close;
 

   TClientDataSet(Periodo.DataSet).Params[0].AsDateTime :=  Fecha1;
  
   TClientDataSet(Periodo.DataSet).Params[1].AsDateTime :=  Fecha2;


  Periodo.DataSet.Open;

El Error aparece al llegar al siguiente código

Código SQL [-]
 TClientDataSet(Periodo.DataSet).Params[1].AsDateTime :=  Fecha2;

Argument out of range

Estoy utilizando MYSQL

Muchas gracias

[maravert]

Les comento que ta lo solucioné, pero se los dejo por si a alguno le sirve


En lugar de utilizar


TClient

Código SQL [-]
DataSet(Periodo.DataSet).Params[0].AsDateTime :=  F1;
 
 TClientDataSet(Periodo.DataSet).Params[1].AsDateTime :=  F2;

Use lo siguiente y todo listo

Código SQL [-]
  TclientDataset (Periodo.Dataset).ParamByName('Fecha1').Value := F1;  // Asigna la fecha de inicio
   TClientDataset (Periodo.DataSet).ParamByName('Fecha2').Value := F2;  // Asigna la fecha de fin

[Casimiro Notevi]

[pgranados]