Manejo de Fechas de vencimiento en delphi 7

[[oscarac]]

para el tema de las comillas puedes usar quotedStr()

ejemplo

Código Delphi [-]
Select Codigo from tabla where Codigo = quotedStr(edit1.text)

2 tu codigo me parece algo complicado...
para que se utiliza el edit2?
el c:= '' no es necesario cuando asignas a la variable c la cadena del Query

[luisraad]

jajajajaja haber amigo

nuestro profesor nos dijo jaja lo de las comillas que locura ahora fue que vine a darme cuenta.. buen aporte.

lo otro es que ese edit2 es para que se traiga el campo F_CADUCIDAD y este se compate con el datetimepicker imaginate!!! pero aja amigo que hacemos es el concepto de nuestro tutor

[Casimiro Noteví]

Recuerda poner etiquetas al código, ejemplo:





.

[luisraad]

Bueno ya ensaye varios y no consigo hacerlo...

al parecer nuestro profesornos explico de otra manera distinta y para colmo dificil!! recurri al foro en busca de ayuda pero veo que son muy avanzados por o menos en lo de las comillas es algo que creo que nuestro profesor ni lo sabe

[Casimiro Noteví]

Veamos, pega aquí el código que tienes, y no lo cambies, sobre ese código te decimos qué debes cambiar.

[luisraad]

Código Delphi [-]
Adoquery1.close;
Adoquery1.sql.text:='select * from MEDICAMENTOS where F_CADUCIDAD < :lafecha + :numerodias';
Adoquery1.Parameters.ParamByName('0') := datetimepicker1.date;
Adoquery1.Parameters.ParamByName('1') := strtoint(edit1.text);
Adoquery1.open;

es asi que lo estoy haciendo y me da error en la parte de (:=) en los parametros

[[Caral]]

Hola

Código Delphi [-]
doquery1.close;
Adoquery1.sql.text:='select * from MEDICAMENTOS where F_CADUCIDAD < :lafecha + :numerodias';
Adoquery1.Parameters[0].Value := datetimepicker1.date;
Adoquery1.Parameters[1].value := strtoint(edit1.text);
Adoquery1.open;

Saludos

[[oscarac]]

hace 1 hora te dije como hacerlo
en lugar de poner '0' y '1', coloca los nombres de los parametros

lafecha
numerodias

Código Delphi [-]
Adoquery1.Parameters.ParamByName('Lafecha') := datetimepicker1.date;
Adoquery1.Parameters.ParamByName('numerodias') := strtoint(edit1.text);

[Casimiro Noteví]

Empezado por jltf2308

..

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración