iBase.ru Forum

В Delphi хочу через FIBPlus Query SelectSQL передать на сервер новую процедуру (чтобы пользователи могли сами добавлять новые процедуры), а Delphi ругается, говорит, что какие-то непонятные символы. Может быть процедура кривая, но IBExpert ее хорошо "глотает".

Как запихать новую процедуру через ТMemo и Query?

Скажите пожалуйста.

используй компонент pFIBQuery
pFIBTransaction.StartTransaction;
pFIBQuery1.Close;
pFIBQuery1.SQL.Text:=Memo1.Lines.Text;
try
pFIBQuery1.ExecQuery;
pFIBTransaction.Commit;
except
pFIBTransaction.RollBack;
ShowMessage('Облом');
end;

только вместо CREATE PROCEDURE надо
ALTER PROCEDURE

П.С.
сработает если у этой процедуры нет зависимых от нее объектов БД

Спасибо, сейчас проверю.

Не хотелось бы вводить вторую транзакцию в приложение. Это обязательно?

При двух транзакциях будут отличия в данных вводимых пользователем и получаемых через маленькие "контрольные" запросы к базе, а механизм для этого предусмотрен один. И для запросов, и для обновлений.

Спасибо, все заработало! Оказывается я перепутал Dataset и Query, использовал Dataset. После замены все стало проходить. Пожалуй заведу на Query для сложного SQL отдельную транзакцию

Александр, ты это - одна транзакция во всем приложении - это ОЧЕНЬ хреново. более того, DDL надо обязательно выполнять в отдельной транзакции, которой тут же делать commit. и выполнять по одному оператору ddl за раз.

Так и сделаю. Спасибо!