show create procedure

Discussion of open issues, suggestions and bugs regarding MyDAC (Data Access Components for MySQL) for Delphi, C++Builder, Lazarus (and FPC)
Post Reply
pimentel_flores
Posts: 31
Joined: Wed 15 Aug 2007 16:30
Location: mexico

show create procedure

Post by pimentel_flores » Wed 15 Aug 2007 18:49

Hi, i have a problem when unsing mydac to retreive the command "show create procedure spUser", the stored procedure is about 300 lines, but when i run this command in mydac it only shows about 40 lines,
how can i solve this, im using mydac4.
Top
pimentel_flores
Posts: 31
Joined: Wed 15 Aug 2007 16:30
Location: mexico

here is an example

Post by pimentel_flores » Wed 15 Aug 2007 20:55

try with a myquery, and a dbmemo, the field for the memo is "create procedure"

create the folowin procedure, after the creation run the command
show create procedure spCrearObjeto

and see how in the dbmemo you will find the create procedure structure truncated.

this is the complete stored code

Code: Select all

DROP PROCEDURE IF EXISTS spCrearObjeto;;
CREATE PROCEDURE spCrearObjeto(
vObjeto      Varchar(40),
vTipo        Varchar(40),
vDescripcion Varchar(40),
vEmpresa     Varchar(40),
vIDOrigen    Varchar(40),
vPadre       Varchar(40),
vOrden       Varchar(255),
vInstruccion Varchar(40),
vDestino     Varchar(40)

)
BEGIN
/*se crea el objeto en constructorb*/
     IF UPPER(vInstruccion) = 'NUEVO' THEN
        BEGIN
          INSERT INTO Constructorb (oid,seccion,descripcion,tipo,orden) Values(vIDOrigen,vObjeto,vDescripcion,vTipo,vOrden);
          set @lastID :=  LAST_INSERT_ID();

           /*se crean las propiedades dependiendo del tipo de objeto*/
          /*
          IF UPPER(vTipo) = 'ACCION'            THEN                               
          IF UPPER(vTipo) = 'BOTON'             THEN                               
          IF UPPER(vTipo) = 'BOTONAYUDA'        THEN                               
          IF UPPER(vTipo) = 'BOTONBARRA'        THEN                               
          IF UPPER(vTipo) = 'BOTONMENU'         THEN                               
          IF UPPER(vTipo) = 'BOTONMENUALTERNO'  THEN                               
          IF UPPER(vTipo) = 'CAMPO'             THEN                              
          IF UPPER(vTipo) = 'CHECK'             THEN                              
          IF UPPER(vTipo) = 'COMBO'             THEN                              
          IF UPPER(vTipo) = 'ETIQUETA'          THEN                              
          IF UPPER(vTipo) = 'FORMA'             THEN                              
          IF UPPER(vTipo) = 'GRID'              THEN                              
          IF UPPER(vTipo) = 'GRUPO'             THEN                              
          IF UPPER(vTipo) = 'IMAGEN'            THEN                              
          IF UPPER(vTipo) = 'LISTA'             THEN                              
          IF UPPER(vTipo) = 'MENUALTERNO'       THEN                              
          IF UPPER(vTipo) = 'PANEL'             THEN                              
          IF UPPER(vTipo) = 'RADIOGRUPO'        THEN                              
          IF UPPER(vTipo) = 'TAB'               THEN                              
          IF UPPER(vTipo) = 'TABLA'             THEN                              
          IF UPPER(vTipo) = 'VARIABLE'          THEN

  
           
          */
          
          
           IF UPPER(vTipo)='BOTONBARRA' THEN
              BEGIN
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ACTIVO','TRUE');         
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'HINT','Default Hint'); 
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ICONO','10');            
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'INDICE','0');            
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'VISIBLE','TRUE');        
              END;        
           END IF;
              
          
           IF UPPER(vTipo)='TAB' THEN
              BEGIN
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ACTIVO','TRUE');                   
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'CONTROLACTIVO','FALSE');           
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'GRUPOS','2');                      
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'TITULOGRUPO1','General');        
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'TITULOGRUPO2','Detalle');
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'TITULOPAGINA','Default TAB');
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'VISIBLE','TRUE');
              END;
           END IF;
          
           IF UPPER(vTipo)='CAMPO' THEN
              BEGIN
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ACTIVO','TRUE');
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'BOTONAYUDA','DefaultHelp');             
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'COLORFUENTE','$00000000');    
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'CONTROLACTIVO','FALSE');     
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ETIQUETA','TRUE');           
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'GRUPOPADRE','1');            
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ITALICA','FALSE');           
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'LARGO','200');               
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'LINEANUEVA','TRUE');         
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'NEGRITA','FALSE');           
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'PADRE','DefaultPage');           
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'RENGLON','1');               
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'REQUERIDO','FALSE');         
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'SUBRAYADA','FALSE');         
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'TAMANOFUENTE','8');          
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'TITULO','DefaultField');
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'VISIBLE','TRUE');            
              END;
           END IF;
              
           IF UPPER(vTipo)='BOTON' THEN
              BEGIN
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ACTIVO','TRUE');           
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'CONTROLACTIVO','FALSE');   
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'GRUPOPADRE','1');          
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'HINT','DefaultHint');      
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'LARGO','75');              
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'PADRE','DefaultPage');         
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'TITULO','DefaultButton');      
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'VISIBLE','TRUE');          
              END;
           END IF;    
           
           IF UPPER(vTipo)='COMBO' THEN
              BEGIN
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ACTIVO','TRUE');        
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'CONTROLACTIVO','FALSE');
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'GRUPOPADRE','1');       
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'LARGO','200');          
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'PADRE','PAGINA2');      
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'TITULO','123');         
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'VISIBLE','TRUE');       
              END;
           END IF;     
 
           IF UPPER(vTipo)='CHECK' THEN
              BEGIN
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ACTIVO','T');           
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'CONTROLACTIVO','FALSE');
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'GRUPOPADRE','1');       
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'LARGO','60');           
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'PADRE','PAGINA2');      
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'TITULO','MI CHECK');    
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'VISIBLE','T');          
              END;
           END IF;     
           
           IF UPPER(vTipo)='RADIOGRUPO' THEN
              BEGIN
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ACTIVO','T');           
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'CONTROLACTIVO','FALSE');
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'GRUPOPADRE','1');       
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'LARGO','60');           
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'PADRE','PAGINA2');      
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'TITULO','MI CHECK');    
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'VISIBLE','T');          
              END; 
           END IF;     

           IF UPPER(vTipo)='PANEL' THEN
              BEGIN
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ACTIVO','T');        
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ALTO','200');        
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'GRUPOPADRE','1');    
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'LARGO','200');       
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'LINEANUEVA','T');    
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'PADRE','PAGINA2');   
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'RENGLON','1');       
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'TITULO','MI PANELI');
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'VISIBLE','T');       
              END;
           END IF;     
           
           IF UPPER(vTipo)='IMAGEN' THEN
              BEGIN
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ACTIVO','T');                             
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ALTO','400');                             
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'GRUPOPADRE','1');                         
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'IMAGEN','\192.168.1.1\IMG\UNTITLED.BMP');
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'LARGO','300');                            
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'LINEANUEVA','F');                         
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'PADRE','PAGINA2');                        
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'RENGLON','1');                            
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'VISIBLE','T');                            
              END; 
           END IF;     
                   
           IF UPPER(vTipo)='LISTA' THEN
              BEGIN
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ACTIVO','T');           
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ALTO','200');           
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'CONTROLACTIVO','FALSE');
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'GRUPOPADRE','1');       
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'LARGO','50');           
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'LINEANUEVA','F');       
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'PADRE','PAGINA2');      
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'RENGLON','1');          
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'VISIBLE','T');          
              END; 
           END IF;     
                
           IF upper(vTipo)='TABLA' THEN
              BEGIN
              /* VALORES DEFAULT */
                   INSERT INTO Constructord (oid,variable,valor) values (@lastID,'','');
                   INSERT INTO Constructord (oid,variable,valor) values (@lastID,'','');
                   INSERT INTO Constructord (oid,variable,valor) values (@lastID,'','');
                   INSERT INTO Constructord (oid,variable,valor) values (@lastID,'','');
                   INSERT INTO Constructord (oid,variable,valor) values (@lastID,'','');
                   INSERT INTO Constructord (oid,variable,valor) values (@lastID,'','');
                   INSERT INTO Constructord (oid,variable,valor) values (@lastID,'','');
                   INSERT INTO Constructord (oid,variable,valor) values (@lastID,'','');
              /* VALORES IDIOMAS */       
              END;
           END IF;
           
           IF UPPER(vTipo)='FORMA' THEN
              BEGIN
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ACTIVO','TRUE');     
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'BARRA','TRUE');      
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'COLOR','$00C3B295'); 
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'ESTADO','MAX');      
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'PAGINAS','TRUE');    
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'TIPO','MDI');        
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'TITULO','Clientes'); 
                   INSERT INTO constructord (oid,variable,valor) values(@LastID,'VISIBLE','TRUE');    
              END; 
           END IF; 
        END;       
     END IF;  -- fin instruccion NUEVO  
     
     IF upper(vInstruccion) ='BORRAR' THEN
        BEGIN
        END;
     END IF;  
