Perl 通过 ODBC 连接数据库并创建表

下面是编程之家 jb51.cc 通过网络收集整理的代码片段。

编程之家小编现在分享给大家，也给大家做个参考。

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

以上是编程之家(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。