restar fechas sql

[Oraxtar]

Hola amigos del foro, tengo el siguiente problema y espero me puedan ayudar. Estoy realizando un proyecto en el cual manejo informacion de medicamentos. Lo que pretendo hacer es un reporte que me muestre los medicamentos que van a caducar con un mes de anterioridad manejando una query. Estoy trabajando con Delphi 7 y mis tablas estan hechas en IB 6.
Estuve chencando el foro pero no puede entontrar algo. El codigo que tengo ahora es este :

fecha:=datetostr(date);
frmrepcad.IBQuery1.Close;
frmrepcad.IBQuery1.SQL.Clear;
frmrepcad.IBQuery1.SQL.Add('select * from medicamento where fecha_cad-:fecha1 between 1 and 30');
frmrepcad.IBQuery1.ParamByName('fecha1').AsDateTime:=strtodatetime(fecha);
frmrepcad.IBQuery1.open;
frmrepcad.QuickRep1.Preview;

Con este codigo me marca un error, espero me puedan ayudar.

[ilichhernandez]

Los campos fecha_cad y fecha 1 son tipo date ?? ...... se que es ua pregunta rara pero he visto fechas en formato string tambien..
en que formato las guardas (01122006 o 20061201)

[vtdeleon]

Saludos

No entiendo por que un parametro justo despues de un campo, ahi es que esta el error.

Código SQL [-]
select * from medicamento where fecha_cad between :fechahoy and fechahoy+30

Esta consulta mostrará los medicamentos qeu se van a vences dentro de los proximos 30 dias.
"Fechahoy" como su nombre lo dices es un parametro en la que asignaras la fecha actual o cualquier otra fecha si lo consideras oportuno.

Pd:Trata de usar las etiquetas para resaltar el codigo que utilices. Dale clic a los link que tengo en mi firma y chequea como se utilizan. Despues de eso, edita tu mensaje de mas arriba y haz la prueba. BIENVENID@ al Club

[Oraxtar]

Saludos ilichhernandez respecto a la pregunta que me haces, si, el campo que tengo en mi tabla medicamento fecha_cad es de tipo date, y el parametro fecha1 es de tipo datetime (me parece que asi lo cheque en otro tema parecido, lo utilice en otra query para generar otro reporte y me funciono perfectamente). y en lo referente a el formato me parece que es '01/05/06'.

Espero me puedas ayudar, que estoy medio confundido

[Oraxtar]

Que onda vtdeleon, gracias por tu respuesta, pero me marca un error, probe el codigo que me sugeriste, pero me dice que la columna fecha1 es desconocida.

Código Delphi [-]
frmrepcad.IBQuery1.Close;
    frmrepcad.IBQuery1.SQL.Clear;
    frmrepcad.IBQuery1.SQL.Add('select * from medicamento where fecha_cad between :fecha1 and fecha1+30');
    frmrepcad.IBQuery1.ParamByName('fecha1').AsDateTime:=strtodatetime(fecha);
    frmrepcad.IBQuery1.open;
    frmrepcad.QuickRep1.Preview;

despues probe con :

Código Delphi [-]
frmrepcad.IBQuery1.SQL.Add('select * from medicamento where fecha_cad between :fecha1 and :fecha1+30');

poniendole (, y me decia que el campo fecha1+30 no existe.

La verdad, es la primera vez que manejo delphi e IB. Agradeceria la ayuda que me puedan dar.
pd. gracias por lo de las etiquetas.

[ilichhernandez]

En este link aparecen algo que te puede servir.
http://groups.msn.com/ce77cj5fut58ai...6&all_topics=1