/* fin procedimiento */            
END;;

-------------------------------
This is the truncate result

Code: Select all

CREATE DEFINER=`root`@`localhost` PROCEDURE `spCrearObjeto`(
vObjeto      Varchar(40),
vTipo        Varchar(40),
vDescripcion Varchar(40),
vEmpresa     Varchar(40),
vIDOrigen    Varchar(40),
vPadre       Varchar(40),
vOrden       Varchar(255),
vInstruccion Varchar(40),
vDestino     Varchar(40)

)
BEGIN
/*se crea el objeto en constructorb*/
     IF UPPER(vInstruccion) = 'NUEVO' THEN
        BEGIN
          INSERT INTO Constructorb (oid,seccion,descripcion,tipo,orden) Values(vIDOrigen,vObjeto,vDescripcion,vTipo,vOrden);
          set @lastID :=  LAST_INSERT_ID();

           /*se crean las propiedades dependiendo del tipo de objeto*/
          /*
          IF UPPER(vTipo) = 'ACCION'            THEN                               
          IF UPPER(vTipo) = 'BOTON'             THEN                               
          IF UPPER(vTipo) = 'BOTONAYUDA'        THEN                               
          IF UPPER(vTipo) = 'BOTONBARRA'        THEN                               
          IF UPPER(vTipo) = 'BOTONMENU'         THEN                               
          IF UPPER(vTipo) = 'BOTONMENUALTERNO'  THEN                               
          IF UPPER(vTipo) = 'CAMPO'             THEN                              
          IF UPPER(vTipo) = 'CHECK'             THEN                              
          IF UPPER(vTipo) = 'COMBO'             THEN                              
          IF UPPER(vTipo) = 'ETIQUETA'          THEN                              
          IF UPPER(vTipo) = 'FORMA'             THEN                              
          IF UPPER(vTipo) = 'GRID'              THEN                              
          IF UPPER(vTipo) = 'GRUPO'             THEN                              
          IF UPPER(vTipo) = 'IMAGEN'            THEN                              
          IF UPPER(vTipo) = 'LISTA'             THEN                              
          IF UPPER(vTipo) = 'MENUALTERNO'       THEN                              
          IF UPPER(vTipo)
If you run the same command in the Mysql's Query Browser you will see that this tool retreives the complete procedure,



Please HELP
Thanks in advance
Top
Antaeus
Posts: 2098
Joined: Tue 14 Feb 2006 10:14

Post by Antaeus » Thu 16 Aug 2007 07:11

Thank you for such detailed information. We have reproduced this problem and fixed it. This fix will be included in the next MyDAC build.
Top
pimentel_flores
Posts: 31
Joined: Wed 15 Aug 2007 16:30
Location: mexico

Thanks

Post by pimentel_flores » Thu 16 Aug 2007 14:13

thank you Antaeus, and about the new build. when do you plan to release this?, I'm asking because it's pretty urgent to me to have this fix.

in the other hand, i have an issue about my developer licence, who is the correct person i have to talk about this?, i have sent some messages and e-mails without response, or can you send me a phone number to call you?
this is my address. [email protected]

thanks.
Top
Antaeus
Posts: 2098
Joined: Tue 14 Feb 2006 10:14

Post by Antaeus » Thu 16 Aug 2007 14:35

We are planning to release the next build of MyDAC in about three weeks.

Please send me your registration information at evgeniyd*crlab*com.

You should forward request about your developer license to sales*crlab*com.
Top
pimentel_flores
Posts: 31
Joined: Wed 15 Aug 2007 16:30
Location: mexico

Licence issue

Post by pimentel_flores » Fri 17 Aug 2007 17:21

Hi Antaeus, I have sent an email to the addesses you gave me but havent recevied any response, do you have any news about my licence issue?
Top
Devart
Site Admin
Posts: 3974
Joined: Tue 26 Oct 2004 13:51

Post by Devart » Mon 20 Aug 2007 12:45

Please check for email message from our sales team.
Top
pimentel_flores
Posts: 31
Joined: Wed 15 Aug 2007 16:30
Location: mexico

New build

Post by pimentel_flores » Tue 18 Sep 2007 17:04

Antaeus wrote:We are planning to release the next build of MyDAC in about three weeks.

Please send me your registration information at evgeniyd*crlab*com.

You should forward request about your developer license to sales*crlab*com.
Hi Antaeus, is almost 4 weeks since i posted this issue, and i just wanted to know when are you going to release the new build for the mydac5 with this fix.

Any way if you think you will take more time, could you please send me this fix to my e-mail? [email protected] or [email protected]

thanks
Top
Antaeus
Posts: 2098
Joined: Tue 14 Feb 2006 10:14

Post by Antaeus » Wed 19 Sep 2007 09:24

We plan to make the new build available in a couple of days.
Top
pimentel_flores
Posts: 31
Joined: Wed 15 Aug 2007 16:30
Location: mexico

Any update about this?

Post by pimentel_flores » Thu 27 Sep 2007 21:52

Antaeus wrote:We plan to make the new build available in a couple of days.
Hi Antaeus, do you think this update (new build) will take longer? if it will, can you send me the fix to my e-mail? [email protected]

Thanks in advance,
Octavio.
Top
Antaeus
Posts: 2098
Joined: Tue 14 Feb 2006 10:14

Post by Antaeus » Fri 28 Sep 2007 14:44

The new build of MyDAC is already available. You can download it from our site.
Top
Post Reply

Return to “MySQL Data Access Components”