#!/usr/bin/perl
# 12/07/07 Stephan Becker
# test print fuer access datenbank

use strict;
use warnings;
use DBI;

my $mdb_file = "C:\090.1000.ATX_ATEX-RSM\Endmontage\Endmontage ATEX-RSM.mdb";
print " \n ";
my $connection_string = q{;Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:System database=C:\WINNT\system\system.mdw};
print "--- $connection_string ---";
print " \n ";
my $cn = DBI->connect("dbi:ADO:Data Source=".$mdb_file.$connection_string, "");
print "--- $cn ---";
print " \n ";
my $alles = $cn->selectall_arrayref("");

foreach my $row ( @{$alles} )
        {
                print join (";", @{$row}), "\n";
        }