Здравствуйте!
Пытаюсь вызвать скрипт наполнения созданной БД из другого скрипта через ibec_ExecSQLScript. Если использовать скрипт test1.sql в том виде, в котором он выложен, то получаем ошибку
Ошибка выполнения IBEScriptIBEScript Version 2020.8.11.1 Copyright (c) 2002-2020 IBExpert Ltd (www.ibexpert.com)
Executing script: test1.sql
(Line: 24) : Executing IBEBlock...
(Line: 4) : Creating domain DMN_BOOL... Successful
Error occurred while executing following statement (line 9):
-------- STATEMENT ----------
DESCRIBE DOMAIN DMN_BOOL
'Домен для хранения булевского типа
0 - ложь
!0 - истина'
-------- ERROR ----------
Incompatible column/host variable data type.
Dynamic SQL Error.
SQL error code = -303.
Malformed string.
(Line: 9) : Setting description for DMN_BOOL... FAILED!
Script executed successfully.
Total execution time: 109ms
Как я только не пытался менять параметры подключения - ничего не помогло. Единственный способ, которым я победил эту ошибку - это закрыть соединение с БД после её создания и заново открыть БД. Если в test1.sql убрать комментарий, то скрипт в результате выполняется без ошибок.
Выполнение без ошибокIBEScript Version 2020.8.11.1 Copyright (c) 2002-2020 IBExpert Ltd (www.ibexpert.com)
Executing script: test1.sql
(Line: 24) : Executing IBEBlock...
(Line: 4) : Creating domain DMN_BOOL... Successful
(Line: 9) : Setting description for DMN_BOOL... Successful
Script executed successfully.
Total execution time: 188ms
Ниже выкладываю тексты скриптов. Оба файла на диске в ansi-кодировке
test1.sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
execute ibeblock as
begin
ConnectionString = 'dbname=test.fdb;user=sysdba;password=masterkey;SQLDialect=3;names=win1251';
conn = ibec_CreateDatabase(__ctFirebird, ConnectionString);
/*
ibec_CloseConnection(conn);
conn = ibec_CreateConnection(__ctFirebird, ConnectionString);
*/
try
ibec_UseConnection(conn);
cbb = 'execute ibeblock (BlockData variant) as
begin
sMessage = BlockData;
if (sMessage is not null) then
ibec_Progress(sMessage);
end';
Msg = ibec_ExecSQLScript(conn, 'test2.sql', 'StopOnError=True', cbb);
finally
ibec_CloseConnection(conn);
end
end
test2.sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
SET SQL DIALECT 3;
SET NAMES WIN1251;
CREATE DOMAIN DMN_BOOL AS SMALLINT DEFAULT 0 NOT NULL;
DESCRIBE DOMAIN DMN_BOOL
'Домен для хранения булевского типа
0 - ложь
!0 - истина';
