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

[LSA]

Задача такая - нужно из таблиц аксапты экспортировать данные на SQL.....
( Так что для любителей все делать средствами аксапты для обеспечения целостности сразу скажу что ничего не пострадает... ;-) )
Написана хранимая процедура экспорта которая нормально работает - например такая -
CREATE PROCEDURE [dbo].[axExp] @Res_ TINYINT OUTPUT AS.... и т. д.

Нужно запустить процедуру из аксапты передав ей параметр и получить значение этого параметра после выполнения....

ПОмогите плиз....

[Андре]

Про Oracle я писал здесь (http://www.axforum.info/forums/showt...E5%E4%F3%F0%E0).
Переделайте под MS SQL.

Цитата:

Задача такая - нужно из таблиц аксапты экспортировать данные на SQL.....

А DTS не смотрели ?

[Ace of Database]

Я делал так.
В моем примере хранимая процедура принимает один параметр - дату

PHP код:

    CCADOConnection cn;
    COM                           comCN;
    str     serverName      = "myServer";
    str     baseName        = "myDatabase";
    str     userId          = "sa";
    str     userPassword    = "1";
    ;

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

    comCN = cn.connection();
    comCN.Execute("set dateformat dmy exec myStoredProcedure '" + date2str(systemDateGet(),123,2,2,2,2,2) + "'"); 


Я правда не получал назад значение из параметра. Для этого надо использовать COM-объект ADO::Command

[LSA]

В том-то и дело что у CCADOComand нет такой хорошей и полезной вещи как ADOParameter....
Как же с его помошью вернуть значение ? Помогите начинающему аксаптеру....

[Ace of Database]

Я ближе к вечеру Вам напишу. Сейчас некогда. А вообще - если Вы умеете работать с ADO на VB или Delphi - очень просто переписать этот код в Аксапту. Та же последовательность действий при инициализации объектов.

[LSA]

Очень жду ответа....
А Delphi проблем набыло - но там в ADO компонентах реализованы и методы и "пропитисы"..... Здесь непоняытно - стандартных нет - надо описывать свой класс ?
Каскадные обращения не прокатили... или делал что-то не так....

[simply2double]

Цитата:

Изначально опубликовано LSA
Очень жду ответа....
А Delphi проблем набыло - но там в ADO компонентах реализованы и методы и "пропитисы".....

хе-хе... ADO как технология доступа к данным проектировалась для VB... вот там надо и смотреть как с этим работает правильно...

если в двух словах то объектная модель ADO состоит из объектов

коннект
комманд
параметерс
еррорс

с коннектом понятно, ониинициализируется строкой подключения и устанавливает соединение с сервером

с команд тоже, он инициализируется командой и ее типом, в Вашем случае это хранимая процедура.

параметерс, это колекция параметров каждый из которых инициализируется значением параметра, его типом и свойством возвращаемы или нет

еррорс это коллекция ошибок, которую по правилам хорошего тона перед каждым шагом обнуляют а после читают на предмет ошибок

сценарий доступа к данным в общем такой:

- инициализировать объект коннект и подключиться к серверу
- инициализировать обект комманд командой (именем SP)
- инициализировать коллекцию параметерс
- добавить параметер (по числу парметров SP )
- иниализировать параметры
- выполнить команду
- прочитать возвращенное значение переметра
- закрыть соединение

Каджый объект создается на основании интерфейса ком сервера 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();
} 


[simply2double]

Цитата:

Изначально опубликовано LSA
В том-то и дело что у CCADOComand нет такой хорошей и полезной вещи как ADOParameter....
Как же с его помошью вернуть значение ? Помогите начинающему аксаптеру....

Его там и не может быть. Потому что Parameters это еще один COM интерфейс который нужно объявлять отдельно, а класс CCADOComand инкапсулирует всего один интерфейс - Command.

[LSA]

Спасибо большое ! Все получилось !!!
Во только работает крайне медленно...
Существует ли способ ускорить ?

[Ace of Database]

А Вы код приведите. Должно все бысто работать. Судя по трасссировке в SQL Profiler, Аксапта сама через ADO или OLEDB с SQL-сервером работает.

[Ace of Database]

Вот такой код у меня работает 6 секунд:

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;
    int                     i;
    ;

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


[Ace of Database]

А без вызова info() вообще меньше секунды отрабатывает!

[simply2double]

Цитата:

Изначально опубликовано Ace of Database
А Вы код приведите. Должно все бысто работать. Судя по трасссировке в SQL Profiler, Аксапта сама через ADO или OLEDB с SQL-сервером работает.

можно вопрос... как Вы с помощью трассировщика узнаете, с помощь какой технологии произволиться доступ к серверу ???

насколько мне известно, все технологии всего лишь интерфейсная надстройка над API SQL server...

[Ace of Database]

Выдержка из MS SQL Server BooksOnline
___________________________________________________
These system stored procedures support the cursor functionality of ADO, OLE DB, ODBC, and the DB-Library Cursor Library:

sp_cursor sp_cursorclose sp_cursorexecute
sp_cursorfetch sp_cursoropen sp_cursoroption
sp_cursorprepare sp_cursorunprepare
___________________________________________________

Почему я пришел к выводу, что Аксапта использует OLE DB, наверное потому, что при установке клиента Аксапта требует наличия не самой древней версии MDAC.

[simply2double]

Цитата:

Изначально опубликовано Ace of Database
Выдержка из MS SQL Server BooksOnline
___________________________________________________
These system stored procedures support the cursor functionality of ADO, OLE DB, ODBC, and the DB-Library Cursor Library:

Других технология я и не слышал ))) но они то и являются всего лишь оболочками, правда в ADO есть еще свой процессор данных (RecordSet)


Почему я пришел к выводу, что Аксапта использует OLE DB, наверное потому, что при установке клиента Аксапта требует наличия не самой древней версии MDAC. [/

Косвенные методы тоже имеют место в познании... но согласись, к трассировщику они не имеют ни какогоотношения...

Хотя скорее всего ты прав, доступ осуществляется посредством OLE DB провайдера...

[simply2double]

стоп.. поначалу не понял ))) да действительно процесс создания аксаптой курсоров виденв трассировщике... ))) ты прав...