Ошибка при добавлении в БД: "list index out of bounds(0)"

@Musia · Регистрация: 04.01.2012

Author24 — интернет-сервис помощи студентам

Delphi

procedure TfmProduct.miAddClick(Sender: TObject);
begin
   fmNewProduct.ShowModal;
   if fmNewProduct.ModalResult=mrOk then
   begin
     try
   dmMy.DCOMConnection1.appserver.smUpdateProduct (0,
   fmNewProduct.edName.Text,
   fmNewProduct.edMg.Text);
   except
     MessageDlg('Ошибка записи в БД', mtError,[mbOk],0)
      end;
   dmMy.cdsProduct.Refresh;
   end;
end;

Комментарий модератора

Используйте теги кодов

@kwinto · 26.01.2012, 20:04

Вы выложили следствие проблемы, а не причину.
Причину, думаю, ищите в процедуре smUpdateProduct()
Судя по характеру ошибки - обращение к нулевому элементу пустового списка экземпляра класса потомка tstrings.

arni · 26.01.2012, 20:49

Надо убрать защищенную секцию - она мешает диагностике бага, маскируя реальную ошибку. Попробуйте так и ловите реальную ошибку:

Delphi

procedure TfmProduct.miAddClick(Sender: TObject);
begin
  if fmNewProduct.ShowModal.ModalResult=mrOk then
  begin
    dmMy.DCOMConnection1.appserver.smUpdateProduct(0, fmNewProduct.edName.Text, mNewProduct.edMg.Text);
    dmMy.cdsProduct.Refresh;
  end;
end;

ну и лучше сразу ловить внутри метода smUpdateProduct

@Musia · 26.01.2012, 21:39 **[ТС]**

Вроде бы процедура правильная

Delphi

procedure TMy_Server.smUpdateProduct(ID: Integer; const Name,
  Mg: WideString);
begin
     if ibspUpdateProduct.Transaction.InTransaction then
      ibspUpdateProduct.Transaction.Commit;
      ibspUpdateProduct.Params[0].Value:=ID;
      ibspUpdateProduct.Params[1].Value:=Name;
      ibspUpdateProduct.Params[2].Value:=Mg;
      ibspUpdateProduct.ExecProc;
      if ibspUpdateProduct.Transaction.InTransaction then
      ibspUpdateProduct.Transaction.Commit;

arni · 26.01.2012, 22:03

Delphi

1
2
3

ibspUpdateProduct.Params[0].Value:=ID;
ibspUpdateProduct.Params[1].Value:=Name;
ibspUpdateProduct.Params[2].Value:=Mg;

Musia, а у вас там точно 3 параметра в запросе?

@Musia · 26.01.2012, 22:13 **[ТС]**

вроде бы да
новичок в дельфи, тяжело увидеть ошибки)

@rdama · 27.01.2012, 04:51

Musia,

Сообщение от Musia

вроде бы да

А если посмотреть код процедуры в БД которую вы дергаете?
А то как-то чувствуется неуверенность в том что вы пишите...

@MsGuns · 27.01.2012, 11:15

Delphi

1
2
3

      ShowMessage('Число параметров '+IntToStr(ibspUpdateProduct.Params.Count));
         ...
      ibspUpdateProduct.Params[0].Value:=ID;

@Musia · 27.01.2012, 13:32 **[ТС]**

вот процедура в БД
create procedure "UpdateProduct" (inID integer,
inName varchar(100),
inMg varchar(10))
as
begin
if (:inID=0) then
insert into "Product" values (:inID, :inName, :inMg);
else
update "Product"
set "Name"=:inName,
"Mg"=:inMg"
where ID=:inID;
end;

@kwinto 86 / 86 / 24 Регистрация: 27.02.2010 Сообщений: 397
	26.01.2012, 20:04	2
	Вы выложили следствие проблемы, а не причину. Причину, думаю, ищите в процедуре smUpdateProduct() Судя по характеру ошибки - обращение к нулевому элементу пустового списка экземпляра класса потомка tstrings. 1

@Musia 0 / 0 / 0 Регистрация: 04.01.2012 Сообщений: 6
	26.01.2012, 22:13 [ТС]	6
	вроде бы да новичок в дельфи, тяжело увидеть ошибки) 0

@rdama 569 / 292 / 12 Регистрация: 28.01.2011 Сообщений: 1,326
	27.01.2012, 04:51	7
	Musia, Сообщение от Musia вроде бы да А если посмотреть код процедуры в БД которую вы дергаете? А то как-то чувствуется неуверенность в том что вы пишите... 0

@Musia 0 / 0 / 0 Регистрация: 04.01.2012 Сообщений: 6
	27.01.2012, 13:32 [ТС]	9
	вот процедура в БД create procedure "UpdateProduct" (inID integer, inName varchar(100), inMg varchar(10)) as begin if (:inID=0) then insert into "Product" values (:inID, :inName, :inMg); else update "Product" set "Name"=:inName, "Mg"=:inMg" where ID=:inID; end; 0