如何使用 Perl 连接到 MS Access 数据库？

Question

我的本地计算机上有一个 .accdb 文件，我正在尝试连接到它并从数据库中的 3 个表中读取一些数据。如何使用 Perl 建立连接？

到目前为止，我已经为 MS Access 收集了这么多内容，但我收到错误消息，说我没有使用正确的驱动程序。有什么想法吗？

my $msaccess_dbh = DBI->connect(
    'dbi:ODBC:driver=microsoft access driver (*.accdb);' .
    'dbq=C:\path\to\database\databasefile.accdb'
);

谢谢！

编辑：只是为了澄清，我在这里没有真正的要求。我只需要从这个 MS Access DB 中进行 2 或 3 个选择，然后我就完成了。因此，任何有关连接和选择的帮助都会很棒。再次感谢。

Answer 1

根据您的连接字符串，您似乎 (a) 在 Win32 上并且 (b) 连接到本地计算机上的数据库。如果我是正确的，当您可以直接与 Jet 连接时，为什么还要麻烦使用 ODBC？参考如下：

#!/usr/bin/perl
use strict;use warnings;

use Win32::OLE;

my $DBFile  = qw( X:\Path\To\Your\Database.mdb ); # 
#Choose appropriate version of Jet for your system
my $Jet = Win32::OLE->CreateObject('DAO.DBEngine.36')   or die "Can't create Jet database engine.";
my  $DB = $Jet->OpenDatabase( $DBFile );

my $SQLquery = "DELETE * FROM Test_Table";
$DB->Execute($SQLquery, 128); #128=DBFailOnError

Answer 2

我猜驱动程序与您的 DSN 驱动程序不匹配，或者导致问题的另一件事是，如果您将 64 位 Perl 与 32 位 ODBC 驱动程序混合使用，或者将 32 位 Perl 与 64 位混合使用，位驱动程序。真正的问题是错误消息，它非常模糊 - 你认为也许他们可以告诉你数据源还是驱动程序是问题所在？在完美的世界中...

无论如何，如果您的 DSN 正确，那么您尝试的方法确实有效，并且您的 DSN 正确。如果你的 Perl 和ODBC 驱动程序属于同一位系列。

DSN 中的驱动程序参考必须与管理工具 > 下列出的内容完全匹配。 数据源（ODBC） > 驱动程序选项卡。我的被​​列为Microsoft Access 驱动程序（.mdb、.accdb），因此与您的略有不同。在 Perl 中，要连接的行是：

my $dbh = DBI->connect('dbi:ODBC:driver=Microsoft Access Driver (*.mdb, *.accdb);dbq=X:\Path\To\Your\Database.mdb')

有关 Windows 7 上使用 Perl 的 MS Access 位于此处。

Answer 3

您需要连接字符串

Answer 4

我过去曾成功使用过该格式的连接字符串，但那是针对旧的 *.mdb 格式。您的 ODBC 驱动程序可能不支持 Access 2007 中较新的 *.accdb 格式。