Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Fujitsu COBOL PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
Base de datos .mdb Lobosauseda Bases de datos 4 26 de agosto de 2019 09:36

Respuesta

  #1
Antiguo 24 de septiembre de 2018, 15:54
Breew
Patrocinador del Foro
Última Actividad 09.05.2022 07:47
Posts Posts: 125
Likes enviados Enviados: 104
Likes recibidos Recibidos: 8
Base de datos Cadenas vacías en mdb
0 Inactivo Inactivo

Hola.
Hace unos meses que interacciono via cobol con una base de datos mdb que es gestionada desde otro programa.

Acabo de descubrir, que cuando modificaba algun campo y este estaba vacio, es decir sin ningun valor, yo lo llenaba de espacios y lo modificaba.

Necesito modificarlo para que el registro que este lleno de espacios, me quede con longitud 0, es decir vacio totalmente.

Como lo puedo hacer?

Código COBOL:
  1.   *UPDATE CODIGO2
  2. ***********************************************************************************************
  3.       MOVE "Codigo2            " TO MENSAJE-DE-ERROR     .
  4.       MOVE "UPDATE Artículos SET Código2 = '"    TO COMANDO. MOVE 33 TO CONTACHAR.
  5.       MOVE Codigo2        TO COMANDO(CONTACHAR:). ADD 13 TO CONTACHAR.
  6.       MOVE "' " TO COMANDO(CONTACHAR:). ADD 2 TO CONTACHAR.
  7.       MOVE "WHERE Artículo = '" TO COMANDO(CONTACHAR:). COMPUTE CONTACHAR = CONTACHAR + 18.  
  8.       MOVE Articulo       TO COMANDO(CONTACHAR:). COMPUTE CONTACHAR = CONTACHAR + 13.  
  9.       MOVE "'" TO COMANDO(CONTACHAR:).
  10.  
  11. *
  12. *
  13.  
  14.     MOVE COMANDO TO ADO-SQL-STRING.
  15.  
  16. *Esta es la intencion, pero no me sale        
  17. *ERROR EN COMPILADOR        IF "TEXT" OF CmCodigo2-base = SPACES THEN MOVE "" TO CODIGO2
  18. *    
  19.         INVOKE  OBJ-CONNECTION "EXECUTE" USING ADO-SQL-STRING.
Breew is offline   Responder Con Cita
  #2
Antiguo 24 de septiembre de 2018, 19:47
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Breew, en vez de mover espacios, prueba con:

Código COBOL:
  1.      MOVE X"00" TO CAMPO



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 is offline   Responder Con Cita
  #3
Antiguo 24 de septiembre de 2018, 20:55
Breew
Patrocinador del Foro
Última Actividad 09.05.2022 07:47
Posts Posts: 125
Likes enviados Enviados: 104
Likes recibidos Recibidos: 8

Hola kuk.

No lo tengo claro.
Si consulto en la base con el excell me introduce 5 espacios en blanco, en cambio los que no he modificado, no aparece nada . :confused:

En todo caso, mañana verificare con el programa de gestion.

.
Breew is offline   Responder Con Cita
  #4
Antiguo 25 de septiembre de 2018, 11:07
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Breew, has intentado directamente poner el campo a NULL? :

Código SQL:
  1. UPDATE TABLE
  2.    SET campo_1 = NULL
  3.  WHERE campo_2 ...



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 is offline   Responder Con Cita
  #5
Antiguo 26 de septiembre de 2018, 23:51
Breew
Patrocinador del Foro
Última Actividad 09.05.2022 07:47
Posts Posts: 125
Likes enviados Enviados: 104
Likes recibidos Recibidos: 8



Pos no

Ahora si que esta correcto el valor


Gracias.
Breew is offline   Responder Con Cita
Respuesta


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

Saltar a Foro


La franja horaria es GMT +2. Ahora son las 14:51.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.