topic-29555

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Procedimientos Almacenados (Daniel)
Posted: Fri Nov 07, 2014 04:01 AM

Hola Amigos...
Como guardar un Procedure Store en MySQL desde una app??
en los ejemplos solo hay manera de ejecutarlos, mas no de como introducirlos en el MySQL,
Salu2

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Procedimientos Almacenados (Daniel)
Posted: Fri Nov 07, 2014 12:55 PM

Saludos

usa el metodo execute

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Procedimientos Almacenados (Daniel)
Posted: Fri Nov 07, 2014 03:34 PM

Mr:

Una hebra

Code (fw): Select all Collapse

cCmdSql := "CREATE FUNCTION hola (s CHAR(20)) RETURNS CHAR(50) " +;
                "RETURN CONCAT('Hola, ',s,' !')"
TRY
    oApp:oCon:Execute(cCmdSql)
CATCH oError
    MsgInfo("No se pudo ejecutar el comando !",oApp:cAplicacion)
    ShowError(oError)
    RETURN(.F.)
END

Más info

http://dev.mysql.com/doc/refman/5.0/en/ ... ining.html

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: Procedimientos Almacenados (Daniel)
Posted: Mon Nov 10, 2014 12:17 AM

HOla Amigos... (Gracias Daniel.... gracias Armando)
Funciono asi:

Code (fw): Select all Collapse

cProc := "SELECT specific_name FROM information_schema.routines WHERE specific_name = 'proc001'"
oDatos := oMySQL:Query(cProc)

If oDatos:RecCount() = 0                 // no existe el procedure  y lo creamos

  cProc := "CREATE PROCEDURE proc001( dFecha INT ) "
  cProc += "SELECT productos.*, IFNULL((SELECT imagenes.registro FROM imagenes WHERE imagenes.cod_producto = productos.cod_producto),0) AS imagen  FROM productos WHERE productos.cod_producto <> '' ORDER BY productos.producto, productos.codbar1, productos.codbar2"

  IF !oMySQL:Execute(cProc)
    Return(NIl)
  EndIf

Endif

oDatos := oMySQL:Query( "CALL proc001('1')", .t. )  // ejecutamos el procedure

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Procedimientos Almacenados (Daniel)
Posted: Mon Nov 10, 2014 03:11 AM

Mr:

Más fácil que quitarle su dinero a una borracha !, :wink:

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion