|
use Win32::ODBC;
$DSN = "Email Contacts";
my $myDb = Win32::ODBC->new($DSN);
if (! $myDb){
print "Failed to Connect $DSN\n";
Win32::ODBC::DumpError();
die;
}
$SQLStatment = qq|Create Table emailContacts(address char(40) NOT NULL,
lastName char(20),
firstName char(10),
MI char (2))|;
if ($myDb->Sql($SQLStatment)){
print "Error creating the initial Table\n";
Win32::ODBC->DumpError();
}
$myDb->Close();
|