comparación de Fechas

[[Caral]]

Hola
Nada mas para que te guíes un poco:

Código Delphi [-]
ADOQuery1.Open;
  ADOQuery1.Filter := 'FechaTransac >= '+DateToStr(DateTimePicker2.DateTime)+' AND FechaTransac <= '+DateToStr(DateTimePicker3.DateTime);
  ADOQuery1.Filtered := True;

Saludos

[mgaytan]

estoy muy verde para esto me prodias explicar donde pongo esto !!!
ya que la consulta la estoy haciendo desde una form no uso SQL ni ADOSQL.

Gracias.

[[Caral]]

Hola
Vamos por partes, que no entiendes, donde colocas la consulta.
Veamos, esto es lo que tienes:

Código Delphi [-]
begin
Table1.Edit;
dx:=Table1.Recordcount;
Table1.First;
r:=StrToInt(Edit3.Text);
for dz:=1 to dx do
begin
if ((DateTimePicker1.Date<=Table1.Fieldbyname('FECHA').asstring)and (DateTimePicker2.Text>=Table1.Fieldbynam('FECHA').asstring) Then
begin
Table2.Insert;
Table2.Fieldbyname('FECHA').asstring:=Table1.Fieldbyname('FECHA').asstring;

Código Delphi [-]
if 
Table1.Fieldbyname('FECHA') <= (DateTimePicker1.Date)
and 
Table1.Fieldbynam('FECHA') >= (DateTimePicker2Date)
Then

No se esto de los parametros me incomoda un poco, lo prefiero por sql.
Espero te ayude un poco.
Saludos

[mgaytan]

CLaro que las rutinas son mas tediosas de hecho quiero aprender a manegar SQL pero el primer ejemplo que me pusiste no se donde colocarlo o como hacer consultas por SQL, mi duda es mas atras del ejemplo que me estas dando espero me puedas ayudar a.

Gracias

[mgaytan]

CLaro que las rutinas son mas tediosas de hecho quiero aprender a manegar SQL pero el primer ejemplo que me pusiste no se donde colocarlo o como hacer consultas por SQL, mi duda es mas atras del ejemplo que me estas dando espero me puedas ayudar a.

Gracias

[[Caral]]

Hola

Código Delphi [-]
begin
Table1.Open;
Table2.Open;
Table1.First;
dx:=Table1.Recordcount;
r:=StrToInt(Edit3.Text);
for dz:=1 to dx do
Begin
Table1.Filter := 'FECHA >= '+DateToStr(DateTimePicker1.DateTime)+' AND FECHA <= '+DateToStr(DateTimePicker2.DateTime);
Table1.Filtered := True;
end;
begin
Table2.Insert;
Table2.Fieldbyname('FECHA').asDate:=Table1.Fieldbyname('FECHA').asstring;

No se si se podra hacer asi tambien:

Código Delphi [-]
Table2.Fieldbyname('FECHA').asDate:=Table1.Filter;

Saludos

[[Caral]]

Hola
Rectifico:

Código Delphi [-]
begin
Table1.Open;
Table2.Open;
Table1.First;
dx:=Table1.Recordcount;
r:=StrToInt(Edit3.Text);
for dz:=1 to dx do
Begin
Table1.Filter := 'FECHA >= '+DateToStr(DateTimePicker1.DateTime)+' AND FECHA <= '+DateToStr(DateTimePicker2.DateTime);
Table1.Filtered := True;
end;
begin
Table2.Insert;
Table2.Fieldbyname('FECHA').asDate:=Table1.Fieldbyname('FECHA').asDate;

Pequeño error de dedo.
Saludos

[mgaytan]

Me aparece este error 'Arithmetic in Filter Not Supported'
se crea una excepcion y me saca.