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

【问题标题】：How do you list the table names of a Jet database in Perl with DBI?如何使用 DBI 在 Perl 中列出 Jet 数据库的表名？
【发布时间】：2011-03-07 09:22:18
【问题描述】：

是否有一种可移植的方式来列出*.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 代码？您使用了哪种技术，为什么？

【问题讨论】：

标签： perl odbc dbi jet

【解决方案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

【讨论】：

好吧，就我而言，我得到了错误：DBD::ODBC::db table_info failed: [Microsoft][ODBC Microsoft Access Driver]Optional feature not implemented (SQL-HYC00) at (...) ...但我没有提供 undef 作为前三个参数。我将错误信息误解为不支持整个 table_info 函数。

【解决方案2】：

如果您不想要整个东西，那么只需从 DBIx::Class::Schema::Loader::DBI::ADO::MS_Jet 获取必要的部分。

【讨论】：