Передача параметров в хранимой процедуре

[Maxjuvefan]

Есть хранимая процедура Poisk с входным @nom и выходным @pr int output параметрами. Код в дельфи:

 ADOStoredPoisk.Parameters.ParamValues['@nom'] := Edit1.Text;
ADOStoredPoisk.Parameters.ParamValues['@pr'] := 3;
ADOStoredPoisk.Prepared:=true;
ADOStoredPoisk.ExecProc;

Как получить значение выходного параметра @pr в переменную (значение меняется в хранимой процедуре Poisk)?

[Stilet]

If a stored procedure returns output parameters, they are stored in the Parameters property when ExecProc returns control to the application.

Т.е.

...
ADOStoredPoisk.ExecProc;
...:=ADOStoredPoisk.Parameters.ParamValues['@pr']; // Возвращаем значение.

[Maxjuvefan]

Добавил в код эту строку:

ADOStoredPoisk.Parameters.ParamValues['@nom'] := Edit1.Text;
ADOStoredPoisk.Parameters.ParamValues['@pr'] := 3;
ADOStoredPoisk.Prepared:=True;
ADOStoredPoisk.ExecProc;
// ADOStoredPoisk.Parameters.Refresh;
pr1:= ADOStoredPoisk.Parameters.ParamValues['@pr'];
Showmessage(IntToStr(pr1));

Выводится "3" (начальное переданное значение), хотя в хранимой процедуре явно задаю set @pr=7. Если раскомментировать строку обновления параметров, то выводится "0", хотя 0 нигде не присваивается. Не понимаю, что не так?

[Stilet]

А как ХП сама выглядит?

[Maxjuvefan]

Хранимая процедура:

ALTER PROCEDURE [dbo].[Poisk] (@nom nvarchar(10),@pr int output)
AS
DECLARE @i int
DECLARE @id int
DECLARE @nomer nvarchar(10)
BEGIN
INSERT INTO Poisk_po_nomeru (id, nomer) SELECT * FROM NomerTel WHERE Номер LIKE ('%' + @nom + '%')
DECLARE my_cur CURSOR FOR 
SELECT id, nomer FROM  Poisk_po_nomeru
--открываем курсор
OPEN my_cur
--считываем данные первой строки в наши переменные
FETCH NEXT FROM my_cur INTO @id, @nomer
--если данные в курсоре есть, то заходим в цикл
--и крутимся там до тех пор, пока не закончатся строки в курсоре
set @i=0
WHILE @@FETCH_STATUS = 0
BEGIN
IF EXISTS (SELECT "Дата и Время",Длительность FROM DannyeTel WHERE (idНомер = @id))
BEGIN
INSERT INTO ##Rezultat_poiska_po_nomeru (idNom, "Дата и время", Длительность) SELECT idНомер,"Дата и Время",Длительность FROM DannyeTel WHERE (idНомер = @id)
IF (SELECT COUNT(*) FROM ##Rezultat_poiska_po_nomeru)>@i
BEGIN
UPDATE ##Rezultat_poiska_po_nomeru SET Номер = @nomer WHERE idNom = @id
set @i= @i+1
END
END
FETCH NEXT FROM my_cur INTO @id, @nomer
END
CLOSE my_cur
deallocate my_cur
set @pr=7
END

Таблица с результатом поиска создается. Хотелось передавать параметром количество найденных записей. Поскольку с передачей параметров проблема, просто присваиваю @pr значение, отличное от первоначального.

[Stilet]

Ну вроде все правильно, но наверное @ нужно не писать в коде Делфи.

[Maxjuvefan]

А параметр всё равно не передается. Без @ выдает ошибку parameter 'pr' not found

[Аватар]

Как коллекция параметров создана? Какие свойства у параметров, особенно у того out? Должно все работать и работает, если корректно параметры описаны в коллекции