Error SQL "02000 - Data not found"

[Josber]

Tengo un problema bastante raro, a mi entender, con una tabla SQL, la primera vez que entro en el programa y cargo un registro que existe, lo regraba perfectamente, si vuelvo a acceder a ese registro, (seguidamente o en otro momento, pero sin salir del programa), me da el error de SQL "02000" "data not found", pero si al entrar en el registro y antes de regrabar, modifico cualquier dato, da lo mismo el que sea, me lo vuelve a regrabar perfectamente. Éste error me lo ha dado otras veces porque le he puesto al regrabar, en la sentencia SQL el campo principal (UNIQUE KEY), pero eliminandolo de la sentencia, se ha arreglado.

He probado a crear de nuevo la tabla, a ponerle a todos los campos que acepten NULL, a dejar una sola clave única de acceso, (he eliminado las otras "KEY" que tenía, que, de momento no se usaban), y alguna que otra cosa más, pero no hay manera de descubrir el por qué del error.

Ando ya desesperado, alguna sugerencia, porque lo único que me queda es borrar tabla y programa y empezar desde cero y no quisiera.

Gracias y un saludo.-

[Kuk]

Josber, parece tema de COMMIT. Echale un ojo a ver si lo haces bien, y que la configuracion del ODBC este bien.

[Josber]

Gracias, Kuk, acabo de hacer una prueba, que era la que me faltaba, poniéndole al principio de la subrutina de regrabar, nada más entrar, un COMMIT, para "liberar" la BD, y nada, exactamente igual y la configuración del ODBC, debe estar bien porque con otras tablas, funciona sin problemas.

Un saludo.-

[Kuk]

Josber, tienes que hacer COMMIT despues de la modificacion. Si no lo haces, la modificacion queda en Pending, pero no se le aplica a la BBDD. Todo lo que es INSERT, DELETE y UPDATE hay que hacer COMMIT despues siempre.

[Hrmcobol]

Hola Amigos, a mi me paso algo parecido con una tabla de access, el tema era que se perdían registros sin saber porque, luego de unas 5000 ideas distintas, elimine la tabla, la cree nuevamente, elimine el control del programa, lo asigne nuevamente, recompile y anduvo, nunca supe cual fue la razón.

Saludos

[Josber]

Josber, tienes que hacer COMMIT despues de la modificacion. Si no lo haces, la modificacion queda en Pending, pero no se le aplica a la BBDD. Todo lo que es INSERT, DELETE y UPDATE hay que hacer COMMIT despues siempre.

Lo hago también en ese momento Kuk, incluso he puesto un ROLLBACK para probar a deshacer a ver que pasaba y nada sigue igual, el poner el COMMIT al principio era por probar.
Hrm la tabla la he borrado y creado varias veces, incluso con otro nombre pero nada y el control no puedo puedo borrarlo, no existe porque es SQL embebido.

Gracias y un saludo.-

[Kuk]

Hrmcobol, en tu caso, me parece que era entonces culpa de la configuraicon del control.

Josber, pega aqui el codigo de INSERT en la tabla, y el codigo de SELECT, los 2 completos.

[Josber]

Aquí tienes, (lo hago en dos post, porque en uno ólo no me deja):

Select

 LEER.
     MOVE POW-NUMERIC OF CAMPO1 TO PROCOD.
     
     EXEC SQL
          SELECT * FROM PROVEEDOR
                 WHERE PROCOD = :PROCOD
                       INTO :PROCOD ,
                          :PRONOM       ,
                          :PRORAZ       ,
                            :PRODIR       ,
                              :PROCP        ,
                          :PROPOB       ,
                              :PROPRO       ,
                              :PROPAI       ,
                              :PROCIF       ,
                              :PROTEL1      ,
                              :PROTEL2      ,
                              :PROFAX       ,
                              :PROMAIL      ,
                              :PROWEB       ,
                              :PROPER       ,
                          :PROGRU       ,
                              :PROIBAN1     ,
                              :PROIBAN2     ,
                          :PROCTA       ,
                          :PROENT       ,
                          :PRODC        ,
                          :PRONUM_CTA   ,
                              :PROCOD_BAN   ,
                              :PRONUM_BAN   ,
                          :PROBAN       ,
                          :PRODIR_BAN   ,
                          :PROCP_BAN    ,
                          :PROPOB_BAN   ,
                          :PROPRO_BAN   ,
                          :PROPAIS_BAN  ,
                              :PROFOR       ,
                              :PRO_ENE      ,
                              :PRO_FEB      ,
                              :PRO_MAR      ,
                              :PRO_ABR      ,
                              :PRO_MAY      ,
                              :PRO_JUN      ,
                              :PRO_JUL      ,
                              :PRO_AGO      ,
                              :PRO_SEP      ,
                              :PRO_OCT      ,
                              :PRO_NOV      ,
                              :PRO_DIC      ,
                          :PROREP       ,
                              :PRODTO       ,
                              :PROTAR       ,
                              :PROMAY       ,
                              :PRORIE_AUT   ,
                              :PRORIE_ALC   ,
                              :PROTOT       ,
                              :PROREC       ,
                              :PROIVA       ,
                              :PRODTO_PP    ,
                              :PROVAC       ,
                              :PRODIA1      ,
                              :PRODIA2      ,
                              :PRODIA3      ,
                              :PROACT       ,
                              :PROFEC       ,
                              :PROFEC_MOD   ,
                              :PROFEC_COM   ,
                            :PROPROV      ,
                            :PROFAC_REP   ,
                              :PROPLA       ,
                              :PROMESF      ,
                            :PROREP_LEG   ,
                            :PROREP_NIF   ,
                            :PROELI       ,
                          :PROOBS   ,
                          :PROTEX   ,
                          :PROTEX_TEX   ,
                          :PROLIS   ,
                          :PRONOCOM
     END-EXEC.

