Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

RE: Re: Can I talk to an MS Access DB using Perl?

by athomason (Curate)
on May 22, 2000 at 12:49 UTC ( #14173=note: print w/replies, xml ) Need Help??

in reply to Re: Can I talk to an MS Access DB using Perl?
in thread Can I talk to an MS Access DB using Perl?

No disrespect intended, but here's a cleaner version (same code as above, but within code tags).
use strict; use DBI; $| =1; my @sites; #This below can be changed to 'dbi:ODBC:<name>' #provided you have DBI::ODBC installed #I'm testing both, and have both installed #They "feel" fairly interchangable my $dbh = DBI->connect('dbi:ADO:Name', undef, undef, {PrintError => 1, + RaiseError => 1}); #The two lines below are for use with DBI::ODBC #with BLOB, aka MEMO fields with large amounts of data. #Look in the docs for the modules for more on them #$dbh->{LongReadLen} = 65534; #$dbh->{LongTruncOk} = 1; my $sth = $dbh->prepare('SELECT * FROM tbldata'); $sth->execute; #dump_results is very good for testing, #and even for simple apps -- you don't need to #loop the results, just print out $results #my $results = DBI::dump_results($sth); #One of the nice things about DBI is the wide #variety in gives you in retrieving data while (my $results = $sth->fetchrow_hashref) { push @sites, $results; } ==================================================== Now for the Win32::ODBC version -- less commentary, as it's a little l +ess flexiable, but more obvious (IMHO): use Win32::ODBC; my @rows; my $DSN = "Name"; if (!($db = new Win32::ODBC($DSN))){ print "error connecting to $DSN\n"; print "error: " . Win32::ODBC::Error() . "\n"; exit; } die qq(SQL failed: ), $db->Error(), qq(\n) if ($db->Sql("SELECT * FROM + tbldata")); while ($db->FetchRow()) { my %data = $db->DataHash(); push @rows, {%data}; }

Replies are listed 'Best First'.
Re: RE: Re: Can I talk to an MS Access DB using Perl?
by Anonymous Monk on Jul 17, 2001 at 21:44 UTC
    I use the above code but the results prined from like HASH(01b2b69c)..... & so on...instead of the the fields in the table....can u tell whts going wrong.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://14173]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (9)
As of 2017-05-30 13:46 GMT
Find Nodes?
    Voting Booth?