problemas con consulta SQL meter a la base de datos

[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.

[[Ivanzinho]]

¿Podrías poner un pequeño ejemplo de que es lo que realmente quieres?, porque pienso que te estas liando un poco.

Lo que estás haciendo es ir asignando continuamente al campo importe_letra todos los valores de query1Neto, quedando al final en todos los registros el último valor de query1Neto. Es decir, imaginate que tienes dos registros en la tabla nomina_datos

nomina  importe_letra
     1         1200
     2         1500

y en el query1Neto tienes los siguientes valores 1000, 500 y 1100. Tras la primera iteración tu tabla quedará así

nomina  importe_letra
     1         1000
     2         1000

tras la segunda

nomina  importe_letra
     1         500
     2         500

y finalmente

nomina  importe_letra
     1         1100
     2         1100

cosa que no creo que sea lo que buscas, ya que sino no se para que realizas todas las iteraciones ya que bastaria con hacer :

Código Delphi [-]
QUERY1.Active:=TRUE;
query1.Last
letras1.Numero:= query1.FieldByName('neto').Value;
query2.sql.Text:='update nomina_datos set importe_letra='+     QuotedStruppercase(letras1.AsString));
query2.ExecSQL;

El resultado de la ejecución de este último trozo de código y la del que tu pusiste son equivalentes, siendo mejor esta última opción ya que te ahorras unas cuantas iteraciónes inutiles.

Mi pregunta es : ¿Es esto lo que realmente quieres conseguir?, si no es así pon un ejemplo del estilo al que yo puse.

Un saúdo

[memehua]

hola lo que realmente quiero realizar es lo siguiente
tengo mi consulta

select neto from nomina

al campo neto trae un importe supongamos que el resultado de la consulta sea

1000
1003
1005
1109

Lo que pretendo es que cuando entre al while me haga la conversion de numero a letras y que se actualice en la base de datos, en el campo importe letra

es decir que actualice los datos para que en la base se almecene el nombre de la cadena, entonces quedaria asi:

mil pesos
mil tres pesos
mil cinco pesos
mil ciento nueve pesos

como yo lo realizo unicamente me cambia por el ultimo valor que trae que seria mil ciento nueve pesos y lo mete en la base para todos lo que no se es como meterlo para que me haga para cada uno de los elementos de mi consulta..

con lo que me pusistes


çCódigo Delphi [-]
QUERY1.Active:=TRUE;
query1.Last;
letras1.Numero:= query1.FieldByName('neto').Value;
query2.sql.Text:='update nomina_datos set importe_letra='+ QuotedStr(uppercase(letras1.AsString));
query2.ExecSQL;






me sigue poniendo unicamente el ultimo resultado para todos los campos..

[memehua]

hola lo que realmente quiero realizar es lo siguiente
tengo mi consulta

select neto from nomina

al campo neto trae un importe supongamos que el resultado de la consulta sea

1000
1003
1005
1109

Lo que pretendo es que cuando entre al while me haga la conversion de numero a letras y que se actualice en la base de datos, en el campo importe letra

es decir que actualice los datos para que en la base se almecene el nombre de la cadena, entonces quedaria asi:

mil pesos
mil tres pesos
mil cinco pesos
mil ciento nueve pesos

como yo lo realizo unicamente me cambia por el ultimo valor que trae que seria mil ciento nueve pesos y lo mete en la base para todos lo que no se es como meterlo para que me haga para cada uno de los elementos de mi consulta..

con lo que me pusistes


çCódigo Delphi [-]
QUERY1.Active:=TRUE;
query1.Last;
letras1.Numero:= query1.FieldByName('neto').Value;
query2.sql.Text:='update nomina_datos set importe_letra='+ QuotedStr(uppercase(letras1.AsString));
query2.ExecSQL;






me sigue poniendo unicamente el ultimo resultado para todos los campos..

[[Ivanzinho]]

Empezado por memehua

con lo que me pusistes me sigue poniendo unicamente el ultimo resultado para todos los campos..

Es que lo que te puse es exactamete lo mismo que lo que tu hacías, lo que pasa que te lo puse así para que vieras mas claro donde tenías el problema.

Lo que tienes que hacer es basicamente lo siguente :

1.- Consultar los distintos importes de la base de datos de nóminas :

Código Delphi [-]
consulta := 'Select dictinct importe from nominas';
query1.Close;
query1.SQL.Clear;
query1.SQL.Add(consulta);
query1.Open;

2.- Pasar los distintos importes a letra y modifcar la base de datos

Código Delphi [-]
query1.first;
while not query1.eof do
   begin
      ImporteLetra := PasarALetra(query1Importe.Value);
      
      consulta := 'Update nominas set importe_letra = ' + QuotedStr(ImporteLetra);
      consulta := consulta + ' where importe = ' + FloatToStr(query1Importe.value);
      
      query2.Close;
      query2.SQL.Clear;
      query2.SQL.Add(Consulta);
      query2.ExecSQL;

      query1.Next;
    end;

Espero que te sirva

Un saúdo