[Josber]

Insert

 GRABAR.
 
     MOVE "Proveedores - SQL" TO "Caption" OF POW-SELF.
     
     EXEC SQL
          INSERT INTO PROVEEDOR
                 VALUES (   :PROCOD ,
                          :PRONOM       ,
                          :PRORAZ       ,
                            :PRODIR       ,
                              :PROCP        ,
                          :PROPOB       ,
                              :PROPRO       ,
                              :PROPAI       ,
                              :PROCIF       ,
                              :PROTEL1      ,
                              :PROTEL2      ,
                              :PROFAX       ,
                              :PROMAIL      ,
                              :PROWEB       ,
                              :PROPER       ,
                          :PROGRU       ,
                              :PROIBAN1     ,
                              :PROIBAN2     ,
                          :PROCTA       ,
                          :PROENT       ,
                          :PRODC        ,
                          :PRONUM_CTA   ,
                              :PROCOD_BAN   ,
                              :PRONUM_BAN   ,
                          :PROBAN       ,
                          :PRODIR_BAN   ,
                          :PROCP_BAN    ,
                          :PROPOB_BAN   ,
                          :PROPRO_BAN   ,
                          :PROPAIS_BAN  ,
                              :PROFOR       ,
                              :PRO_ENE      ,
                              :PRO_FEB      ,
                              :PRO_MAR      ,
                              :PRO_ABR      ,
                              :PRO_MAY      ,
                              :PRO_JUN      ,
                              :PRO_JUL      ,
                              :PRO_AGO      ,
                              :PRO_SEP      ,
                              :PRO_OCT      ,
                              :PRO_NOV      ,
                              :PRO_DIC      ,
                          :PROREP       ,
                              :PRODTO       ,
                              :PROTAR       ,
                              :PROMAY       ,
                              :PRORIE_AUT   ,
                              :PRORIE_ALC   ,
                              :PROTOT       ,
                              :PROREC       ,
                              :PROIVA       ,
                              :PRODTO_PP    ,
                              :PROVAC       ,
                              :PRODIA1      ,
                              :PRODIA2      ,
                              :PRODIA3      ,
                              :PROACT       ,
                              :PROFEC       ,
                              :PROFEC_MOD   ,
                              :PROFEC_COM   ,
                            :PROPROV      ,
                            :PROFAC_REP   ,
                              :PROPLA       ,
                              :PROMESF      ,
                            :PROREP_LEG   ,
                            :PROREP_NIF   ,
                            :PROELI       ,
                          :PROOBS   ,
                          :PROTEX   ,
                          :PROTEX_TEX   ,
                          :PROLIS   ,
                          :PRONOCOM     )
     END-EXEC.
                            
     IF SQLSTATE = "23000"  *> La CLAVE YA EXISTE (CLAVE DUPLICADA)
        PERFORM REGRABAR
     END-IF.     
     
     EXEC SQL
          COMMIT
     END-EXEC.
*      
     MOVE 0 TO WSVIEW2.
     CALL "VACIAR".
     CALL "INHABILITAR".
     CALL "CARGAR-TABLA".
     MOVE 1 TO "Enabled" OF CAMPO1.
     MOVE 1 TO "CurrentPage" OF TAB1.
     MOVE POW-TRUE TO "Enabled" OF TAB1.
     INVOKE TAB1 "SetFocus".
     INVOKE CAMPO1 "SetFocus".
     EXIT PROGRAM.
