Delphi + sql процедура с входной и выходной переменными

@pek · Регистрация: 27.04.2016

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

здравствуйте .
подскажите пожалуйста.
работаю в mssql и delphi 10/
создал процедуру

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
USE ....
GO
CREATE PROCEDURE proc_outd (@ind AS nvarchar(50))
AS
DECLARE @outd AS nvarchar(50) 
SELECT
@outd=COUNT(s.h_id)   
FROM 
....
....
...
WHERE ......
AND s.h_id =@ind

подключаю входную переменную

Delphi
1
2
3
4
adoQuery14.Close;
adoQuery14.SQL.Clear;
adoQuery14.SQL.text:='exec proc_out '+cxGrid4DBTableView1.DataController.GetDisplayText(cxGrid4DBTableView1.DataController.FocusedRecordIndex,0)  ;// это я считываю с грида и предаю в процедуру входящее значение
adoQuery14.Open;

вопрос таков как мне получить в delphi выходную переменную @outd
подскажите плиз . не знаю как реализовать.
заранее благодарен.

Добавлено через 58 минут
попробовал

Delphi
1
outd:=adoQuery24.FieldByName('@outd').AsString;

неполучается

Добавлено через 13 минут
дописал

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
USE ....
GO
CREATE PROCEDURE proc_outd (@ind AS nvarchar(50))
AS
DECLARE @outd AS nvarchar(50) 
[B]EXEC @outd OUTPUT[/B]
SELECT
@outd=COUNT(s.h_id)   
FROM 
....
....
...
WHERE ......
AND s.h_id =@ind

теперь delphi выдаёт: Неудолось наййти хранимую процедуру ""

@D1973 · 26.02.2017, 12:14

pek, а почему ADOQuery??? Для работы с хранимыми процедурами есть свой компонент - TADOStoredProc

@pek · 26.02.2017, 12:26 **[ТС]**

до это го момента я только делал приложение и процедуры были с входными параметрами.
и я не знаком с TADOStoredProc -- подскажите как реализовать что я хочу .

@D1973 · 26.02.2017, 12:36

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

подскажите как реализовать

У меня нет установленного ни MS SQL, ни чего-то наподобие... Я уже и забыл, когда это использовал, лет 10 точно прошло...

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

я не знаком с TADOStoredProc

Ну дык познакомся...
Тыц

@pek · 26.02.2017, 13:46 **[ТС]**

сделал вот так
добавил компонент

Delphi
1
2
3
4
//adostoredproc1.ExecProc;
ADOStoredProc1.Parameters.ParamValues['@ind'] := cxGrid2DBTableView1.DataController.GetDisplayText(cxGrid2DBTableView1.DataController.FocusedRecordIndex,0)  ;
outd:= ADOStoredProc1.Parameters.ParamValues['@outd'];
showmessage(outd);

ругается что @outd нот фоунд это что в процедуре капаться?

Добавлено через 17 минут
при включение

adostoredproc1.ExecProc;

---Не удолось найти хранимую процедуру ""
вот начало процедуры

ALTER procedure [dbo].[proc_outd] (@ind as nvarchar(50))
as
declare @outd as nvarchar(50)
EXEC @outd OUTPUT

подскажите что не так

Добавлено через 20 минут
также пишет что в процедуре и функции слишком много аргументов это если я меняю местами параметры в таблицы параметров @ind и return_value

@YuryK · 26.02.2017, 15:07

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

CREATE PROCEDURE proc_outd (@ind AS nvarchar(50))
AS
DECLARE @outd AS nvarchar(50)
SELECT
@outd=COUNT(s.h_id) *
FROM
....
....
...
WHERE ......
AND s.h_id =@ind

это с каких пор такой синтаксис ХП стал?

T-SQL
1
2
3
4
5
6
7
8
9
10
11
12
CREATE PROCEDURE proc_outd (@ind int, @outd int output)
AS
BEGIN
SELECT
@outd=COUNT(s.h_id)   
FROM 
....
....
...
WHERE ......
AND s.h_id =@ind
END

@pek · 28.02.2017, 12:14 **[ТС]**

подскажите ещё вот такую штуку.
как я ранее говорил беру данные из грида передаю в процедуру и из процедуры получаю значение.
возникает такая проблема : с первого раза выдаёт правильное значение со второго раза уже неправильно .
то есть надо включать обновление только ни пойму чего процедуры или в делфи чего то

Добавлено через 10 минут
даже нет со второго раза только только выдаёт правильное значение

@YuryK · 28.02.2017, 14:20

Саму процедуру, уж будь добр, отладь без дельфи

@pek · 28.02.2017, 15:44 **[ТС]**

