Создание хранимой процедуры программно

← →
Брат (2004-11-04 10:36) [0]

Доброе утро!
Не получается создать хранимую процедуру. Запихиваю вот такой текст в 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, но конкретно незнаю). Подскажите пожулайста в чем проблема и что делать и как с этим бороться.
Спасибо заранее

← →
Fay © (2004-11-04 10:52) [1]

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

← →
Johnmen © (2004-11-04 10:57) [2]

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

← →
Брат (2004-11-04 11:15) [3]

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

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

← →
Sergey_Masloff (2004-11-04 11:15) [4]

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

← →
Sergey_Masloff (2004-11-04 11:16) [5]

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

← →
Брат (2004-11-04 11:16) [6]

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

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

← →
Брат (2004-11-04 11:17) [7]

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

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

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

← →
Johnmen © (2004-11-04 11:21) [8]

>Брат

Зачем тебе IBScript ?

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

А зачем тогда указаны ???

>Sergey_Masloff (04.11.04 11:15) [4]

Кавычки одинарные, но удвоенные...:)

← →
Брат (2004-11-04 11:26) [9]

> Johnmen ©

> А зачем тогда указаны ???

где??? :)

я вот нашел ссылку на
IBX Extras Kit (IBXtras) версия 6.01 для Delphi 6, где есть IBScript - http://www.delphiplus.org/borland.html
но отсюда не качается... может есть у кого?

← →
Johnmen © (2004-11-04 11:41) [10]

>где??? :)

Э-э-э-э... Ау, в танке..
((tera.sr_pg="00" or tera.tip="2") and tera.id_key=forms412.roshirenie) and

Ещё раз - ЗАЧЕМ тебе IBScript ???

← →
Брат (2004-11-04 11:47) [11]

> Johnmen © (04.11.04 11:41) [10]
> >где??? :)
>
> Э-э-э-э... Ау, в танке..
> ((tera.sr_pg="00" or tera.tip="2") and tera.id_key=forms412.roshirenie)
> and

понял счас попробую

> Ещё раз - ЗАЧЕМ тебе IBScript ???

если получится тогда конечно незачем :)

← →
Брат (2004-11-04 11:50) [12]

> > Johnmen © (04.11.04 11:41) [10]
> > >где??? :)
> >
> > Э-э-э-э... Ау, в танке..
> > ((tera.sr_pg="00" or tera.tip="2") and tera.id_key=forms412.roshirenie)
>
> > and

неа не получается
я поставил : ((tera.sr_pg="00" or tera.tip="2") and tera.id_key=forms412.roshirenie)

та же ошибка и все та же проблема :(((

← →
Johnmen © (2004-11-04 11:58) [13]

М-да... Трудно что-то объяснить человеку, который просто не читает ответов...:(
[8]

← →
Брат (2004-11-04 12:11) [14]

> Johnmen © (04.11.04 11:58) [13]
> М-да... Трудно что-то объяснить человеку, который просто
> не читает ответов...:(

я в курсе что удвоенные

я поставил : ((tera.sr_pg=""00"" or tera.tip=""2"") and tera.id_key=forms412.roshirenie)
в итоге компилятор интерпретирует их как одинарные, это я знаю

все равно не работает

← →
Johnmen © (2004-11-04 12:16) [15]

>все равно не работает

Это как ?

← →
Брат (2004-11-04 12:23) [16]

> Johnmen © (04.11.04 12:16) [15]
> >все равно не работает
>
> Это как ?

запихиваю этот текст в IBQuery.SQL.Text и
выполняю методом ExecSQL. Выскакивает ошибка:

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

я посмотрел символ 4 на строке 11 - это INTO

текст этот я выполняю в SQL Editor"e IBExpert"a - все работает замечательно

← →
Брат (2004-11-04 12:47) [17]

← →
Johnmen © (2004-11-04 13:10) [18]

IBQuery.ParamCheck:=False;

← →
Брат (2004-11-04 13:13) [19]

> Johnmen © (04.11.04 13:10) [18]
> IBQuery.ParamCheck:=False;

не помогает

но зато я нашел IBScript - счас буду пробовать :)

Всем помогает, одному тебе - нет.
В ком тогда дело ?

И ещё раз, ЗАЧЕМ тебе IBScript ? Ты что, до сих пор веришь в волшебных фей ? При этом ничего про них не зная...

← →
Брат (2004-11-04 15:03) [21]

> Johnmen © (04.11.04 13:15) [20]
> Всем помогает, одному тебе - нет.
> В ком тогда дело ?
>
> И ещё раз, ЗАЧЕМ тебе IBScript ? Ты что, до сих пор веришь
> в волшебных фей ? При этом ничего про них не зная...

согласен, но пока другого выхода у меня нет, все то что ты предлагал я попробовал, но все равно не работает

с IBScript все хорошо работает

>но все равно не работает

Что это значит ?

← →
Брат (2004-11-04 15:26) [23]

> Johnmen © (04.11.04 15:20) [22]
> >но все равно не работает
>
> Что это значит ?

это значит что все равно выдается ошибка

Какая ?

← →
Брат (2004-11-04 15:37) [25]

> Johnmen © (04.11.04 15:32) [24]
> Какая ?

та же самая:
"SQL Error code = -104
Token unknown - line 11, char 4"

ставлю так в запросе:
tera.sr_pg=""00"" or tera.tip=""2""
в свойствах компонента:
IBQuery.ParamCheck:=False;

Список параметров пуст ?
Без tera.sr_pg=""00"" or tera.tip=""2"" работает ?

← →
Брат (2004-11-04 16:22) [27]

Создание хранимой процедуры программно Найти похожие ветки