VPF::Как получить из ХП набор данных и OUTPUT параметр?

tikskit

Дата 16.1.2013, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 17.5.2008

Репутация: нет
Всего: нет

Есть ХП, которая имеет IN и OUTPUT параметры. Кроме того, она возвращает набор данных. Требуется на клиенте получить и набор данных и значение OUTPUT параметра.

Код


function GetData(const EntityCode: Int64): Integer;
var
  Proc: TADOStoredProc;

  PEntityCode: ADODB.TParameter;
  PRowsCount: ADODB.TParameter;
begin
  Proc := TADOStoredProc.Create(nil);
  try
    Proc.Connection := ADOConnection1;
    Proc.CursorLocation := clUseServer;
    Proc.ProcedureName := 'MyStoredProc';

    PEntityCode := Proc.Parameters.AddParameter;
    PEntityCode.Name := '@EntityCode';
    PEntityCode.DataType := ftLargeint;
    PEntityCode.Value := EntityCode;

    PRowsCount := Proc.Parameters.AddParameter;
    PRowsCount.Name := '@TotalCount';
    PRowsCount.DataType := ftInteger;
    PRowsCount.Direction := pdOutput;
    Proc.Prepared := True;

    Proc.ExecProc;
    Result := PRowsCount.Value;
    while not Proc.Eof do
    begin
      Proc.Next;
    end;
  finally
    Proc.Free;
  end;

end;

В этом случае значение PRowsCount.Value определяется правильно, но возвращаемый набор данных пуст.
Если убрать Proc.Prepared := True и вместо Proc.ExecProc сделать Proc.Open, то значение PRowsCount.Value равно нулю, но набор данных не пустой.

Это сообщение отредактировал(а) tikskit - 16.1.2013, 14:23

kami

Дата 16.1.2013, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 3
Всего: 72

Сперва получить данные из набора, потом закрыть набор и забрать выходной параметр.
До закрытия выходные параметры недоступны не определены, по крайней мере в MSSQL

Это сообщение отредактировал(а) kami - 16.1.2013, 18:12

tikskit

Дата 16.1.2013, 18:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 17.5.2008

Репутация: нет
Всего: нет

kami, огромное спасибо! Замучился с этим!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »