Probando con el ocx de nitzer , agrego como hacer un
Insert y
Update
*Update*
Código COBOL:
*> Update
move spaces to sql-comando.
MOVE "empresa de prueba nro 23" TO Q-Nombre.
MOVE "dirección con ñÑ y acentos" TO Q-Dire.
STRING
"UPDATE empresas SET "
"Nombre_empresa = "
"'"
Q-Nombre
"'"
","
"Direccion_empresa = "
"'"
Q-Dire
"'"
" WHERE id_empresa = 23;"
delimited by size
INTO sql-comando
END-STRING.
DISPLAY "sql-comando : " , sql-comando(1:400).
INVOKE SqlServer1 "Execute" USING sql-comando RETURNING RETORNO.
display " RETORNO Execute UPDATE:" , RETORNO. *> si es 0 ERROR , SI ES CORRECTO 1
*> si hay error en sql-comando dispara el evento con POW-RETCODE = -1 , en POW-RECORD = mensaje de error
*>
if RETORNO = 1 THEN
display "UPDATE correcto !!"
else
display "UPDATE error !!"
end-if.
*Insert*
Código COBOL:
*------------
*> Insert
MOVE SPACES TO sql-comando.
MOVE "EMPRESADA MODELO OCX SQL 2232" TO Q-Nombre.
MOVE "San Martin 4242" TO Q-Dire.
STRING
"INSERT INTO empresas "
"("
"Nombre_empresa"
","
"Direccion_empresa"
")"
" VALUES "
"("
QueryEmpresa
")"
';' delimited by size
INTO sql-comando
END-STRING.
DISPLAY "sql-comando : " , sql-comando(1:400).
*> execute insert
INVOKE SqlServer1 "Execute" USING sql-comando RETURNING RETORNO.
display " RETORNO Execute INSERT:" , RETORNO. *> si es 0 ERROR , SI ES 1 CORRECTO
*> si hay error en sql-comando dispara el evento con POW-RETCODE = -1 , en POW-RECORD = mensaje de error
*>
if RETORNO = 1 THEN
display "insert correcto !!"
else
display "insert error !!"
end-if.
Saludos...