TSQLScript и экранировка ':'

[evg_m]

Задача

на удаленном сервере Firebird БД(без прямого доступа) и возможности использовать какую-либо IBExpert.
с помощью TSQLScript или любого другого компонента надо
создать (пересоздать) ХП в которой есть ну скажем

select id from tx where f= :f  into :n 

т.е. какие-то параметры которые будут использоваться на на сервере при выполнении данной ХП.

Так вот SQLScript "упорно" cчитает это "своими личными" параметрами и пытается их подставить (а их нет).
КАК объяснить что это НЕ ЕГО параметр, и надо передать серверу все "КАК ЕСТЬ"

P.S. Даже если попытаться задать ИМ значения

ParamByName('f').AsString =':f';

все равно получаем не то что надо.

[come-on]

execute statement там есть какой?

[Аватар]

А удвоенное :: ест?

[evg_m]

ларчик открывается просто.

SQLQueryX.ParamCheck:=false; // и теперь НЕТ никаких параметров
SQLQueryX.Text:='create procedure ....';

вот только нельзя здесь пихать несколько команд.

ТЕПЕРЬ возникает вопрос как поправить генофонд? никогда ранее таким не занимался
Добавить указанную выше строку paramcheck:=false; поскольку для работы TSQLScript использует свой внутренний SQLQuery( private и доступа к нему извне даже у наследника нет) но увы без этой строки.

Для быстрого решения проблемы есть и другой вариант (перекрыть один метод и использовать свой SQLQuery).
Этим и займусь, но хотелось бы все-таки исправить исходник.

[come-on]

еще раз спрошу, не проще ли #2?

[evg_m]

еще раз спрошу, не проще ли #2?

Там(FireBird) есть только EXECUTE BLOCK (выполнение блока команд, НО НЕ выполнение команд(-ы) записанной в переменную).
теперь (после Paramcheck) если хочется выполнить блок команд, то можно и так.

Q.ParamCheck:=false;
Q.SQL.Text:='EXECUTE BLOCK 
   BEGIN
   <наш блок команд включающий что угодно>
  END';

Но лично мне приятнее выполнять команды по одной, но загружая их оптом из файла.

SQLScript.Script.LoadFromFile(...);//один раз загрузили тот же блок но без EXECUTE (тем более что он(этот блок) уже ЕСТЬ и в нужном формате)
SQLScript.Execute;//и выполнили по очереди.

Перегрузка одного метода и пять строк кода в этом методе это позволяют.

[come-on]

http://www.firebirdsql.org/refdocs/l...-execstat.html
Это разве не оно?

[evg_m]

Да видимо оно, НО опять же ....
чтобы выполнить это "из клиента" (SQLQuery и т.п.) его надо будет "завернуть" в уже упомянутый EXECUTE BLOCK + выполнить перекодировку имеющегося файла обновлений чтобы получить нечто вроде

EXECUTE BLOCK 
delcare sql varchar(10000)
BEGIN
  sql =.......  ||ASCII_CHAR(58)||'f into '||ASCII_CHAR(58)||'n'  /*:f into :n */
           .......
 EXECUTE STATMENT sql;
END;

выполнимо конечно и легко, но вариант решения исходной проблемы УЖЕ найден(см. выше) и без написания кода по "перекодированию" имеющегося файла обновления.

P.S. мне тоже казалось что такое (EXECUTE STATEMENT) должно было быть, но увы моя "offline справка" про него не знала , хотя и

(Охватывает Firebird до версии 2.5.3 включительно)

[come-on]

А тупо создать хранимую процедуру и вызывать ее нельзя?
т.е. сначала сделаете так, а потом просто вызываете ту что создали, с параметром.

[come-on]

к тому что зачем держать в проге ненужный код, а потом не дай бог еще его поддерживай, в то время когда все есть готовое...