stored procedures Delphi 2005 .net y MySQL 5
 

hola, alguien podra dar una mano?

tengo resuelto el tema de mandar parametros a un stored procedure.

desde delphi

type
cargarmolinete1: TADOStoredProc;
Edit4: TEdit;..... ,Edit10: TEdit

cargarmolinete1.Parameters.ParamByName('E_reason').Value:=edit4.Text ;
cargarmolinete1.Parameters.ParamByName('E_Name') .Value:=edit1.Text ;
cargarmolinete1.Parameters.ParamByName('E_IdCard').Value:=edit7.Text ;
cargarmolinete1.Parameters.ParamByName('E_DNI') .Value:=edit10.Text ;
cargarmolinete1.ExecProc;

y el Stored es

CREATE DEFINER=`root`@`localhost` PROCEDURE `Cargarmolinete1`(
in E_IDcard varchar (4),
In E_name varchar (32),
In E_Reason varchar (45),
In E_DNI varChar(25))
BEGIN
insert into `archivo`.`Molinete_1` (Dtime,IDcard,name,reason,dni) Value (now(),E_IdCard,E_Name,E_reason,E_DNI) ;
END

ahora necesitaria agregar un out al stored

CREATE DEFINER=`root`@`localhost` PROCEDURE `Cargarmolinete1`(
in E_IDcard varchar (4),
In E_name varchar (32),
In E_Reason varchar (45),
In E_DNI varChar(25)
Out E_Resultado varchar(1))
BEGIN
insert into `archivo`.`Molinete_1` (Dtime,IDcard,name,reason,dni) Value (now(),E_IdCard,E_Name,E_reason,E_DNI) ;
set E_resultado ='S'
END
la pregunta es

que debo agregar a
cargarmolinete1.Parameters.ParamByName('E_reason').Value:=edit4.Text ;
cargarmolinete1.Parameters.ParamByName('E_Name') .Value:=edit1.Text ;
cargarmolinete1.Parameters.ParamByName('E_IdCard').Value:=edit7.Text ;
cargarmolinete1.Parameters.ParamByName('E_DNI') .Value:=edit10.Text ;
cargarmolinete1.ExecProc;
para traer el valor de E_Resultado ?

Tienes dos maneras de hacerlo,

La primera es declarando un parámetro de salida al cual le asignras el valor de EResultado, y para accesarlo podras hacerlo a través de ParamByName().value


O podrias hacer un select de Eresultado y leer el valor como un campo de un dataset común y corriente.

:D

suerte.

me podrias decir como se hace ?
 

no me sale , no hay caso