delphi - 如何测试Interbase中是否存在表？

Question

我刚开始使用Interbase，我需要验证数据库中是否有表，如何在Interbase中检查数据库中是否存在表？

Answer 1

对于IBX，至少有以下几种不负责任的方式：

1.使用SQL查询

您可以查询RDB$RELATIONS系统表，并在其中按RDB$RELATION_NAME列进行过滤。例如，当数据库中存在名为1的表时，此查询将返回MyTable：

SELECT 1 FROM RDB$RELATIONS
  WHERE RDB$RELATION_NAME = 'MyTable'

使用客户端上的IBX，您可以编写以下示例：

function TableExists(Database: TIBDatabase; const TableName: string): Boolean;
var
  Query: TIBSQL;
begin
  Query := TIBSQL.Create(Database);
  try
    Query.SQL.Text := 'SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = ?';
    Query.Params[0].AsString := TableName;
    Query.ExecQuery;
    { RecordCount reports only visited records, so it should be either 0 or 1 now }
    Result := Query.RecordCount > 0;
  finally
    Query.Free;
  end;
end;

这个版本区分大小写，并且在您需要仅从代码确定表是否存在时非常有效（为了频繁检查，我将缓存 GetTableNames方法返回的所有表名的列表，并仅查询该列表）。

2.使用TIBDatabase.GetTableNames方法

TIBDatabase类能够通过 GetTableNames方法列出所有表名。然后，可以在返回的字符串列表集合中通过 IndexOf方法验证名称是否存在。例如：

function TableExists(Database: TIBDatabase; const TableName: string): Boolean;
var
  Tables: TStrings;
begin
  Tables := TStringList.Create;
  try
    Database.GetTableNames(Tables, True);
    Result := Tables.IndexOf(TableName) <> -1;
  finally
    Tables.Free;
  end;
end;

此版本不区分大小写（只要您不更改返回集合的 CaseSensitive属性的默认值），并且自然不如单次使用或临时使用的第一种方法有效，因为此方法可获取整个表名从服务器到客户端的集合。但是，如果您缓存返回的集合， GetTableNames方法本身对于频繁使用将很有用。

3.使用TIBExtract类

TIBExtract IBX类用于获取元数据。不幸的是，仅检查数据库中是否存在某些表并不是那么有效和容易，因为它可以获取所有表的列表或表本身的详细信息。因此，我将此示例保留为示例。