#!/usr/bin/perl

use strict; 
use warnings; 
use Win32::OLE::Const 'Microsoft Access'; 

my $Filename = "s:/mdbtest.mdb"; 

my $loAccess;   # Access Object
my $loDatabase;	# Database Object

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

$loDatabase = $loAccess->DBEngine->OpenDatabase($Filename);
if (Win32::OLE->LastError) {
  print "Unable to Open Access Database, LastError returned ",
        Win32::OLE->LastError, "\n";
}


##</code><code>##

#!/usr/bin/perl

use strict; 
use warnings; 
use Win32::OLE::Const 'Microsoft Access'; 

my $Filename = "s:/dev/devbatch/bruce/mdbtest.mdb"; 

#my $Access = Win32::OLE->new('Access.Application', 'Quit'); 
#my $Access = Win32::OLE->getActiveObject('Access.Application');

my $Access = Win32::OLE->GetObject($Filename);
my $Workspace = $Access->DBEngine->CreateWorkspace('', 'Admin', ''); 
$Access -> OpenCurrentDatabase($Filename);

$Access->{'Visible'}=1;

$Access->RunTest();
#$Access -> DoCmd -> RunMacro("RunTest");

##$Access -> Quit();