методы, подобные opencurrentdatabase в perl

Question

Я новичок в perl. Я попросил выполнить макрос в базе данных доступа ms, используя perl. Это код, который я использовал

$oAccess = Win32::OLE->GetActiveObject('Access.Application'); 
$oAccess ->OpenCurrentDatabase($path); 
$oAccess ->{DoCmd}->RunMacro("DO ALL"); 

Сегодня, когда я выполнял программу я обнаружил, что только если доступ к базе данных открыт код отлично работает иначе он возвращает следующую ошибку

Can't call method "OpenCurrentDatabase" on an undefined value at auto.pl line 30 

Так что я был интересно, могу ли я найти какой-либо другой код, который будет служить цели без открытой базы данных доступа ms.

Answer 1

my $MSAccess; 
eval {$MSAccess = Win32::OLE->GetActiveObject('Access.Application')}; 
die "Access not installed" if $@; 
unless (defined $MSAccess) { 
    $MSAccess = Win32::OLE->new('Access.Application','Quit') 
    or die "Unable to start Access"; 
} 
$MSAccess->{visible} = 0;