use Cwd;
use Win32::ODBC;
$DriverType = "Microsoft Access Driver (*.mdb)";
$DSN = "Email Contacts";
$Description = "Description=Email List and Contact Information";
$DataBase = "EmailContacts.mdb";
$dir = cwd();
if (Win32::ODBC::ConfigDSN(ODBC_ADD_DSN,
$DriverType,
("DSN=$DSN",
$Description,
"DBQ=$dir\\$DataBase",
"DEFAULTDIR=$dir",
"UID=", "PWD="))){
print "Successful configuration of $DSN!\n";
}
else{
print "Error Creating $DSN\n";
Win32::ODBC::DumpError();
die;
}
my $myDb = Win32::ODBC->new($DSN);
my $connection;
if (! $myDb){
print "Failed to Connect $DSN\n";
Win32::ODBC::DumpError();
die;
}else {
$connection = $myDb->Connection();
print "Successful Connection $connection, $DSN\n";
}
$myDb->Close();