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

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

Создание хранимой процедуры программно [D6, IB6.x]


Страницы:   1 2

Брат ©   (2004-11-04 10:36:00) 

Доброе утро!
Не получается создать хранимую процедуру. Запихиваю вот такой текст в IBQuery:

CREATE PROCEDURE MAKETABLE_4
(OBL CHAR(2),DT TIMESTAMP,BUDGET CHAR(1))
RETURNS (TW_RN CHAR(2),s1 NUMERIC(15,2)) AS BEGIN
FOR
SELECT TW_RN,sum(dif(code-13020100+gr-1,dif(code-13020300+gr-1,dif(code-13020400+gr-1,dif(code-13020500+gr-1,dif(code-13020100+ gr-7,dif(code-13020300+gr-7,dif(code-13020400+gr-7,dif(code-13020500+gr-7,0,-1*suma_vsogo*1.00),-1*suma_vsogo*1.00),-1*s uma_vsogo*1.00),-1*suma_vsogo*1.00),suma_vsogo*1.00),suma_vsogo*1.00),suma_vsogo*1.00),suma_vsogo*1.00)) as s1
FROM forms412,tera
WHERE (obl=:obl and dt=:dt and budget=:budget) and
((tera.sr_pg="00" or tera.tip="2") and tera.id_key=forms412.roshirenie) and
((code=13020100 and gr=1) or (code=13020300 and gr=1) or (code=13020400 and gr=1) or (code=13020500 and gr=1) or (code=13020100 and gr=7) or (code=13020300 and gr=7) or (code=13020400 and gr=7) or (code=13020500 and gr=7))
GROUP BY TW_RN
INTO :TW_RN,:s1
DO SUSPEND;
END

и выполняю ExecSQL. Выскакивает ошибка:

"SQL Error code = -104
Token unknown - line 11, char 4"

Хотя когда беру текст и выполняю на сервере - процедура создается без проблем(очевидно что проблема не в синтаксесе, ведь на сервере такая процедура создается и выполняется без проблем. Скорее всего проблема в IBQuery, но конкретно незнаю). Подскажите пожулайста в чем проблема и что делать и как с этим бороться.
Спасибо заранее


Брат   (2004-11-04 11:17:00) [21]


> Sergey_Masloff   (04.11.04 11:16) [5]
> Брат   (04.11.04 11:15) [3]
> >а где его взять?
> Ровно там же где IBQuery

нету такого компонента на вкладке Interbase :(

у меня шестая версия делфи, может это в седьмой?


Брат   (2004-11-04 11:16:00) [22]


> Sergey_Masloff   (04.11.04 11:15) [4]
> Johnmen ©   (04.11.04 10:57) [2]
> >Кавычки одинарные.
> Это ж в стринге который в SQL.Text пихается. Какие одинарные?


ненужны там кавычки


Sergey_Masloff   (2004-11-04 11:16:00) [23]

Брат   (04.11.04 11:15) [3]
>а где его взять?
Ровно там же где IBQuery


Sergey_Masloff   (2004-11-04 11:15:00) [24]

Johnmen ©   (04.11.04 10:57) [2]
>Кавычки одинарные.
Это ж в стринге который в SQL.Text пихается. Какие одинарные?


Брат   (2004-11-04 11:15:00) [25]


> Fay ©   (04.11.04 10:52) [1]
> А IBScript у тебя есть?

нету :(
а где его взять?


Johnmen   (2004-11-04 10:57:00) [26]

Кавычки одинарные.


Fay   (2004-11-04 10:52:00) [27]

А IBScript у тебя есть?


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо