Sql en el activate del formulario?

[chipsoni]

Muchas gracias, por dedicar un poco de vuestro tiempo a ayudarme, o al menos a intentarlo, que se me ha pasado ponerlo en la pregunta.

[Neftali [Germán.Estévez]]

¿Qué significa que no hace nada? ¿No pasa por ahí? ¿No se ejecuta?
¿Lo has ejecutado paso a paso? Pon un BreakPoint y comprueba que el código se ejecuta.

Independientemente, yo te aconsejaría no colocar ese código en el Activate, ya que es un evento que puede ejecutarse muchas veces (más de las que deseas). Puedes utilizar el OnShow, o poner un Timer para asegurarte de que se ejecuta cada cierto intervalo de tiempo.

[[Lepe]]

El OnActivate se produce cada vez que recibe el foco la ventana, así que puede ejecutarse más de una vez.

Quizás una forma de hacerlos, sea al arrancar la aplicación. Para hacerlo una sola vez al día, puedes guardar en un archivo ini la fecha de la última comprobación. Si esa fecha es menor que la fecha actual, entonces lanzas la consulta.

Código Delphi [-]
if ultimaFechaComprobacion < Date() then
with Query do
begin
with SQL do
begin
  DataModule1.tdemanda.Close; // no debería estar abierta jamás... pero bueno.
  Clear;
  Add('UPDATE tdemanda set estado=3, hecho=1');
  Add('WHERE (fecha+30< :fecha) and (estado=1)');
  ParamByName('fecha').AsDate:= date();
  DataModule1.tdemanda.Execute
end;
end;

Saludos