Mega Code Archive

 

Categories / Perl / Win32

 

Creating a Database Table

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();