ODBC连接数据库并创建表代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】 ODBC连接数据库并创建表

作者:汶纡 / 发布于2014/11/18/ 688


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

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　ODBC　　连接数据库　　创建表　

同语言下

可能有用的

汶纡贡献的其它代码(55)