Foro de Cobol
Registrate en el Foro de Cobol y Aporta tus experiencias y conocimientos sobre este lenguaje de programacion, con tu ayuda el foro crecera y todos nos podremos beneficiar de los conocimientos de los demas.

Gracias por entrar a COBOLEROS.ES
Síguenos en Twitter

no funciona el insert, update y delete

Ver el tema anterior Ver el tema siguiente Ir abajo

no funciona el insert, update y delete

Mensaje por uchihaaizen el Mar Nov 17, 2015 3:52 am

Buen dia, soy nuevo en cobol y me gustaria solucionar mi duda para poder insertar, actualizar y eliminar registros de una tabla.

el select me sale perfecto, pero no se que ocurre con los anteriores ya mencionados.

si me pudiesen ayudar dándome un ejemplo de una inserción a una tabla simple, entre mas simple mejor para poder entenderlo seria de gran ayuda. por ejemplo para insertar en una tabla llamada estudiante que tenga los campos codigo y nombre, mi programa seria asi:

* no se donde especificar la conexión a la base de datos y no se que mas errores tenga.

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   EXEC SQL
   INCLUDE SQLCA
   END-EXEC.
   
      01 variables.
         05 cod              PIC x(4).
         05 nom             PIC X(25).

PROCEDURE DIVISION.
   MOVE "1005" TO cod
   MOVE "juan" TO nom
   
   EXEC SQL
      INSERT INTO estudiante(codigo, nombre)
      VALUES (:cod, :nom)
   END-EXEC.
   
   IF SQLCODE=0 
      DISPLAY 'Record Inserted Successfully'
      DISPLAY variables
   ELSE DISPLAY 'Error'
   END-IF.
STOP RUN.

uchihaaizen

Mensajes : 1
Reputación : 0
Fecha de inscripción : 16/11/2015

Ver perfil de usuario

Volver arriba Ir abajo

Re: no funciona el insert, update y delete

Mensaje por Coboler@ el Mar Nov 17, 2015 10:02 pm

La teoría: 


La función del Insert es añadir nuevas filas a una tabla o vista, se puede:

. Especificar los valores de las columnas que se quieren insertar
. Incluir una instrucción SELECT en la INSERT para decir al DB2 los datos para la nueva fila están contenidas en otra tabla.


Formato


EXEC SQL
INSERT
INTO nombre_de_la_tabla o vista (nombres de columnas)
VALUES (valor_de_cada_columna especificada en la clausula INT
END-EXEC

Si se especifican menos nombres de columnas de los que hay en la fila el DB2 les asigna valores por defecto.

Si se intenta insertar una fila que duplica otra existente en la tabla


. Si la tabla tiene un indice único, la fila no es insertada, y el DB2 proporciona un SQLCODE -803
. Si la tabla no tiene un indice único, la fila es insertada sin problemas, el SQLCODE devuelto sera 0.
avatar
Coboler@
Admin

Mensajes : 215
Reputación : 19
Fecha de inscripción : 02/02/2011
Edad : 37
Localización : Madrid

Ver perfil de usuario http://www.coboleros.es

Volver arriba Ir abajo

Re: no funciona el insert, update y delete

Mensaje por Coboler@ el Mar Nov 17, 2015 10:04 pm

Ademas de inlcuir la SQLCA, debes de inlcuir tambien tu tabla.


DATA DIVISION.
   WORKING-STORAGE SECTION.
   EXEC SQL
   INCLUDE SQLCA
   END-EXEC.


   EXEC SQL
   INCLUDE ESTUDIANTE
   END-EXEC.
avatar
Coboler@
Admin

Mensajes : 215
Reputación : 19
Fecha de inscripción : 02/02/2011
Edad : 37
Localización : Madrid

Ver perfil de usuario http://www.coboleros.es

Volver arriba Ir abajo

Re: no funciona el insert, update y delete

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.