Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Como usar Update con una condicion where de la resta de dos campos (https://www.clubdelphi.com/foros/showthread.php?t=78424)

cvlaso77 18-04-2012 21:34:06

Como usar Update con una condicion where de la resta de dos campos
 
Hola a todos

Mi tabla3, NOMINA tiene entre otros los campos NOMBRE_SERVICIO, NOMBRE SERVICIO_MALO y FECHA1, FECHA2 tipo Date.
Estoy usando la sentencia Update para arreglar rápidamente el campo "NOMBRE_SERVICIO" , pero necesito arreglar solo los campos cuya diferencia de dias entre las fechas (FECHA 1 -FECHA2) sea mayor a un numero predefinido.
Mi problema es que traté de introducir el cálculo "datebetween" en la sentencia where del Update y no me funciona o hace lo mismo para todos los registros si hacerme la diferencia con los campos FECHA1 Y FECHA2 de cada registro de la tabla.
Ojala alguien me puedan dar una mano agregandome el código de esta opcion de condición a mi ejemplo si es que se puede hacer.
La otra forma que es recorrer la tabla completa y me complica por que mi tabla tiene 308.000 registros.
De antemano igual Muchas Gracias

Adjunto mi código

Código Delphi [-]
Edit3.text:= table3.fieldbyname('NOMBRE_SERVICIO').value;
Edit4.Text:= table3.fieldbyname('NOMBRE_SERVICIO_MALO').value);
    
With Query1 do
begin
   Active:=False;
   SQL.Clear;
   SQL.Add('Update NOMINA set SERVICIO= :nombre_nuevo where SERVICIO= :nombre_actual');
end;

query1.parambyname('nombre_actual').asstring:= Edit4.text; //NOMBRE DE SERVICIO MALO
query1.parambyname('nombre_nuevo').asstring:= Edit3.text;  //NOMBRE DE SERVICIO BUENO

marcoszorrilla 18-04-2012 21:58:23

No puedes utilizar DateBetween porque no es una instrucción SQL sino Pascal.

Tendrás que hacer algo como:
Código SQL [-]
Where fecha1 - Fecha2 > 20;

Es a modo de ejemplo tendrías que adaptarlo a tu caso particular.

Un Saludo.

ecfisa 18-04-2012 22:07:08

Hola cvlaso77.

Si no te entendí mal sería:
Código SQL [-]
UPDATE SERVICIOS SET SERVICIO = :NOMBRE_NUEVO
WHERE ABS(FECHA_1 - FECHA_2) = :PERIODO
AND SERVICIO = :NOMBRE_VIEJO

Saludos.

Edito: Al poner el mensaje no había visto la respuesta de Marcos, pero opino igual sobre como evaluar la diferencia entre fechas: =, <, >, <=, >=
Por otro lado veo que cvlaso77 dijo "sea mayor" y en mi código puse ' = :PERIODO' :o ...

cvlaso77 18-04-2012 23:41:36

Gracias por las respuestas
 
Mil gracias por su ayuda
En el código que pone ecfisa según entiendo que el update funciona asi,
>Setea o escribe los campos servicio de todos los registros , con el nombrenuevo, siempre de se cumpla la condicion where, que sale de hacer la comparación de ,
ABS (FECHA_1 - FECHA_2) = con el dato pasado como ,:PERIODO, esto funciona ok, pero mi pregunta es otra, quizas no me expresé bien o mi ejemplo no reflejaba bien la pregunta.
Voy a preguntarlo de otra forma, dejando de lado el 'between' y mi ejemplo anterior

Tengo una tabla con 4 campos Campo1(char), Campo2(char), Campo3(Date),Campo4(Date),Campo5(Date).
Quiero llenar el Campo5 con la resta de fechas (Campo4 menos Campo3)
Puedo hacer un loop repeat que recorra hasta eof los 308.000 registros, calculándolo en cada registro, y esto toma bastante tiempo.
La pregunta es entonces, como hago esto mismo pero con SQL. Intente hacerlo con Update y no me resulta.

Obsv. Uso between por que en relidad debo llenar el campo 5 con los dias entre las fechas, el que deberia ser un integer.
Según lo que dice marcoszorrilla, Asumo que la sentencia SQL no puede invocar comandos PASCAL cuando trabaja de registro en registro desde el Update, ojalá se pueda, no se...

Gracias otra vez por su paciencia.
Saludos

ecfisa 19-04-2012 15:01:22

Hola cvlaso77.

Probá de este modo:
Código SQL [-]
UPDATE TABLA SET FECHA3 = CAST('0001-01-01' AS DATE) + ABS(FECHA1 - FECHA2) - 1

Saludos.

cvlaso77 24-04-2012 01:42:57

Gracias Moderador, lo veo y te respondo
Saludos


La franja horaria es GMT +2. Ahora son las 02:50:53.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi