| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Не пойму как возвратить результат запроса [D6, MSSQL]

dreamse ©   (2005-02-08 09:49:00) 

В общем код процедуры SQL такой :

CREATE procedure summaperioda (@numberperiod int)
as
select sum(cast(summa as money)) from Tab_jurnalseansov
where period = @numberperiod
GO

я передаю туда параметр @numberperiod и в соответствии с ним идёт подсчёт данных по столбцу summa

Код Delphi такой :

Ado_proc_kassa.CommandText:='summaperioda';
Ado_proc_kassa.Parameters.Refresh;
Ado_proc_kassa.Parameters.ParamByName('@numberperiod').Value:=10;
Ado_proc_kassa.Execute;

Вопрос как в переменную вернуть значение полученное в результате выполенения процедуры SQL сервера ?

---

dreamse   (2005-02-08 10:48:00) [1]

Спасибо !

---

MOA   (2005-02-08 10:12:00) [2]

Результат вернётся в виде рекордсета.
Т.е. вызывайте процедуру из компонента, возвращающего рекордсет (т.е. наследника DataSet, (но не TADOCommand) - а значит, и не Execute, а Open (или Active=True) (exec владелец.Имя_процедуры).
PS. Если у вас MSSQL2000 то, ПМСМ, удобнее подобные вещи выполнять в виде не процедур, а функций.
Удачи!

---

Rob   (2005-02-08 10:07:00) [3]

CREATE procedure summaperioda (@numberperiod int)
as
select sum(cast(summa as money)) my_sum from Tab_jurnalseansov
where period = @numberperiod
GO

На клиенте что-то типа:

var My_Sum: currency;

Query1.SQL.Add('exec summaperioda и т.д.
Query1.Open;

My_Sum:=Query1.FieldByName('my_sum ').AsCurrency;

---

Наверх