problemas con consulta SQL meter a la base de datos

[memehua]

Hola o:a todos estoy programando en delphi 2006, junto con oracle , mi problema es que uso el atexto para convertir un campo a letras pero cuando lo mado a que haga el update en la base unicamente cambia un valor este es el codigo:

Código Delphi [-]
QUERY1.Active:=TRUE;
while not query1.Eof do
begin
letras1.Numero:= query1.FieldByName('neto').Value;
query1.sql.Text:='update nomina_datos set importe_letra='+ QuotedStr(uppercase(letras1.AsString));
query1.ExecSQL;
query1.Next;
end;

de antemano agradezco la ayuda

[mensana]

Empezado por memehua

... unicamente cambia un valor este es el codigo:

Puedes precisar más ?

No te falta la condición where ?

[dperez79]

El problema es que estás utilizando la misma Query para la consulta y el update, con lo cual al lanzar el update estás machacando los resultados de la consulta anterior. Utiliza un "Query2" para hacer el UPDATE.
Saludos.

[memehua]

QUERY1.Active:=TRUE;
while not query1.Eof do
begin
letras1.Numero:= query1.FieldByName('neto').Value;
query2.sql.Text:='update nomina_datos set importe_letra='+ QuotedStruppercase(letras1.AsString));
query2.ExecSQL;
query1.Next;
end;
Haciendo con dos querys unicamente me actualiza el ultimo registro y no los demas,lo que quiero hacer es que cuando hago la consulta me ponga el numero en letras y unicamente me pone el ultimo que trae ..

[[Lepe]]

memehua ves la diferencia entre el código delphi que acabas de postear y aquel que editó dec (el de tu primer mensaje), varía un poco la presencia, lectura, etc.

Por favor edita el primer mensaje y verás como lo hizo nuestro compañero dec, después haz lo propio con el último mensaje que has puesto.

Muchos de nosotros, no leemos mensajes sin formatear.

Como dice delphi.com.ar: "Dedique el tiempo necesario a formular su pregunta, si pretende que alguien se tome el tiempo necesario en resolverla".

Saludos

[dperez79]

Empezado por memehua

QUERY1.Active:=TRUE;
while not query1.Eof do
begin
letras1.Numero:= query1.FieldByName('neto').Value;
query2.sql.Text:='update nomina_datos set importe_letra='+ QuotedStruppercase(letras1.AsString));
query2.ExecSQL;
query1.Next;
end;
Haciendo con dos querys unicamente me actualiza el ultimo registro y no los demas,lo que quiero hacer es que cuando hago la consulta me ponga el numero en letras y unicamente me pone el ultimo que trae ..

Detecto otros problemas... yo diría que falta la cláusula WHERE, para cambiar sólo la fila que quieres. Tal como está estas cambiando todas con el ultimo valor devuelto por Query1...

[memehua]

muchas gracias dperez79, lo que pretendo es cambiar todos los valores que traiga en mi consulta, suponiendo que tengo 1000 y 2000, que se cambie a su equivalente a mil y a dos mil para toda la consulta, asi que utilizando esa consulta unicamente me cambia por el ultimo valor y sinceramente no se como hacerle. vbmenu_register("postmenu_186455", true);

[dperez79]

¿Qué consulta tienes en Query1? Yo diría que el problema es poner la WHERE del UPDATE de Query2 a lo que realmente quieres actualizar.