Как вызвать через ADO хранимую процедуру с параметрами ?

[Ace of Database]

Готово!
Вот такая хранимая процедура:

PHP код:

DROP PROCEDURE [dbo].[axExp]
GO
CREATE PROCEDURE [dbo].[axExp] @Res_ TINYINT OUTPUT AS
BEGIN
    SET @Res_= 22
END 


Вот такой код в Аксапте вызывает эту процедуру и передает/получает из нее значение параметра:

PHP код:


static void DD_StoredProcWithParam(Args _args)
{
    str     serverName      = "AXAPTA-SQL";
    str     baseName        = "AXDB";
    str     userId          = "sa";
    str     userPassword    = "";
    CCADOConnection         cn;
    COM                     comCN;
    COM                     cmd;
    COM                     param, params;
    COMVariant              emptyParam;
    COMVariant              result;
    ;

    cn = new CCADOConnection();
    cn.open(
        "Provider=SQLOLEDB;"+
        "Data Source="      + serverName    +   ";" +
        "Initial Catalog="  + baseName      +   ";" +
        "uid="              + userId        +   ";" +
        "pwd="              + userPassword);

    comCN = cn.connection();

    cmd     = new COM("ADODB.Command");
    param   = new COM("ADODB.Parameter");
    cmd.activeConnection(comCN);
    param.Type(16);      //adTinyInt, смотрите броузер объектов в среде VB в Экселе
    param.Value(55);     //передаем в процедуру число 55
    param.Name("@Res_"); //для Оракла обязательно передавать имя параметра
    param.direction(3);  //adParamInputOutput, смотрите броузер объектов в среде VB в Экселе
    params = cmd.Parameters();
    params.append(param);
    cmd.commandType(4);  //adCmdStoredProc, смотрите броузер объектов в среде VB в Экселе
    cmd.CommandText("axExp");
    emptyParam = new COMVariant(COMVariantInOut::Out, COMVariantType::VT_INT);
    cmd.Execute (emptyParam, params);
    result = param.Value();
    info(int2str(result.byte()));
    cn.close();
}