1

我正在准备我的软件的新版本，从 Firebird 1.5 过渡到 3。我的安装程序备份 Firebird 1.5 数据库，并根据安装类型（本地/多用户）通过 Firebird 3 服务器或嵌入式服务器恢复它。这一切都很好。

我想使用新的 Firebird 功能重新创建所有过程触发器和视图，并尝试摆脱我在 1.5 中使用的 UDF。因此我试图删除所有这些东西，但我偶然发现了我无法删除的问题，例如，使用 FB3 中不存在的 UDF 的视图。由于 UDF 不适用于 Firebird 3，我有点卡住了。

删除旧数据库中的这些对象是没有选择的，因为我不想破坏这个后备选项。也不能进行两次备份/恢复，因为我们谈论的是相当大的数据库。

我需要让安装程序完成所有这些，因为我无法访问所有客户系统。

4

1 回答 1

1

感谢 Mark，我再次尝试并最终以某种方式将所有视图更改为“从 rdb$database 中选择 1 作为测试”工作，然后可以删除它们。

由于我在该领域有许多不同版本的架构，我不确定我会遇到哪些依赖项。所以我写了这个 PSQL 块，它遍历所有这些对象，忽略错误，直到所有东西都被清理干净。因此，如果这些对象中的任何一个不可删除，我会在迭代运行 100 次后退出迭代以避免挂起。之后，我检查是否仍然存在任何过程、视图、触发器和函数。如果是这样，我会引发异常。

我知道这是一种“肮脏”的解决方案（忽略异常通常是 NoGo），但我没有更好的主意，因为既不会发生无限循环也不会发生未检测到的错误，我将使用这种方式。

EXECUTE BLOCK
as
declare x integer;
declare y integer;
declare z integer;
declare s varchar(100);
declare s1 varchar(100);
begin
    x=1;
    y=0;
    while (x>0 and y<100) do
    -- we break out of the loop if we have more than 100 rounds as this indicates
    -- at least one object could not be deleted.
      begin
        y=y+1;
        for SELECT distinct RDB$VIEW_NAME from RDB$VIEW_RELATIONS into :s  do
          begin
            in autonomous transaction do
            execute statement 'alter view ' || s || ' as select 1 as test from rdb$database';
             -- Ignore errors here for now
            in autonomous transaction do
            execute statement 'drop view ' || s;
             -- Ignore errors here for now
            when any do begin end
          end
        for SELECT RDB$PROCEDURE_NAME from RDB$PROCEDURES into :s  do
          begin
            in autonomous transaction do
            execute statement 'drop procedure ' || s;
             -- Ignore errors here for now
            when any do begin end
          end

        for select RDB$TRIGGER_NAME from RDB$TRIGGERS  where RDB$SYSTEM_FLAG=0 into :s  do
          begin
           in autonomous transaction do
            execute statement 'drop trigger ' || s;
            -- Ignore errors here for now
            when any do begin end
          end
        for select RDB$FUNCTION_NAME from RDB$FUNCTIONS into :s  do
          begin
             in autonomous transaction do
             execute statement 'drop function ' || s;
              -- Ignore errors here for now
             when any do begin end
          end
        for select rdb$constraint_name,rdb$relation_name from RDB$RELATION_CONSTRAINTS  where not rdb$relation_name containing ('$') into :s,:s1  do
          begin
             in autonomous transaction do
             execute statement 'alter table ' || s1 || ' drop constraint ' || s;
              -- Ignore errors here for now
             when any do begin end
          end
        for select rdb$index_name from rdb$indices where rdb$system_flag=0 into :s  do
          begin
             in autonomous transaction do
             execute statement 'drop index ' || s;
              -- Ignore errors here for now
             when any do begin end
          end
       x = 0;
       SELECT count(*) from RDB$PROCEDURES into :z;
       x = x + z;
       SELECT count(distinct RDB$VIEW_NAME) from RDB$VIEW_RELATIONS into :z;
       x = x + z;
       select count(*) from RDB$TRIGGERS  where RDB$SYSTEM_FLAG=0 into :z;
       x = x + z;
       select count(*) from RDB$FUNCTIONS into :z;
       x = x + z;
       select count(*) from RDB$RELATION_CONSTRAINTS  where not rdb$relation_name containing ('$') into :z;
       x = x + z;
       select count(*) from rdb$indices where rdb$system_flag=0 into :z;
       x = x + z;
     end
     if (x>0) then
          -- Raise an exception showing that the block failed
          y=x/0;
 end

更新：我添加了代码以删除所有约束和索引。

更新 2：保留“非空”约束可能是一个好主意，因为它们只能通过域重新创建。为此，只需将约束的 select 语句更改为：

 for select rdb$constraint_name,rdb$relation_name from RDB$RELATION_CONSTRAINTS
           where rdb$constraint_type<>'NOT NULL' and not rdb$relation_name containing ('$') into :s,:s1  do
于 2016-09-21T12:43:34.493 回答