【搞定】[请求]判断是否存在问题**

sydneyyue

在对数据库进行操作时,如何判断，数据库中是否存在某个表，以及表中是否存在某个字段？

jiahaiminghr

请尝试使用TConnection.Meta属性。

NameSpace: Business.Data
--------------------------------------------------------------------------------
TMetaData = class(Business.System.TObject)
public
  constructor create(AConnection: TConnection);
  function BatchMoveTable(TargetConnectionString: string; SourceTable: string; DestTable: string; AMode: Longint; MaxError: Longint): string;
  function GetConstraintName(APrimaryKeyName: string): string;
  function GetFieldList(ATableName: string): array of TFieldRec; //字段
  function GetFullTableName(ATableName: string): string;
  function GetIndexList(ATableName: string): array of TIndexRec;
  function GetPrimaryKey(ATableName: string): TIndexRec;
  procedure GetProcedureNames(List: Business.System.TStrings);
  function GetRefInts(ATableName: string; AKinds: TRefIntKinds): array of TRefIntRec;
  procedure GetTableNames(List: Business.System.TStrings; SystemTables: Boolean);
  function TableExists(ATableName: string): Boolean; //判断表是否存在
  property Connection: TConnection; readonly;
  property DataProvider: string; readonly;
  property DBVersion: TDBVersion; readonly;
end;

jiahaiminghr

楼主，还有问题吗？
没有就结贴了！

sydneyyue

问题解决了，谢谢！