----- Original Message -----
From: "Timothy Johnson" <[EMAIL PROTECTED]>
To: "Mike Blezien" <[EMAIL PROTECTED]>; "Peter Hoose" <[EMAIL PROTECTED]>;
"Perl List" <beginners@perl.org>
Sent: Wednesday, August 09, 2006 11:14 AM
Subject: RE: Access MDF files
Have you taken a look at the DBI documentation?
my $sth = $dbh->prepare('SELECT * FROM Table');
$sth->execute();
while(my $row = $sth->fetchrow_hashref()){
my $name = $row->{NAME};
}
-----Original Message-----
From: Mike Blezien [mailto:[EMAIL PROTECTED]
Sent: Wednesday, August 09, 2006 9:09 AM
To: Peter Hoose; Perl List
Subject: Re: Access MDF files
Thx's Peter.
Is there a way or simple means of just extracting the data from the mdb
files so
we can import it into a MySQL database, something like a dump file or
similar ?
Mike
----- Original Message -----
From: "Mike Blezien" <[EMAIL PROTECTED]>
To: "Perl List" <beginners@perl.org>
Sent: Wednesday, August 09, 2006 11:20 AM
Subject: Access MDF files
Hello,
is there a Perl module available to obtain data from Access .mdf
files ?
thx's
Mike(mickalo)Blezien
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
DBI and DBD::ODBC
Here's a sample connection script:
==================================
#!/usr/bin/perl
use DBI;
use DBD::ODBC;
use strict;
use warnings;
my $dsn = "test.mdb";
my $dbh = DBI->connect("dbi:ODBC:driver=microsoft access driver
(*.mdb);dbq="
. $dsn) or die "Can't connect to database: $dsn: $DBI::errstr\n";
if ($dbh) {
print "Connected to: $dsn\n";
$dbh->disconnect;
exit;
}
==================================
You can also use "ODBC Data Source Administrator" to setup System
DSN's as
another way to connect, instead of directly to the file, like the
above
example.
There's a number of tutorials on this subject that you can find by
googling
"perl access tutorial" or "perl odbc access", etc...
Hope this helps,
Peter
Very fimilar with DBI... wasn't sure it worked the same way when working with
.mdb data
Mike
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
