如何使用 DBI 在 Perl 中列出 Jet 数据库的表名？

Question

是否有一种可移植的方法来列出 *.mdb 文件中的表名称 （即 Microsoft Jet 数据库，也称为“Access 数据库”）在 Perl 中？

通常我使用 Cygwin 在 Windows 上运行 Perl 脚本。

我可以使用 DBD::ODBC 模块在 *.mdb 数据库上运行 SQL 查询，但它没有实现 DBI 的 table_info 函数，这正是我所需要的。可能可以使用 DBD::ADO 和/或 Win32::OLE 模块来代替，但它们拒绝在 Cygwin 下安装，我更喜欢有一个便携式解决方案 - 理想情况下甚至可以在 Linux 上运行。

DBIx::Class::Schema::Loader 模块可用于执行此操作，并且我了解它正在升级，因此它实际上可以在 *.mdb 文件上运行，但它有一个巨大的依赖项列表，我真的不想在任何运行脚本的地方安装这些依赖项，只是为了获得这个单一的功能。

您是否曾经编写过在 *.mdb 文件中列出表名称的 Perl 代码？ 您使用了哪种技术？为什么？

Answer 1

DBD::ODBC 不支持 table_info 的谣言从何而来 - 这是我一周内第三次看到它：

perl -le 'use DBI; my $h = DBI->connect("dbi:ODBC:access_sample"); my $t = $h->table_info(undef, undef, undef, "TABLE");print DBI::dump_results($t);'

'/home/martin/test.mdb', undef, 'A', 'TABLE', undef
'/home/martin/test.mdb', undef, 'MSysNavPaneGroupCategories', 'TABLE', undef
'/home/martin/test.mdb', undef, 'MSysNavPaneGroupToObjects', 'TABLE', undef
'/home/martin/test.mdb', undef, 'MSysNavPaneGroups', 'TABLE', undef
'/home/martin/test.mdb', undef, 'MSysNavPaneObjectIDs', 'TABLE', undef
'/home/martin/test.mdb', undef, 'PERL_DBD_TABLE1', 'TABLE', undef
'/home/martin/test.mdb', undef, 'PERL_DBD_TEST', 'TABLE', undef
'/home/martin/test.mdb', undef, 'TestTable', 'TABLE', undef
'/home/martin/test.mdb', undef, 'X', 'TABLE', undef
'/home/martin/test.mdb', undef, 'unicode', 'TABLE', undef
10 rows

Answer 2

如果您不想要整个内容，则只需从 DBIx::Class::Schema::Loader::DBI::ADO::MS_Jet。