47 respuestas en este tema

[rburgos90]

Ahi esta

Archivos adjuntos

•  4341_e87b8527cdec1191c589e0838eae40de303ae7b1.png   13,3KB   5 descargas

[Fenareth]

Intenta quitando el ; del último END

Saludox !

[rburgos90]

Nada

Archivos adjuntos

•  4343_67f4eac98066fc9789330c767c910518229c1317.png   23,63KB   2 descargas

[Fenareth]

Estoy pensando en que pueda tener un conflicto con el nombre de los campos y de los parámetros de entrada... porqué no renombras los parámetros y pruebas ??? 

Saludox !

[rburgos90]

Hice unas modificaciones y solo me manda error en el else

Archivos adjuntos

•  4345_97a8354d2bd5a1a1528fb260e5c9183550ae56ad.png   19,99KB   2 descargas

[Fenareth]

Punto y coma al terminar la sentencias de INSERT INTO

Saludox !

[Fenareth]

... y el END IF después de terminar con el ELSE

y el BEGIN y el END del SP...

Saludox !

[rburgos90]

Archivos adjuntos

•  4347_b73068b016df4f1b655cbf44d7e64f298f14692a.png   22,54KB   2 descargas

[Fenareth]

Amigo, deja la desesperación de lado... si te fijas en el ELSE están poniendo de nuevo el mismo nombre de campos y parámetros (que ya cambiaste en el IF) así que cambialos también...

Saludox !

[Fenareth]

Intenta así

delphi

CREATE PROCEDURE introducir_persona
         (IN nom varchar(100), IN ed varchar(10) )
BEGIN
 
  IF edad < 18 THEN
         INSERT 
            INTO ninos (nombre, edad)
        VALUES (nom, ed); 
END IF;
  
IF edad >=18 THEN 
        INSERT 
           INTO adultos (nombre, edad) 
             VALUES (nom, ed);
  END IF; 
 
END;

Saludox !

[rburgos90]

Archivos adjuntos

•  4351_5e97824e4c744c244e2fcf347d3b1a728753ce85.png   22,99KB   2 descargas
•  4349_4b89b145829af01159759eea29f69436b1898d9c.png   22,99KB   2 descargas

[Fenareth]

Y te manda exactamente los mismos errores ??? 

Qué pasa si a  vamos por partes, algo asi como:

delphi

drop procedure if exists introducir_persona;
 
create procedure introducir_persona
(
   pi_nombre varchar(100),
   pi_edad varchar(10)
)
 
begin
 
   /*CUERPO DEL SP*/
 
end;

Ésto te compila ???

Saludox !

[rburgos90]

Archivos adjuntos

•  4353_e9b216bf18516918104e6f934d021dc7cf2a60f5.png   24,32KB   2 descargas

[Fenareth]

No no, no le coloques nada en el cuerpo del SP, sólo la declaración del SP y de parámetros e intenta compilarlo

Saludox !

[rburgos90]

Ya corrio, pero ahora como utilizo los insert?

Archivos adjuntos

•  4355_1db66b2e4abd9df77edbddc3d9efd4d6138443aa.png   17,58KB   1 descargas

[Fenareth]

Vayamos agregando cosas ok ?

Primero hagamos el insert sin condicionales... así:

delphi

drop procedure if exists introducir_persona;
 
create procedure introducir_persona
(
   pi_nombre varchar(100),
   pi_edad varchar(10)
)
 
begin
 
    insert 
            into ninos (nombre, edad)
        values (pi_nombre,  pi_edad);
 
end;

Saludox !

[rburgos90]

Archivos adjuntos

•  4357_e2c220a16401bc67e658739146e98915796f1ed7.png   20,61KB   1 descargas

[Fenareth]

Estoy empezando a creer que hay algún problemita con la aplicación con la que te conectas a MySQL 

A ver intentemos otra cosa simple antes de pensar mal de tu manejador 

Intenta ésto:

delphi

drop procedure if exists introducir_persona;
 
create procedure introducir_persona
(
   pi_nombre varchar(100),
   pi_edad varchar(10)
)
 
begin
 
    if pi_edad = '18' then
       /*  */
   end if;
 
end;

Saludox !

[rburgos90]

Archivos adjuntos

•  4359_8fc66f622bebcc435dab416212dd7057a92e8307.png   20,1KB   1 descargas

[Fenareth]

delphi

drop procedure if exists introducir_persona;
 
create procedure introducir_persona
(
   pi_nombre varchar(100),
   pi_edad varchar(10)
)
 
begin
 
      select  * from ninos;
 
end;

De plano si ésto no funciona, creo que tu manejador nos está bloqueando de alguna manera la compilación, alguna vez me sucedió al actualizar la aplicación con la que manejaba mi BD y de plano tuve que regresar la versión a la antigua, de ser así tendremos que espera la mejor opinión de nuestros amigos de la comunidad 

Saludox !