Подключить perl к ms доступ

Question

Я пытаюсь извлечь данные из таблицы в доступе. Код

#!/usr/bin/perl 
use strict; 
use warnings; 
use DBI; 
my $DBFile = qw(C:test\INSTRUCTIONS.mdb); 
my $dbh = DBI->connect("dbi:ODBC:driver=microsoft access driver (*.mdb);dbq=$DBFile",'','') or die("cannot connect to DB"); 
my $SQLquery = "select * FROM IndemDate"; 
$dbh->Execute($SQLquery); 

Это ошибка я Получать

DBI connect('driver=microsoft access driver (*.mdb);dbq=C:test\INSTRUCTIONS.mdb','',...) failed: [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified (SQL-IM002) at C:/Test/connectaccess.pl line 9. 
cannot connect to DB at C:/Test/connectaccess.pl line 9. 

может кто-то поможет мне исправить мою ошибку. Есть ли драйвер, который я пропустил для установки.

Answer 1

Как указано в комментариях к вопросу, сценарий Perl изначально был запущен как 64- битный процесс. Поэтому более старый Microsoft «Jet» ODBC драйвер

Microsoft Access Driver (*.mdb) 

не был доступен. Только более 32-битные процессы могут использовать старый драйвер Jet. Если вы должны запустить ваш Perl-скрипт как 64-разрядный процесс, вам придется загрузить и установить 64-разрядную версию нового Microsoft Access Database Engine (aka «ACE») с here, а затем использовать имя драйвера

Microsoft Access Driver (*.mdb, *.accdb) 

Или вы можете запустить свой Perl-скрипт как 32-разрядный процесс и использовать старый драйвер Jet.

Edit повторно: комментарий

Поскольку у вас есть 32-битный доступ 2007 вы установили уже 32-битную версию драйвера ACE на машине с. Это эффективно исключает возможность установки 64-разрядной версии ACE-драйвера, потому что 64-разрядный установщик ACE будет прерван, если обнаружит 32-разрядные компоненты Office на машине. (Существует, по-видимому способ, чтобы заставить вторую установку, но сообщается, сломать офис в некоторых обстоятельствах и, безусловно, не поддерживается.)

Так что ваши варианты могут быть пересмотрены:

1. Run Perl-скрипт как 32-разрядный процесс или

2. Удалите 32-разрядный Access 2007 и установите 64-разрядную версию Access, затем запустите скрипт Perl в качестве 64-разрядного процесса с использованием 64-разрядного ACE-драйвера ,

Answer 2

Попробуйте использовать Jet:

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

use Win32::OLE; 

my $DBFile = qw(C:\test\INSTRUCTIONS.mdb); 

# choose the appropriate versione 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 = "select * FROM IndemDate"; 
$DB->Execute($SQLquery, 128); #128=DBFailOnError 

[источник: here, также имеют вид here]

Answer 3

Для выполнения скрипта в качестве 32-разрядного процесса (в моем случае, 32-битный Strawberry Perl), следующий код работает для меня:

#!perl 
use strict; 
use warnings; 
use DBI; 
print 'bits: ' . (8 * (length pack 'P', -1)) . "\n\n"; 
my $DBFile = q(C:\Users\Public\mdbTest.mdb); 
my $dbh = DBI->connect("dbi:ODBC:Driver={Microsoft Access Driver (*.mdb)};DBQ=$DBFile",'','') or die("cannot connect to DB"); 
my $SQLquery = "SELECT * FROM Members"; 
my $sth = $dbh->prepare($SQLquery); 
my $rc = $sth->execute; 
while (my $href = $sth->fetchrow_hashref) { 
    print "memberID: " . $$href{"memberID"} . "\n"; 
    print "memberName: " . $$href{"memberName"} . "\n"; 
    print "\n"; 
}