Инкрементное обновление структуры базы данных - История изменений

SYSDBA: Содержимое страницы заменено на «См. Модификация структуры базы данных.»

2012-01-15T18:18:40Z

Содержимое страницы заменено на «См. Модификация структуры базы данных.»

SYSDBA: Новая страница: «После каждого успешного обновления структуры БД заносится запись в таблицу FIN_VERSIONINFO. Та…»

2011-05-10T11:59:00Z

Новая страница: «После каждого успешного обновления структуры БД заносится запись в таблицу FIN_VERSIONINFO. Та…»

Новая страница

После каждого успешного обновления структуры БД заносится запись в таблицу [[FIN_VERSIONINFO]]. Таким образом, текущую версию структуры можно извлечь по максимальному идентификатору с помощью запроса:

SELECT FIRST 1 * FROM fin_versioninfo ORDER BY id DESC

Для изменения структуры БД разработчик создает процедуру типа [[gdModify.TProcAddr|TProcAddr]]. Как правило, на одно изменение создается одна процедура. Ниже приведен пример из файла [[mdf_ConvertBNStatementCommentToBlob]]:

<syntaxhighlight lang="delphi">
procedure ModifyRUIDProcedure(IBDB: TIBDatabase; Log: TModifyLog);
var
FTransaction: TIBTransaction;
FIBSQL: TIBSQL;
begin
FTransaction := TIBTransaction.Create(nil);
FIBSQL := TIBSQL.Create(nil);
try
FTransaction.DefaultDatabase := IBDB;
try
FTransaction.StartTransaction;
FIBSQL.Transaction := FTransaction;
FIBSQL.ParamCheck := False;

FIBSQL.SQL.Text :=
'CREATE OR ALTER PROCEDURE GD_P_GETRUID(ID INTEGER) '#13#10 +
' RETURNS (XID INTEGER, DBID INTEGER) '#13#10 +
'AS '#13#10 +
'BEGIN '#13#10 +
' XID = NULL; '#13#10 +
' DBID = NULL; '#13#10 +
' '#13#10 +
' IF (NOT :ID IS NULL) THEN '#13#10 +
' BEGIN '#13#10 +
' IF (:ID < 147000000) THEN '#13#10 +
' BEGIN '#13#10 +
' XID = :ID; '#13#10 +
' DBID = 17; '#13#10 +
' END ELSE '#13#10 +
' BEGIN '#13#10 +
' SELECT xid, dbid '#13#10 +
' FROM gd_ruid '#13#10 +
' WHERE id=:ID '#13#10 +
' INTO :XID, :DBID; '#13#10 +
' '#13#10 +
' IF (XID IS NULL) THEN '#13#10 +
' BEGIN '#13#10 +
' XID = ID; '#13#10 +
' DBID = GEN_ID(gd_g_dbid, 0); '#13#10 +
' '#13#10 +
' INSERT INTO gd_ruid(id, xid, dbid, modified, editorkey) '#13#10 +
' VALUES(:ID, :XID, :DBID, CURRENT_TIMESTAMP, NULL); '#13#10 +
' END '#13#10 +
' END '#13#10 +
' END '#13#10 +
' '#13#10 +
' SUSPEND; '#13#10 +
'END ';

FIBSQL.ExecQuery;

FIBSQL.SQL.Text :=
'UPDATE OR INSERT INTO fin_versioninfo ' +
' VALUES (132, ''0000.0001.0000.0163'', ''28.03.2011'', ''Modify GD_P_GETRUID procedure.'') ' +
' MATCHING (id)';
FIBSQL.ExecQuery;
FIBSQL.Close;

FTransaction.Commit;
except
on E: Exception do
begin
Log('Произошла ошибка: ' + E.Message);
if FTransaction.InTransaction then
FTransaction.Rollback;
raise;
end;
end;
finally
FIBSQL.Free;
FTransaction.Free;
end;
end;
</syntaxhighlight>

В данном случае вносятся изменения в хранимую процедуру [[GD_P_GETRUID]]. Как видно, на вход передается коннект к базе данных и процедура обратного вызова для логирования. В общем случае, алгоритм обновления выглядит следующим образом:

# Создаются и связываются объекты транзакции и SQL команды
# Стартует транзакция
# Делаются необходимые проверки
# Выполняется одна или несколько SQL команд
# Помещаются сообщения в лог о ходе процесса
# Добавляется запись в fin_versioninfo о новом номере версии структуры БД
# Комитится транзакция
# Если произошла ошибка, то сообщение помещается в лог и транзакция откатывается

Все подобные процедуры вместе с номером версии структуры БД заносятся в глобальный массив [[mdf_proclist.cProcList|cProcList]]. При запуске Гедымина, после аутентификации пользователя и подключения к базе, номер текущей версии структуры БД сверяется с номером из последнего элемента массива. Если номер текущей версии меньше или равен номеру из последнего элемента, то создается объект типа [[gdModify.TgdModify|TgdModify]] и запускается процесс апгрейда.

В ходе обновления последовательно выполняются процедуры из массива [[mdf_proclist.cProcList|cProcList]], пока выполняется условие:

FDBVersion <= cProcList[I].ModifyVersion

где FDBVersion -- номер текущей версии структуры БД, cProcList[I].ModifyVersion -- номер версии, указанный для I-той процедуры.

[[Category:Школа системного администратора]]

