Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Componente] Conexión SQL vía ADO deja procesos en "SLEEPING" Nitzer PowerCOBOL (ActiveX, v4 - v11) 3 27 de septiembre de 2018 13:28
[Compilador] Powercobol & ADO Joseg PowerCOBOL (ActiveX, v4 - v11) 11 14 de julio de 2018 15:51
[Sintaxis] PowerCOBOL Microsoft ADO diegodm NetCOBOL for Windows 1 17 de agosto de 2017 22:52
[Sintaxis] Conectar con MySQL via ADO dmosca PowerCOBOL (ActiveX, v4 - v11) 7 29 de junio de 2017 15:59
[Postgresql] Error ODBC "No response from backend" Lascu Bases de datos 5 21 de diciembre de 2015 20:43
Respuesta
 
Herramientas

  #1
Antiguo 28 de julio de 2020, 15:59
IDENTIFICATION DIVISION
Fito
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por el Avatar  Activista del Foro: Activista del Foro - Razón: Por aportar ideas 
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Córdoba, Villa María
Edad50 años
Última Actividad10.05.2021 22:50
PROCEDURE DIVISION
PostsPosts: 260
Ha dicho GraciasEnviado: 132
Ha recibido agradecimientosRecibido: 123
Mejores respuestasSoluiones: 13
ReputaciónReputación: 18
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Predeterminado PostgreSQL con ADO...

Hola Amigos:

Tengo una BBDD postgres con una tabla de Actividades. Desde mi sistema tengo que actualizarla, eso ya lo resolví (abajo les paso la rutina). Lo que no logro hacer ahora es limpiar esta tabla antes de actualizar (DELETE FROM).

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  
  5.  01  codigo      pic 9999 value 1.
  6.  01  nombre      pic x(35) value "Prueba 1".
  7.  
  8.  PROCEDURE       DIVISION.
  9.  
  10.  comienzo.
  11.     *> crea los objetos principales
  12.      invoke COM "CREATE-OBJECT" using ADO-CONNECTION-TYPE returning OBJ-CONNECTION.
  13.      invoke COM "CREATE-OBJECT" using ADO-RECORDSET-TYPE  returning OBJ-RECORDSET.
  14.  
  15.      *> define y abre la conexión
  16.      invoke OBJ-CONNECTION "SET-CONNECTIONSTRING" using ADO-CONNECT-STRING returning RETURN-ERROR.
  17.      invoke OBJ-CONNECTION "OPEN" returning RETURN-ERROR.
  18.  
  19.      string 'SELECT * FROM public."Actividades";' low-value delimited by size into ADO-SQL-STRING.
  20.      
  21.      invoke OBJ-RECORDSET "OPEN" using ADO-SQL-STRING OBJ-CONNECTION WLOCK WCURSOR returning RETURN-ERROR.
  22.      invoke OBJ-RECORDSET "GET-RECORDCOUNT" returning RECORDCOUNT.
  23.  
  24.      invoke OBJ-RECORDSET "GET-FIELDS" returning OBJ-FIELDS    *> cargo el objeto fields
  25.      
  26.      invoke OBJ-FIELDS "GET-COUNT" returning OBJ-FIELDS-COUNT  *> cantidad de fields que tiene la tabla
  27.      
  28.      perform varying W-INDEX from 0 by 1 until W-INDEX > (OBJ-FIELDS-COUNT - 1) *> cargo el los objetos field con cada campo de la tabla
  29.         invoke OBJ-FIELDS "GET-ITEM" using W-INDEX returning OBJ-FIELD(W-INDEX + 1)
  30.      end-perform.
  31.  
  32.      invoke OBJ-RECORDSET "ADDNEW".
  33.  
  34.      invoke OBJ-FIELD(1)  "SET-VALUE" using codigo.
  35.      invoke OBJ-FIELD(2)  "SET-VALUE" using nombre.
  36.  
  37.      invoke OBJ-RECORDSET "UPDATE".
  38.      
  39.      invoke OBJ-RECORDSET "Close".
  40.      invoke OBJ-CONNECTION "Close".
  41.      
  42.      invoke pow-self "DisplayMessage" using "Terminó".
  43.      
  44.      exit program.

