使用 Delphi XE3 如何在 MS Access 中获取表列表并排除视图/查询？

Question

使用 Delphi XE3 如何在 MS Access 中获取 Table 的列表并排除视图/查询？

我试过使用 ADOConnection1.GetTableNames - 但它 returns 所有 Table 和视图（查询）。

我也尝试过使用查询，例如。 "SELECT * FROM MSysObjects WHERE Type=1 AND Flags=0" 需要 System.mdw 文件，但是这会导致更多问题，因为 mdw 文件并不总是存在。

我想开发一个应用程序来比较两个 mdb 文件的 Table 结构，并创建一个脚本来修改/同步数据库中的 table 结构。

非常感谢任何帮助。

Answer 1

您可以使用 OpenSchema 方法传递 siTables 值。然后使用返回数据集的 TABLE_TYPE 列过滤结果。

试试这个示例代码

{$APPTYPE CONSOLE}

{$R *.res}

uses
  SysUtils,
  ActiveX,
  ComObj,
  Adodb,
  Variants;


procedure ListTables(const FileName : string);
var
  LADOConnection : TADOConnection;
  LADODataSet: TADODataSet;

begin
  LADOConnection := TADOConnection.Create(nil);
  try
    LADOConnection.ConnectionString := Format('Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Persist Security Info=False;', [FileName]);
    LADODataSet := TADODataSet.Create(nil);
    try
     LADODataSet.Connection := LADOConnection;
     LADOConnection.OpenSchema(siTables, EmptyParam, EmptyParam, LADODataSet);

     LADODataSet.Filter   := '(TABLE_TYPE = ''TABLE'')'; //show only the tables
     LADODataSet.Filtered := True;

     while not LADODataSet.EOF do
     begin
      Writeln(Format('Name %s Type %s',[LADODataSet.FieldByName('TABLE_NAME').AsString, LADODataSet.FieldByName('TABLE_TYPE').AsString]));

      LADODataSet.Next;
     end;

    finally
     LADODataSet.Free;
    end;
  finally
    LADOConnection.Free;
  end;
end;

begin
 try
    CoInitialize(nil);
    try
       ListTables('C:\Test\Northwind.MDB');
    finally
      CoUninitialize;
    end;
 except
    on E:EOleException do
        Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode]));
    on E:Exception do
        Writeln(E.Classname, ':', E.Message);
 end;
 Writeln('Press Enter to exit');
 Readln;
end.

使用 Delphi XE3 如何在 MS Access 中获取表列表并排除视图/查询？

Using Delphi XE3 How Do I get a List Of Tables in MS Access AND Exclude Views / Queries?

sql

delphi

ms-access

ado