Help for this page

Select Code to Download


  1. or download this
    our $dbopts = { AutoCommit=>0, LongTruncOk => 1, LongReadLen => 255 };
our $dsn = GBPVR::CDBI::mdb2dsn('C:\foo.mdb');
MyPackage::CDBI->set_db('Main', "dbi:ODBC:$dsn", '', '', $dbopts );
sub mdb2dsn { my $mdb = shift; return 'driver=Microsoft Access Driver 
+(*.mdb);dbq=' . $mdb; }
1;
  2. or download this
    use DBI;
my $dbh = DBI->connect($dsn,$user,$pass,{ShowErrorStatement=>1,RaiseEr
+ror => 1, AutoCommit=>0});
my $aref = $dbh->selectall_arrayref("select * from $table",{Slice=>{}}
+); # gives ref to AoH