*
 REGRABAR.
     MOVE POW-NUMERIC OF CAMPO1 TO PROCOD.
     EXEC SQL
          UPDATE PROVEEDOR
                 SET        PRONOM  =   :PRONOM       ,
                          PRORAZ    =   :PRORAZ       ,
                            PRODIR  =   :PRODIR       ,
                              PROCP     =   :PROCP        ,
                          PROPOB    =   :PROPOB       ,
                              PROPRO    =   :PROPRO       ,
                              PROPAI    =   :PROPAI       ,
                              PROCIF    =   :PROCIF       ,
                              PROTEL1   =   :PROTEL1      ,
                              PROTEL2   =   :PROTEL2      ,
                              PROFAX    =   :PROFAX       ,
                              PROMAIL   =   :PROMAIL      ,
                              PROWEB    =   :PROWEB       ,
                              PROPER    =   :PROPER       ,
                          PROGRU    =   :PROGRU       ,
                              PROIBAN1  =   :PROIBAN1     ,
                              PROIBAN2  =   :PROIBAN2     ,
                          PROCTA    =   :PROCTA       ,
                          PROENT    =   :PROENT       ,
                          PRODC     =   :PRODC        ,
                          PRONUM_CTA    =   :PRONUM_CTA   ,
                              PROCOD_BAN    =   :PROCOD_BAN   ,
                              PRONUM_BAN    =   :PRONUM_BAN   ,
                          PROBAN    =   :PROBAN       ,
                          PRODIR_BAN    =   :PRODIR_BAN   ,
                          PROCP_BAN =   :PROCP_BAN    ,
                          PROPOB_BAN    =   :PROPOB_BAN   ,
                          PROPRO_BAN    =   :PROPRO_BAN   ,
                          PROPAIS_BAN   =   :PROPAIS_BAN  ,
                              PROFOR    =   :PROFOR       ,
                              PRO_ENE   =   :PRO_ENE      ,
                              PRO_FEB   =   :PRO_FEB      ,
                              PRO_MAR   =   :PRO_MAR      ,
                              PRO_ABR   =   :PRO_ABR      ,
                              PRO_MAY   =   :PRO_MAY      ,
                              PRO_JUN   =   :PRO_JUN      ,
                              PRO_JUL   =   :PRO_JUL      ,
                              PRO_AGO   =   :PRO_AGO      ,
                              PRO_SEP   =   :PRO_SEP      ,
                              PRO_OCT   =   :PRO_OCT      ,
                              PRO_NOV   =   :PRO_NOV      ,
                              PRO_DIC   =   :PRO_DIC      ,
                          PROREP    =   :PROREP       ,
                              PRODTO    =   :PRODTO       ,
                              PROTAR    =   :PROTAR       ,
                              PROMAY    =   :PROMAY       ,
                              PRORIE_AUT    =   :PRORIE_AUT   ,
                              PRORIE_ALC    =   :PRORIE_ALC   ,
                              PROTOT    =   :PROTOT       ,
                              PROREC    =   :PROREC       ,
                              PROIVA    =   :PROIVA       ,
                              PRODTO_PP =   :PRODTO_PP    ,
                              PROVAC    =   :PROVAC       ,
                              PRODIA1   =   :PRODIA1      ,
                              PRODIA2   =   :PRODIA2      ,
                              PRODIA3   =   :PRODIA3      ,
                              PROACT    =   :PROACT       ,
                              PROFEC    =   :PROFEC       ,
                              PROFEC_MOD    =   :PROFEC_MOD   ,
                              PROFEC_COM    =   :PROFEC_COM   ,
                            PROPROV =   :PROPROV      ,
                            PROFAC_REP  =   :PROFAC_REP   ,
                              PROPLA    =   :PROPLA       ,
                              PROMESF   =   :PROMESF      ,
                            PROREP_LEG  =   :PROREP_LEG   ,
                            PROREP_NIF  =   :PROREP_NIF   ,
                            PROELI  =   :PROELI       ,
                          PROOBS    =   :PROOBS       ,
                          PROTEX    =   :PROTEX       ,
                          PROTEX_TEX    =   :PROTEX_TEX   ,
                          PROLIS    =   :PROLIS       ,
                          PRONOCOM  =   :PRONOCOM
               WHERE PROCOD = :PROCOD
     END-EXEC.

Gracias a tod@s.-

[Kuk]

Josber, varias cosas. Yo lo que mas he usado ha sido DB2, asi que te voy a decir desde ese prisma cosas a mejorar: el INTO va antes que el FROM. El * (asterisco) no se aconseja usarlo jamas en programas. Tampoco se aconseja llamar de misma forma las variables y los cmapos de la tabla.

En cuanto a tu problema, como tienes definido el campo PRONOM en la tabla, y como la variable PRONOM en la WORKING?