problemas con consulta SQL meter a la base de datos

[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

[[movorack]]

así de rapidez se me ocurre que si la columna a editar está en la misma tabla, puedes obviar "talvez" la segunda y no se... hasta te ahorrarias un tantito de procesamiento. creo... digo.

Código Delphi [-]
query.edit;
query1.first;
while not query1.eof do
   begin
     query1.Fieldbyname('importe_letra').AsString := PasarALetra(query1Importe.Value);
      query1.Next;
    end;
query1.post;

espero no esté equivocado.

[[movorack]]

para esto tendrás que usar una tabla... no una query... o si usas una query tendrás que establecer los parametros de actualización en un SQLUpdate...

OOPPPSSS.... un poco más de trabajo.

osea que quedaria algo así:

Código Delphi [-]
table.edit;
table.first;
while not table.eof do
   begin
     table.Fieldbyname('importe_letra').AsString := PasarALetra(table.fieldbyname('importe_valor').Value);
     table.Next;
    end;
table.post;

[[Ivanzinho]]

Empezado por movorack

así de rapidez se me ocurre que si la columna a editar está en la misma tabla, puedes obviar "talvez" la segunda y no se... hasta te ahorrarias un tantito de procesamiento. creo... digo.

espero no esté equivocado.

Espero no estar equivocado yo, pero creo que no te ahorras nada de procesamiento. Te explico por qué:

1.- Al utilizar una tabla traes todos los registros de la base de datos, yo con la query solo traigo los distintos.

2.- Tu recorres toda la tabla y modificas los registros 1 a 1, yo solo realizo una iteración por cada valor distinto del importe de la nómina y modifico los registros en grupos (todos los que son iguales al mismo tiempo).

Debido a lo anterior saco en conclusión que en el peor de los casos (todos los importes distintos) los dos métodos serían equivalentes, sin embargo, el que yo propuse mejoraría en función del número de valores repetidos en el campo importe.

Si estoy equivocado, agredecería que me corrigiesen, pero así es como yo lo veo.

Un saúdo.

[[movorack]]

Compae... tiene razón... se me escapo el DISCTINCT... no lo ví, no lo noté... y eso hace la diferencia.

ahora... pienso que teniendo en cuenta que estamos hablando de ELCARO (lease alreves ORACLE)... se podria (depende de que tan importante sea) dejar esa consulta como una vista y crear una regla que permita la actualización de los registros... y luego mirar esa vista desde un TTable y procesarla línea por linea... (1 a 1) como me dices... Delphi estaria editando 1 línea y ORACLE con la regla creada estaría modificando todos los importes con el mismo valor.

digo digo digo como claudio!!!