я не пойму что допилить в процедуре

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
USE ... 
GO
/****** Object:  StoredProcedure [dbo].[proc_outd]    Script Date: 28.02.2017 19:29:59 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET NOCOUNT ON;
GO
 
ALTER procedure [dbo].[proc_outd] (@in int, @out int output)
as
begin
--set @out=''
select
@out=count(s.h_id)   
from 
 
where ....l
and s.h_id =@in
end

подскажите что влияет на то что срабатывает с первого раза

@YuryK · 28.02.2017, 16:41

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

как я ранее говорил беру данные из грида передаю в процедуру и из процедуры получаю значение.
возникает такая проблема : с первого раза выдаёт правильное значение со второго раза уже неправильно .

лучше не говорить, а код показать

@pek · 28.02.2017, 16:58 **[ТС]**

где именно капать

Добавлено через 1 минуту
в чём может быть проблема

@YuryK · 28.02.2017, 17:13

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

как я ранее говорил беру данные из грида передаю в процедуру и из процедуры получаю значение.

неужели вместо слов код трудно показать? Проблема именно в этом: на словах делаете одно, в по факту - совсем другое

@pek · 28.02.2017, 17:20 **[ТС]**

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET NOCOUNT ON;
GO
 
ALTER procedure [dbo].[proc_outd] (@in int, @out int output)
as
begin
--set @out=''
select
@out=count(*)   
from Ls
left join  DL on
                  Ls.l_id=DL.l_id
where DL.l_id is null
and h_id  like @in
end

@YuryK · 28.02.2017, 17:28

и где здесь

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

беру данные из грида передаю в процедуру и из процедуры получаю значение

@pek · 28.02.2017, 17:38 **[ТС]**

Delphi
1
2
3
ADOStoredProc1.Parameters.ParamValues['@ind'] := cxGrid2DBTableView1.DataController.GetDisplayText(cxGrid2DBTableView1.DataController.FocusedRecordIndex,0)  ;
outd:= ADOStoredProc1.Parameters.ParamValues['@outd'];
showmessage(outd);

вот что я имел ввиду
только это почемуто не сразу правильно выдаёт результт со второго раза

@YuryK · 28.02.2017, 17:43

а где ExecProc между заданием параметра и получением результата?

@pek · 28.02.2017, 18:15 **[ТС]**

спасибо.
ExecProc я помещал то сверху то снизу этого вырождения.
не знал что надо между.
снимаю шляпу.

@YuryK · 28.02.2017, 18:19

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

не знал что надо между.

задать параметр, вычислить, получить результат. Как-то трудно представить иную последовательность

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

снимаю шляпу.

@pek · 28.02.2017, 18:36 **[ТС]**

вопрос конечно не по этой теме
но не могли бы подсказать как в sql настроить отладчик. просто речь была про отладку процедуры.
пишет у меня отладка "Для продолжения отладки необходимо настроить брандмауэр"
я нащел инструкцию от майкрософт как настраивать но ничего не помогает.
подскажите как сделать чтобы отладка работала.
зы. антивирус каспер мож он не пускае

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@D1973 Модератор 9916 / 6453 / 2455 Регистрация: 21.01.2014 Сообщений: 27,389 Записей в блоге: 3
	26.02.2017, 12:14
	pek, а почему ADOQuery??? Для работы с хранимыми процедурами есть свой компонент - TADOStoredProc 1

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	26.02.2017, 12:26 [ТС]
	до это го момента я только делал приложение и процедуры были с входными параметрами. и я не знаком с TADOStoredProc -- подскажите как реализовать что я хочу . 0

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	28.02.2017, 12:14 [ТС]
	подскажите ещё вот такую штуку. как я ранее говорил беру данные из грида передаю в процедуру и из процедуры получаю значение. возникает такая проблема : с первого раза выдаёт правильное значение со второго раза уже неправильно . то есть надо включать обновление только ни пойму чего процедуры или в делфи чего то Добавлено через 10 минут даже нет со второго раза только только выдаёт правильное значение 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	28.02.2017, 14:20
	Саму процедуру, уж будь добр, отладь без дельфи 1

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	28.02.2017, 16:58 [ТС]
	где именно капать Добавлено через 1 минуту в чём может быть проблема 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	28.02.2017, 17:43
	а где ExecProc между заданием параметра и получением результата? 1

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	28.02.2017, 18:15 [ТС]
	спасибо. ExecProc я помещал то сверху то снизу этого вырождения. не знал что надо между. снимаю шляпу. 0

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	28.02.2017, 18:36 [ТС]
	вопрос конечно не по этой теме но не могли бы подсказать как в sql настроить отладчик. просто речь была про отладку процедуры. пишет у меня отладка "Для продолжения отладки необходимо настроить брандмауэр" я нащел инструкцию от майкрософт как настраивать но ничего не помогает. подскажите как сделать чтобы отладка работала. зы. антивирус каспер мож он не пускае 0