execute ibeblock as

declare ibeblock cbb (BlockData variant) as
begin
  sMessage = BlockData;
  if (sMessage is not null) then
    ibec_Progress(ibec_StringReplace(sMessage, ' : ', ' : [' || ibec_Now() || '] ', 0));
end;

begin
  clib = '"' || ibec_GetGlobalVar('ClientLib', 'gds32.dll') || '"';
  BaseName = ibec_GetGlobalVar('dbName', ibec_ExtractFileName(ibec_GetCurrentDir()));

  ibec_Progress('');
  ibec_Progress('BaseName = ' || BaseName);

  ConnectionString = 'dbname="' || BaseName || '";user=sysdba;password=masterkey;SQLDialect=3;names=win1251;clientlib=' || clib;
  conn = ibec_CreateConnection(__ctFirebird, ConnectionString);
  try
    ibec_UseConnection(conn);

    select max(generation) from version_info into :GenValue;
    if (GenValue is null) then GenValue = 0;

    while (True) do 
    begin
      GenNext = GenValue + 1;
      FileName = 'update_' || GenValue || '_' || GenNext || '.sql';
      if (not ibec_FileExists(FileName)) then break;

      ibec_Progress('');
      ibec_Progress('Executing script ' || FileName);

      StartTime = ibec_GetTickCount();
      Msg = ibec_ExecSQLScript(conn, FileName, 'StopOnError=True', cbb);
      if (Msg is null) then
      begin
        ibec_Progress('Script executed successfully.');
      end
      else
      begin
        ibec_Progress('');
        ibec_Progress('Script executed with errors.');
      end;

      ibec_Progress('Total execution time: ' || (ibec_GetTickCount() - StartTime) || 'ms');
      ibec_Progress('==================================================');
      
      insert into version_info (generation) values (:GenNext);
      commit;

      GenValue = GenNext;
    end;
  finally
    ibec_CloseConnection(conn);
  end
end

execute ibeblock as
begin
  if (not exists (select id from mlist)) then 
  begin
    mark_name = ibec_GetGlobalVar('user_name', 'Тестовый маркшейдер');
    insert into mlist (name) values (:mark_name);
    commit;
  end;
end

CREATE TABLE VERSION_INFO (
    GENERATION  INTEGER
);

Msg = ibec_ExecSQLScript(conn, FileName, 'StopOnError=True', cbb);

DESCRIBE FIELD HANGLE TABLE ST_RES
'Измеренный горизонтальный левый угол';

DESCRIBE FIELD HANGLETYPE TABLE ST_RES
'Тип измеряемого угла (0-левый, 1-правый)';

execute ibeblock as
begin
  if (not exists (select id from mlist)) then 
  begin
    mark_name = ibec_GetGlobalVar('user_name', 'Тестовый маркшейдер');
    insert into mlist (name) values (:mark_name);
    commit;
  end;
end;

SET SQL DIALECT 3;
SET NAMES WIN1251;

create table test ( test varchar (60) );
commit;

execute ibeblock as
begin
/*  test_var = ibec_GetGlobalVar('test_var', 'Тестовая строка'); */
  test_var = 'Тестовая строка';
  insert into test (test) values (:test_var);
  commit;
  insert into test (test) values ('Тестовая строка');
  commit;
end;

C:\РУССКИЙ ПУТЬ\Bases\Scripts\test>"C:\РУССКИЙ ПУТЬ\FBLocal64\xIBEScript.exe" ..\database_create.sql -l"C:\РУССКИЙ ПУТЬ\FBLocal64\fbembed.dll" -G"dbName=test.fdb" -G"ClientLib=C:\РУССКИЙ ПУТЬ\FBLocal64\fbembed.dll" -T -VIBEScript.log
xIBEScript Version  (very Alpha) Copyright (c) 2002-2021 IBExpert KG (www.ibexpert.net)

Executing script: C:\РУССКИЙ ПУТЬ\Bases\Scripts\database_create.sql
[18.08.2021 14:18:39] (Line: 1): Executing IBEBlock...

BaseName = test.fdb
 FAILED!

Error occured while executing IBEBlock (line 1):
--------  STATEMENT (line 18/18) ----------
conn = ibec_CreateDatabase(__ctFirebird, ConnectionString)

--------  ERROR ----------
Client Library is missing or invalid: C:\Р Р?РЎРЎР?Р?РT Р?Р?РўР┐\FBLocal64\fbembed.dll

Notice, that you have to use 32-bit client library even if you connect to 64-bit version of Firebird/InterBase
because IBExpert is a 32-bit application.
In case you specify a 64-bit version of client library dll instead of 32-bit one you can get this error.


Time spent: 00:00.000

Executing script: C:\Program Files (x86)\ГИС ГЕОМИКС\Bases\Scripts\database_drop.sql
[28.09.2021 18:19:31] (Line: 1): Executing IBEBlock...

BaseName = journals
 FAILED!

Error occured while executing IBEBlock (line 1):
--------  STATEMENT (line 10/10) ----------
ibec_DropDatabase(__ctFirebird, ConnectionString)

--------  ERROR ----------
Unsuccessful execution caused by a system error that precludes successful execution of subsequent statements.
I/O error during "CreateFile (open)" operation for file "journals".
Error while trying to open file.
Не удается найти указанный файл. .
-------------------------------------------------------------------------------------------------------------
SQLCODE: -902
SQLSTATE: 08001
GDSCODE: 335544344


Time spent: 00:00.266
================================================================================

procedure SetGlobalVar(Script: THandle; const VarName, Value: string);
var
  ScriptText: AnsiString;
begin
  ScriptText := Format('execute ibeblock as begin ibec_SetGlobalVar(%s, %s); end;',
    [AnsiQuotedStr(VarName, ''''), AnsiQuotedStr(Value, '''')]);
  CheckIBEResult(ibesScriptExecuteText(Script, PAnsiChar(ScriptText)));
end;

  InitConnection;
  IBES.SetConnection(hConnection);
  try
    IBES.ExecuteScriptText(Memo1.Lines.Text);
  finally
    IBES.SetConnection(0);
  end;