VPF::Значение параметров для процедуры теряются

markivanov

Дата 14.2.2007, 16:36 (ссылка)

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

Загрузка ...

Шустрый

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

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

Помогите. У меня теряются передаваемые параметры для процедуры. В результате приведенного ниже кода процедура из БД вызывается, но передаются пустые значения

Код


procedure TForm1.Button1Click(Sender: TObject);
var p1:tparam;
begin
  ibproc.Close;
  ibproc.UnPrepare;
  ibproc.StoredProcName:='ADDCUSTOMER';
  ibproc.Params.Clear;
  p1:=TParam.Create(ibproc.Params,ptInput);
  p1.Name:='plname';
  p1.Value:='111';
  ibproc.Params.AddParam(p1);

  p1:=TParam.Create(ibproc.Params,ptInput);
  p1.Name:='pfname';
  p1.Value:='222';
  ibproc.Params.AddParam(p1);

  p1:=TParam.Create(ibproc.Params,ptInput);
  p1.Name:='ppatronymic';
  p1.Value:='333';
  ibproc.Params.AddParam(p1);

  ibproc.Prepare;
  if ibproc.Prepared then ibproc.ExecProc;
end;

markivanov

Дата 14.2.2007, 17:30 (ссылка)

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

Загрузка ...

Шустрый

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

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

спасибо, поменял на

Код


ibproc.StoredProcName:='ADDCUSTOMER';
  ibproc.Params.Clear();
  IBTransaction1.StartTransaction();
  ibproc.Prepare();
  ibproc.ParamByName('plname').asString:='sdfsdf';
  ibproc.ParamByName('pfname').asString:='sdfsdf2';
  ibproc.ParamByName('ppatronymic').asString:='sdfsdf3';
  ibproc.ExecProc();
  IBTransaction1.Commit();

работает

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