hacer updates a una tabla Paradox

06/07/2011 - 10:22 por rescaleras | Informe spam
¡ Hola !

Estoy tratando de hacer una pequeña aplicación que me permita actualizar 5 datos de una tabla de Paradox.

He creado la conexión a la tabla y realizado un Select, el cual se guarda en un cursor

el usuario proporciona 2 datos que son:

seccion e incremento

Tanto los campos de la tabla como las variablea son de tipo Caracter y utilizo la función VAL() dentro de la sentencia UPDATE
para poder hacer la operación aritmética, misma que está anidada en un STR() para devolverlo a caracter y poderlo almacenar en el campo de la tabla.

El código que he escrito es el siguiente, pero al compilarlo me dice que hay una palabra clave o comando no reconocido en la sentencia.

Podría alguien por favor ayudarme?

Aqui el código que tengo. Le falta agregar los errorhandlers pero lo voy haciendo por partes.

IF thisform.Pageframe1.Page1.SelTipoCambio.Value=1

connStats=SQLEXEC(conexion,;
'UPDATE ?tabla SET;
precio1=STR(VAL(precio1)+VAL(?incremento),10,2),;
precio2=STR(VAL(precio2)+VAL(?incremento),10,2),;
precio3=STR(VAL(precio3)+VAL(?incremento),10,2),;
precio4=STR(VAL(precio4)+VAL(?incremento),10,2),;
precio5=STR(VAL(precio5)+VAL(?incremento),10,2);
WHERE lin_prod=?linea_Prod')
ENDIF

IF thisform.Pageframe1.Page1.SelTipoCambio.Value=2

connStats=SQLEXEC(conexion,;
'UPDATE ?tabla SET;
precio1=STR(VAL(precio1)*1+'.'+VAL(incremento),10,2),;
precio2=STR(VAL(precio2)*1+'.'+VAL(incremento),10,2),;
precio3=STR(VAL(precio3)*1+'.'+VAL(incremento),10,2),;
precio4=STR(VAL(precio4)*1+'.'+VAL(incremento),10,2),;
precio5=STR(VAL(precio5)*1+'.'+VAL(incremento),10,2);
WHERE lin_prod=linea_Prod',
ENDIF

Preguntas similare

Leer las respuestas

Search Busqueda sugerida