Zeoslib Portal

Code: Select all

CREATE DEFINER = 'root'@'%' PROCEDURE `AB_All`(
        INOUT `P1` TINYINT(4),
        INOUT `P2` TINYINT(1),
        INOUT `P3` SMALLINT(6),
        INOUT `P4` MEDIUMINT(9),
        INOUT `P5` INTEGER(11),
        INOUT `P6` BIGINT(20),
        INOUT `P7` DOUBLE,
        INOUT `P8` FLOAT,
        INOUT `P9` DECIMAL(19,4),
        INOUT `P10` DECIMAL(10,0),
        INOUT `P11` VARCHAR(100),
        INOUT `P12` DATE,
        INOUT `P13` TIME,
        INOUT `P14` YEAR(4),
        INOUT `P15` TIMESTAMP,
        INOUT `P16` DATETIME,
        INOUT `P17` TINYBLOB,
        INOUT `P18` BLOB,
        INOUT `P19` MEDIUMBLOB,
        INOUT `P20` LONGBLOB,
        INOUT `P21` TINYTEXT,
        INOUT `P22` TEXT,
        INOUT `P23` MEDIUMTEXT,
        INOUT `P24` LONGTEXT,
        INOUT `P25` VARBINARY(100),
        INOUT `P26` SET('a','b','c','d'),
		INOUT `P27` INT,
        INOUT `P28` INTEGER
    )
    DETERMINISTIC
    NO SQL
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN
END;

Code: Select all

var i:integer;
begin
ZStoredProc1.Close;
for i:=0 to 27 do
 begin
 if (i<>14) and (i<>24) and (i<>25) then
 ZStoredProc1.Params[i].Value:=i;
 end;
 //ZStoredProc1.Params[14].Value:=14.1;  //P15 - TIMESTAMP   ???
 //ZStoredProc1.Params[24].Value:=24;  //P25 - VARBINARY(100)  ???
ZStoredProc1.Params[25].Value:='b,c';
ZStoredProc1.Open;
end;

Code: Select all

ZStoredProc1.StoredProcName:='ABTEST';
ZStoredProc1.ExecProc;

Code: Select all

CREATE PROCEDURE `MultipleVaryingResultSets`(
  IN p_in INT,
  OUT p_out INT,
  INOUT p_inout INT)
BEGIN
  SELECT p_in, p_out, p_inout;
  SET p_in = 100, p_out = 200, p_inout = 300;
  SELECT p_in, p_out, p_inout;
  SELECT p_in, p_inout;
  SELECT 10;
END;