@@ Строка 1: / Строка 1: @@
-После каждого успешного обновления структуры БД заносится запись в таблицу [[FIN_VERSIONINFO]]. Таким образом, текущую версию структуры можно извлечь по максимальному идентификатору с помощью запроса:
+См. [[Модификация структуры базы данных]].
-−
-  SELECT FIRST 1 * FROM fin_versioninfo ORDER BY id DESC
-−
-Для изменения структуры БД разработчик создает процедуру типа [[gdModify.TProcAddr|TProcAddr]]. Как правило, на одно изменение создается одна процедура. Ниже приведен пример из файла [[mdf_ConvertBNStatementCommentToBlob]]:
-−
-<syntaxhighlight lang="delphi">
-procedure ModifyRUIDProcedure(IBDB: TIBDatabase; Log: TModifyLog);
-var
-  FTransaction: TIBTransaction;
-  FIBSQL: TIBSQL;
-begin
-  FTransaction := TIBTransaction.Create(nil);
-  FIBSQL := TIBSQL.Create(nil);
-  try
-    FTransaction.DefaultDatabase := IBDB;
-    try
-      FTransaction.StartTransaction;
-      FIBSQL.Transaction := FTransaction;
-      FIBSQL.ParamCheck := False;
-−
-      FIBSQL.SQL.Text :=
-        'CREATE OR ALTER PROCEDURE GD_P_GETRUID(ID INTEGER) '#13#10 +
-        '  RETURNS (XID INTEGER, DBID INTEGER) '#13#10 +
-        'AS '#13#10 +
-        'BEGIN '#13#10 +
-        '  XID = NULL; '#13#10 +
-        '  DBID = NULL; '#13#10 +
-        ' '#13#10 +
-        '  IF (NOT :ID IS NULL) THEN '#13#10 +
-        '  BEGIN '#13#10 +
-        '    IF (:ID < 147000000) THEN '#13#10 +
-        '    BEGIN '#13#10 +
-        '      XID = :ID; '#13#10 +
-        '      DBID = 17; '#13#10 +
-        '    END ELSE '#13#10 +
-        '    BEGIN '#13#10 +
-        '      SELECT xid, dbid '#13#10 +
-        '      FROM gd_ruid '#13#10 +
-        '      WHERE id=:ID '#13#10 +
-        '      INTO :XID, :DBID; '#13#10 +
-        ' '#13#10 +
-        '      IF (XID IS NULL) THEN '#13#10 +
-        '      BEGIN '#13#10 +
-        '        XID = ID; '#13#10 +
-        '        DBID = GEN_ID(gd_g_dbid, 0); '#13#10 +
-        ' '#13#10 +
-        '        INSERT INTO gd_ruid(id, xid, dbid, modified, editorkey) '#13#10 +
-        '          VALUES(:ID, :XID, :DBID, CURRENT_TIMESTAMP, NULL); '#13#10 +
-        '      END '#13#10 +
-        '    END '#13#10 +
-        '  END '#13#10 +
-        ' '#13#10 +
-        '  SUSPEND; '#13#10 +
-        'END ';
-−
-      FIBSQL.ExecQuery;
-−
-      FIBSQL.SQL.Text :=
-        'UPDATE OR INSERT INTO fin_versioninfo ' +
-        '  VALUES (132, ''0000.0001.0000.0163'', ''28.03.2011'', ''Modify GD_P_GETRUID procedure.'') ' +
-        '  MATCHING (id)';
-      FIBSQL.ExecQuery;
-      FIBSQL.Close;
-−
-      FTransaction.Commit;
-    except
-      on E: Exception do
-      begin
-        Log('Произошла ошибка: ' + E.Message);
-        if FTransaction.InTransaction then
-          FTransaction.Rollback;
-        raise;
-      end;
-    end;
-  finally
-    FIBSQL.Free;
-    FTransaction.Free;
-  end;
-end;
-</syntaxhighlight>
-−
-В данном случае вносятся изменения в хранимую процедуру [[GD_P_GETRUID]]. Как видно, на вход передается коннект к базе данных и процедура обратного вызова для логирования. В общем случае, алгоритм обновления выглядит следующим образом:
-−
-# Создаются и связываются объекты транзакции и SQL команды
-# Стартует транзакция
-# Делаются необходимые проверки
-# Выполняется одна или несколько SQL команд
-# Помещаются сообщения в лог о ходе процесса
-# Добавляется запись в fin_versioninfo о новом номере версии структуры БД
-# Комитится транзакция
-# Если произошла ошибка, то сообщение помещается в лог и транзакция откатывается
-−
-Все подобные процедуры вместе с номером версии структуры БД заносятся в глобальный массив [[mdf_proclist.cProcList|cProcList]]. При запуске Гедымина, после аутентификации пользователя и подключения к базе, номер текущей версии структуры БД сверяется с номером из последнего элемента массива. Если номер текущей версии меньше или равен номеру из последнего элемента, то создается объект типа [[gdModify.TgdModify|TgdModify]] и запускается процесс апгрейда.
-−
-В ходе обновления последовательно выполняются процедуры из массива [[mdf_proclist.cProcList|cProcList]], пока выполняется условие:
-−
-  FDBVersion <= cProcList[I].ModifyVersion
-−
-где FDBVersion -- номер текущей версии структуры БД, cProcList[I].ModifyVersion -- номер версии, указанный для I-той процедуры.
-−
-[[Category:Школа системного администратора]]