Creating a Database Table : ODBC « Win32 « Perl

1. Perl
2. Win32
3. ODBC

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

   
    
    
  

Related examples in the same category