FoxPro/Visual FoxPro - Registro en Mysql

 
Vista:

Registro en Mysql

Publicado por Ramon (81 intervenciones) el 14/11/2010 17:24:50
Hola buenos dias... quisiera me echaran la mano... en esto...
tengo que afectar dos tablas y una con registro y otra con UPDATE... es asi..

****ESTE cadena es para actualizar la tabla de PRODUCTOS******
lActual="UPDATE PRODUCTOS SET Edo='O' WHERE CODEBAR=?nCodigo"

**** ESTA OTRA CADENA ES PARA AGREGAR EL REGISTRO EN LA TABLA POFERTAS
lGuarda="INSERT INTO POFERTAS(NUM, CODPRODUCTO, DPORCIENTO,DIMPORTE, HORADESDE, HORAHASTA,"+;
"VIGEDESDE, VIGEHASTA, NOMBRE) VALUES(?mNum, ?nCodigo, ?mDPORCIENTO, ?mDIMPORTE, ?mHORADESDE,"+;
"?mHORAHASTA, ?mVIGEDESDE,?mVIGEHASTA, ?cDESCRIP)"

**** Llama al archivo de funciones para realizar la conexion..
SET PROCEDURE TO funciones
=OpenData()
***Realiza el Registro en la tabla pOfertas
TRY
SQLPREPARE(Con,lGuarda)
SQLEXEC(Con)
CATCH
=NoConecta()
ENDTRY

*** Actualiza la tabla de Productos***
TRY
SQLPREPARE(Con,lActual)
SQLEXEC(Con)
CATCH
=NoConecta()
ENDTRY

No habra alguna manera unir juntar los SqlExec
Ya lo hice asi SQLEXEC(CON,lGuarda,lActual)
pero solo me realiza la ultima sentencia que es actualizar....

Alguien tiene alguna idea...?? tAnKs
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder