VPF::ListBox - > StoredProc - Форум программистов

budg

Дата 11.5.2006, 16:45 (ссылка)

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

Загрузка ...

Новичок

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

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

Задача следующая, есть 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 (ссылка)

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

Загрузка ...

Новичок

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

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

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

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