I used the following to extract executable files from a MS-SQL server.
Most likely will be able to do something similar with Access.
use strict;
use DBI;
my $dbh = DBI->connect("dbi:ODBC:SOMEDSN", 'someuser', 'somepassword')
or die "Error Connecting to DB\n";
$dbh-> {'LongTruncOk'} = 1;
$dbh-> {'LongReadLen'} = 10000000;
my $sth = $dbh->prepare("Select filename, binary from sometable");
$sth->execute();
while (my ($filename, $binary) = $sth->fetchrow_array()) {
open (FILE, ">$filename.exe");
binmode FILE;
syswrite FILE, $binary;
close(FILE);
}
On 7/1/05, Steve Gross <[EMAIL PROTECTED]> wrote:
> Is there a resource for using Perl to save and extract images from a
> Microsoft Access database? I've looked in CPAN but I don't see anything.
>
>
> ______________________________________________________________
> Steve Gross Tel:
> 212-284-6558
> Director of Information Technology Cell: 917-575-4028
> JESNA Fax:
> 212-284-6951
> www.jesna.org
>
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
