Question

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

我尝试过使用ADOConnection1.GetTableNames - 但它返回所有表和视图（查询）。

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

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

非常感谢任何帮助。

Answer 1

您可以使用传递 siTables 值的OpenSchema方法。然后使用返回的数据集的 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中的表列表并排除视图/查询？

1 个答案: