下面是编程之家 jb51.cc 通过网络收集整理的代码片段。
编程之家小编现在分享给大家,也给大家做个参考。
use Cwd; use Win32::ODBC; $DriverType = "Microsoft Access Driver (*.mdb)"; $DSN = "Email Contacts"; $Description = "Description=Email List and Contact Information"; $DataBase = "EmailContacts.mdb"; $dir = cwd(); if (Win32::ODBC::ConfigDSN(ODBC_ADD_DSN,$DriverType,("DSN=$DSN",$Description,"DBQ=$dir\\$DataBase","DEFAULTDIR=$dir","UID=","PWD="))){ print "Successful configuration of $DSN!\n"; } else{ print "Error Creating $DSN\n"; Win32::ODBC::DumpError(); die; } my $myDb = Win32::ODBC->new($DSN); my $connection; if (! $myDb){ print "Failed to Connect $DSN\n"; Win32::ODBC::DumpError(); die; }else { $connection = $myDb->Connection(); print "Successful Connection $connection,$DSN\n"; } $myDb->Close();
以上是编程之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。