You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
542 B
Raku
17 lines
542 B
Raku
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(); |