in reply to exporting MS ACCESS tables into a CSV file
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;
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
|
---|