Ошибка при передаче параметра хранимой процедуре

@Габи · Регистрация: 10.11.2012

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

Здравствуйте! Возникла ошибка "EDatabaseError with message'IBstoredProc1:Parameter 'str' not found'" при попытке передать значение параметра хранимой процедуре:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.BB1Click(Sender: TObject);
begin
  Datamodule2.IBStoredProc1.Params.ParamByName('str').Value:=Edit1.Text;
  Datamodule2.IBStoredProc1.Params.ParamByName('par').Value:=1;
  Datamodule2.IBStoredProc1.Params.ParamByName('id').Value:=1;
  try
    Datamodule2.IBStoredProc1.ExecProc;
  except
    showmessage('Òðàíçàêöèÿ íå âûïîëíåíà');
    Datamodule2.IBTransaction1.RollbackRetaining;
  end;
  Datamodule2.IBTransaction1.CommitRetaining;
  Datamodule2.IBQuery1.Close;
  Datamodule2.IBQuery1.Open;
end;

В чем дело, может кто сталкивался?

@FIL · 12.04.2014, 17:35

Сообщение от Габи

В чем дело

Дело в том, что такого параметра нет.
Покажи запрос.

@Габи · 12.04.2014, 18:38 **[ТС]**

О каком запросе идет речь? У меня есть описанная выше процедура и хранимая процедура, созданная в IBExpert

@FIL · 12.04.2014, 19:16

Сообщение от Габи

О каком запросе идет речь

Текст самой процедуры.

В инспекторе объектов процедура выбрана, параметры ее видны?

@Габи · 12.04.2014, 20:58 **[ТС]**

Процедура выбрана, и параметры видны. Вот текст процедуры:

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CREATE PROCEDURE "Uch_proc" (
    "str" CHAR(70) CHARACTER SET win1251,
    "par" INTEGER,
    "id" INTEGER)
AS
BEGIN
  IF ("par"=1) THEN
  INSERT INTO "Uchastok" ("Id_uchastok","Streets_nomera domov")
  VALUES (NULL,:"str");
  IF ("par"=2) THEN
  UPDATE "Uchastok"  SET "Id_uchastok"=NULL,"Streets_nomera domov"=:"str";
  IF ("par"=3) THEN
  DELETE FROM "Uchastok" WHERE "Id_uchastok"=:"id";
END

@FIL · 12.04.2014, 21:46

Попробуй посмотреть как эти названия параметров Дельфи хранит:

Delphi
1
ShowMessage(Datamodule2.IBStoredProc1.Params[0].Name);

или замени обращения по имени на обращения по индексу.

arni · 12.04.2014, 22:11

Габи, Люди, знающие толк в извращениях (а использование закавыченных идентификаторов не могу назвать иначе), должны понимать, что час расплаты настанет.

@Габи · 12.04.2014, 22:30 **[ТС]**

FIL, оба предложенных способа выдают ошибку: "List index out of bounds(0)". Может дело в кодировках? При создании БД использовалась одна, в InterBase - другая?

Добавлено через 1 минуту
arni, не поверите, но IBExpert заставил меня закавычить переменные, иначе отказывался корректно выполнять свою работу.

@FIL · 12.04.2014, 22:34

Сообщение от Габи

оба предложенных способа выдают ошибку

Значит Дельфи не видит ни одного параметра.

@long399 · 13.04.2014, 00:39

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

Габи, Люди, знающие толк в извращениях (а использование закавыченных идентификаторов не могу назвать иначе), должны понимать, что час расплаты настанет.

от души посмеялся

@Габи · 13.04.2014, 10:55 **[ТС]**

Значит Дельфи не видит ни одного параметра.

Это было ясно с самого начала. Вопрос в том, как сделать, чтобы Delphi параметры видел?

@FIL · 13.04.2014, 14:47

Сообщение от Габи

Это было ясно с самого начала.

Ты же писал, что в Инспекторе все параметры видны.
Если они при запуске исчезают, значит в коде где-то косяк.

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@Габи 1 / 1 / 0 Регистрация: 10.11.2012 Сообщений: 72
	12.04.2014, 18:38 [ТС]
	О каком запросе идет речь? У меня есть описанная выше процедура и хранимая процедура, созданная в IBExpert 0

arni 914 / 879 / 62 Регистрация: 06.01.2010 Сообщений: 2,367 Записей в блоге: 6
	12.04.2014, 22:11
	Габи, Люди, знающие толк в извращениях (а использование закавыченных идентификаторов не могу назвать иначе), должны понимать, что час расплаты настанет. 0

@Габи 1 / 1 / 0 Регистрация: 10.11.2012 Сообщений: 72
	12.04.2014, 22:30 [ТС]
	FIL, оба предложенных способа выдают ошибку: "List index out of bounds(0)". Может дело в кодировках? При создании БД использовалась одна, в InterBase - другая? Добавлено через 1 минуту arni, не поверите, но IBExpert заставил меня закавычить переменные, иначе отказывался корректно выполнять свою работу. 0

Опции темы