Si alguien me puede ayudar cómo meter ese "DELETE FROM"

Saludos

Fito...

---------- Post añadido : 11:59 ---------- Post anterior : 14:48 ----------

Hola:

Me contesto solo. jajajaja.

Lo resolvi, eliminando la tabla y creándola de nuevo. Para este caso me queda mejor, así si tengo que cambiar la estructura lo hago directamente desde mi programa.

Código COBOL:
  1.      move spaces                     to cTexto.
  2.      string 'DROP TABLE Actividades '       delimited by size
  3.         into cTexto
  4.      end-string.      
  5.      invoke OBJ-CONNECTION "EXECUTE" using cTexto.
  6.  
  7.      move spaces                     to cTexto.
  8.      string 'CREATE TABLE Actividades ( '           delimited by size
  9.                'actividad integer, '                delimited by size
  10.                'actnombre character varying(35) '   delimited by size
  11.                ')'                                  delimited by size
  12.         into cTexto
  13.      end-string.      
  14.      invoke OBJ-CONNECTION "EXECUTE" using cTexto.

Saludos.

Fito...
Fito no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Kuk (28 de julio de 2020)
  #2
Antiguo 28 de julio de 2020, 16:20
IDENTIFICATION DIVISION
Hrmcobol
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Puerto Madryn
Edad69 años
Última Actividad10.04.2021 21:28
PROCEDURE DIVISION
PostsPosts: 311
Ha dicho GraciasEnviado: 100
Ha recibido agradecimientosRecibido: 116
Mejores respuestasSoluiones: 10
ReputaciónReputación: 18
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado

JAJAJAJAJ El viejo truco eliminar y crear !!!!
Hrmcobol no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 28 de julio de 2020, 21:45
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad36 años
Última Actividad11.05.2021 18:37
PROCEDURE DIVISION
PostsPosts: 1.733
Ha dicho GraciasEnviado: 540
Ha recibido agradecimientosRecibido: 711
Mejores respuestasSoluiones: 93
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

@Fito, has probado sin la palabra FROM?



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 29 de julio de 2020, 09:49
IDENTIFICATION DIVISION
Nitzer
Guru de COBOL
Activista del Foro: Activista del Foro - Razón: Por Videoconferencia-Webinar  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por aportar conocimientos excepcionales 
ENVIRONMENT DIVISION
Avatar de Nitzer
DATA DIVISION
Forero desde (Registrado)noviembre 2015
España
Ubicación Almeria
Edad55 años
Última Actividad07.05.2021 17:12
PROCEDURE DIVISION
PostsPosts: 143
Ha dicho GraciasEnviado: 56
Ha recibido agradecimientosRecibido: 101
Mejores respuestasSoluiones: 5
ReputaciónReputación: 16
Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road
Predeterminado

Hola, para eso hay una opción de SQL, que es TRUNCATE, eso elimina los datos pero no la estructura de la tabla

Me encantaría tener tiempo para que veáis como trabajo con SQL.
Nitzer no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 3
Fito (29 de julio de 2020), Kuk (31 de julio de 2020), Tigre (30 de julio de 2020)
  #5
Antiguo 29 de julio de 2020, 20:13
IDENTIFICATION DIVISION
Fito
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por el Avatar  Activista del Foro: Activista del Foro - Razón: Por aportar ideas 
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Córdoba, Villa María
Edad50 años
Última Actividad10.05.2021 22:50
PROCEDURE DIVISION
PostsPosts: 260
Ha dicho GraciasEnviado: 132
Ha recibido agradecimientosRecibido: 123
Mejores respuestasSoluiones: 13
ReputaciónReputación: 18
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Predeterminado

Hola Andrés:

y a nosotros nos encantaría verlo...

Saludos.

Fito
Fito no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 00:13.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.