Win32 Perl

  1. Home
  2. Perl
  3. Win32
  4. 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();