Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: exporting MS ACCESS tables into a CSV file

by davidrw (Prior)
on Jul 11, 2005 at 19:52 UTC ( #474073=note: print w/replies, xml ) Need Help??

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
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://474073]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2023-02-03 13:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (26 votes). Check out past polls.

    Notices?