Господа!
В хранимой процедуре без возвращаемых значений, которая успешно (в рамках своей логики, либо отрабатывает молча, либо возвращает exception) вызывается так в IBExpert:
execute procedure advance2(1000, 500);
есть вызов исключения
exception wrong_parameters 'Такая сумма аванса недоступна сотруднику, уменьшите сумму!';
Есть компьютер с приложением (не IBExpert), где клиентская библиотека от FB2.5, и тогда работает правильно. А если вызывает исключение, которое ловиться программой, то отображается именно такой текст.
Сервер всегда 2.5.7.
Если использовать библиотеку от FB3.0.1, то в случае правильных параметров, которые не предполагают исключения, все работает. Если ввести параметры, на которые мы должны реагировать вышеуказанным исключением, то в клиент придёт исключение "Attempt to execute an unprepared dynamic SQL statement", а не то, что указывали мы.
Мы использует IBSQL (не IBQuery), отладка показывает, что исключение такое уже на уровне вызова isc_dsql_execute2:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
fetch_res := Call(Database.GDSLibrary.isc_dsql_execute2(StatusVector, TRHandle,
@FHandle, Database.SQLDialect, FSQLParams.AsXSQLDA,
FSQLRecord.AsXSQLDA), False);
if (fetch_res <> 0) then
begin
if (fetch_res <> isc_lock_conflict) then
begin
{ Sometimes a prepared stored procedure appears to get
off sync on the server ....This code is meant to try
to work around the problem simply by "retrying". This
need to be reproduced and fixed.
}
Database.GDSLibrary.isc_dsql_prepare(StatusVector, TRHandle, @FHandle, 0,
PByte(FProcessedSQL.Text), Database.SQLDialect, nil);
Call(Database.GDSLibrary.isc_dsql_execute2(StatusVector, TRHandle,
@FHandle, Database.SQLDialect, FSQLParams.AsXSQLDA,
FSQLRecord.AsXSQLDA), True);
end
else
IBDataBaseError(Database.GDSLibrary); // go ahead and raise the lock conflict
end;
Отмечу, что хранимая процедура с возвращаемыми значениями, вызываемая через "select * from ..." корректно возвращает исключение при любой клиентском библиотеке: и FB2.5, и FB3.0.1.
Как нам получить "наше" исключение в примере выше? Хотелось бы иметь одну клиентскую библиотеку и соединятся с СУБД разных версий.
