Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > ListBox - > StoredProc

Автор: budg 11.5.2006, 16:45

Задача следующая, есть ListBox с записями. Каждую строку надо передать в хранимую процедуру для удаления из базы.

Код:

Код


procedure TForm1.Button3Click(Sender: TObject);
var i: integer;
begin
//Удаление выбранных позиций в стринглисте
 for i:=0 to ListBox1.Items.Count - 1 do
 begin
     with ADOStoredProc3 do
        begin
 Parameters.ParamByName('@LostOf').Value:=ListBox1.Items.Strings[i];
 Prepared;
 ExecProc;
        end;
//  ListBox1.Items.Delete(i);
  ListBox1.Refresh;
 end;
end;

не работает, выдаёт ошибку в момент передачи параметра.

Пробовал и так:

Код


procedure TForm1.Button3Click(Sender: TObject);
var i: integer;
begin
//Удаление выбранных позиций в стринглисте
 for i:=0 to ListBox1.Items.Count - 1 do
 begin
     with ADOStoredProc3 do
        begin
 Parameters.ParamByName('@LostOf').Value:=ListBox1.Items[ListBox.ItemIndex];
 Prepared;
 ExecProc;
        end;
//  ListBox1.Items.Delete(i);
  ListBox1.Refresh;
 end;
end;

результат нулевой. smile

Подскажите пожалуйста как быть?
Процедура на серевере работает нормально.

Автор: budg 12.5.2006, 13:56

Проблему решил, забейте на топик...