Consulta SQL+DELPHI 7

[Gbyte]

Hola! Me podrían ayudar simplemente tengo que aumentar o disminuir los precios de mercaderías mostradas en un DBGrid, el porcentaje lo ingreso por TEdit y no se como hacer. Estoy trabajando con Interbase gracias

[[felipe88]]

Pero que quieres hacer exactamente... que se cambie en el DBGrid o que se actualize en la BD?; en sql solo seria un update, o un alter...?... ya se me olvido ?, no lo puedes hacer desde el TTable?

[Gbyte]

Hola! Me podrían ayudar simplemente tengo que aumentar o disminuir los precios de mercaderías mostradas en un DBGrid, el porcentaje lo ingreso por TEdit y no se como hacer. Estoy trabajando con Interbase gracias

[chileno]

Código Delphi [-]
Query.Sql.add('Update tabla_precio set precio_venta = precio_costo * Utilidad ')
Query.Execute;
tabla.refresh;

la idea es esa....hay algunas cosas que tienes que aclarar...quieres modificar todos los precios de cada producto o solamente algunos...si es asi solo colocas un where id_producto = tablaId_producto.value....

la idea es esa...mas que seguri tienes que depurar este pequeño codigo....

espero que te sirva...

[Gbyte]

Hola Felipe! y gracias por responder.
Quiero aplicar un porcentaje a una columna llamada precio de la tabla mercaderia(para subir y bajar los precios). la mercaderia se muestra en el DBGrid y tengo un TEdit para ingresar un porcentaje. Estoy trabjando con IBDataset y no con tablas. He podido hacer que se aplique al primer registro pero quiero aplicar a todos los registros (cambiarlo en la bd y que se muestre en el dbgrid). Te muestro el codigo, que podría modificarle:

mercaderia.IBDSmercaderia.Close;
mercaderia.IBDSmercaderia.SelectSQL.Clear;
mercaderia.IBDSmercaderia.SelectSQL.Text:='select * from mercaderia order by mercaderia.cod_merc asc';
mercaderia.IBDSmercaderia.Open;
num:=mercaderia.IBDSmercaderia.Fields[4].Value;
num1:=strtofloat(cambio.Text);
porcent:=(num*num1)/100;
num:=num+porcent;
mercaderia.IBDSmercaderia2.Close;
mercaderia.IBDSmercaderia2.SelectSQL.Clear;
mercaderia.IBDSmercaderia2.SelectSQL.Text:='update mercaderia set precio_venta=:vara';
mercaderia.IBDSmercaderia2.ParamByName('vara').AsFloat:=num;
mercaderia.IBDSmercaderia2.Open;

[RolphyReyes]

Saludos.

Sin animos de ofender creo que necesitas documentarte un poco sobre SQL como tal.

Aquí tienes una referencia sobre Delphi con Firebird.

[Gbyte]

Tenes mucha razon!
y te agradesco la atención, pero me podrias decir cual de todos los ejemplos es el que tengo que mirar.
Gracias.

[[felipe88]]

Entonces este se actualiza para toda la tabla, refrescando la consulta inicial no te los muestra en todos?
Ademas si el grid esta conectado al Dataset podrias hacerlo, estos vienen siendo como tablas (temporales) y solo haces ApplyUpdates.

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

Hola GByte.
Te recomiendo que leas la Guía de estilo. Aunque con los mensajes que llevas ya no debería ser necesario (yo no eres un novato por aquí).

Por favor, no repitas hilo. Genera confusión, respuestas duplicadas y trabajo de más para los moderadores. He unido los dos hilos y el resultado como ves no es nada satisfactorio.