delphi - IBX TIBDatabase.GetTableNames 不显示新创建的表

Question

如果我在 Firebird 数据库中创建一个新表，然后调用:

TIBDatabase.GetTableNames，新创建的表没有被枚举:我首先要发出:

IBDatabase1.Connected := False;
IBDatabase1.Connected := True;

然后我可以调用 TIBDatabase.GetTableNames 并枚举新创建的表。

以下函数使用 TIBDatabase.GetTableNames 来确定作为参数传递的给定表名称是否存在

function TableExists(const aTableName: String): Boolean;
var
  ListOfExistingTables: TStringList;
begin
  Result:= False;
  ListOfExistingTables:= TStringList.Create;
  try
    IBDatabase1.GetTableNames(ListOfExistingTables);
    Result:= (ListOfExistingTables.IndexOf(aTableName) > - 1);
  finally
    ListOfExistingTables.Free;
  end;
end;

Answer 1

在 Firebird 中，甚至元数据更改也在事务中隔离。因此，您必须提交用于创建表的事务。也许您还必须提交 IBX 用来读取表名的事务。