Удалить процедуру

Fri, 30 Nov 2007 03:27:15 -0800 

Вопрос к разработчикам (наверное)
Firebird 2.00 12748

  DM.SQ.SQL.Text := 'CREATE PROCEDURE MYPROG RETURNS(CNT INTEGER) AS
BEGIN
FOR SELECT CNT FROM  BLABLA INTO :CNT DO BEGIN SUSPEND; END END';
  DM.SQ.ExecQuery;
  DM.FTR.CommitRetaining;

  DM.SQ.SQL.Text := 'SELECT * FROM MYPROG ';
  DM.SQ.ExecQuery;
  dm.SQ.Close;
  DM.FTR.CommitRetaining;

  DM.SQ.SQL.Text := 'DROP PROCEDURE MYPROG';
  DM.SQ.ExecQuery;
  DM.FTR.CommitRetaining;

если select закомментировать то процедура удаляется, иначе говорит
обьект in
use
Почему такое происходит и когда сервер даст возможность ее удалить?
Когда-то он должен ее отпустить или я не понимаю чего.
в 1-чке работало )

Рыболовлев Юрий

Ответить