Perl 创建一个新的 ODBC 数据源
发布时间:2020-12-15 21:08:38 所属栏目:大数据 来源:网络整理
导读:今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 use Cwd; use Win32::ODBC; $DriverType = "Microsoft Access Driver (*.mdb)"; $DSN = "Email Contacts"; $Description = "Description=Email List a
以下代码由PHP站长网 52php.cn收集自互联网 现在PHP站长网小编把它分享给大家,仅供参考 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 $DSNn"; Win32::ODBC::DumpError(); die; } my $myDb = Win32::ODBC->new($DSN); my $connection; if (! $myDb){ print "Failed to Connect $DSNn"; Win32::ODBC::DumpError(); die; }else { $connection = $myDb->Connection(); print "Successful Connection $connection,$DSNn"; } $myDb->Close(); 以上内容由PHP站长网【52php.cn】收集整理供大家参考研究 如果以上内容对您有帮助,欢迎收藏、点赞、推荐、分享。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |