Foros Club Delphi - sumar el valor de un edit a un campo de tabla

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - sumar el valor de un edit a un campo de tabla (https://www.clubdelphi.com/foros/showthread.php?t=62750)

josi	12-01-2009 18:50:05

sumar el valor de un edit a un campo de tabla

hola mis mastros.

tengo un form con base de dato en acces lo que trato de hacer es sumar el
valor de un edit a un campo de una tabla este es el codigo que tengo pero no me funciona:

Código Delphi [-]var
a:integer;
begin
a:=strtoint(edit1.Text);
productosquery1.FieldValues['existencia']:=productosquery1.FieldValues['existencia']+a;
end.

gracias......

vtdeleon

12-01-2009 19:00:11

Saludos

Debes poner el Dataset (productosquery1) en modo ediccion (Edit), pasar el valor que deseas al campo y posteriormente guardar los cambios con Post.

Siguiendo con tu codigo:

Código Delphi [-]a:=strtoint(edit1.Text);
b:=productosquery1.FieldValues['existencia']
productosquery1.edit;
productosquery1.FieldValues['existencia']:=a+b;
productosquery1.post;

Saludos

felipe88

12-01-2009 19:10:35

Hola,
¿A esta linea?

Código Delphi [-]productosquery1.FieldValues['existencia']:=productosquery1.FieldValues['existencia']+a;

¿no le falta esto?

Código Delphi [-]productosquery1.FieldValues['existencia'].value:=productosquery1.FieldValues['existencia'].value+a;

roman

12-01-2009 19:56:56

Cita:

Empezado por felipe88 (Mensaje 334263)

¿no le falta esto?

No:

Código Delphi [-]property FieldValues[const FieldName: string]: Variant read GetFieldValue write SetFieldValue; default;

De hecho, podría incluso omitirse el FieldValues:

Código Delphi [-]productosquery1['existencia']:=productosquery1['existencia']+a;

// Saludos

felipe88

12-01-2009 20:36:45

Cita:

Empezado por roman (Mensaje 334266)

No

De hecho, podría incluso omitirse el FieldValues:

// Saludos

Ok Roman, gracias por el dato ;)

La franja horaria es GMT +2. Ahora son las 00:15:00.