カオスとフラクタル: Perl から ODBC経由でAccessデータベースへ接続

2012年10月4日木曜日

以下はPerl から ODBC経由でAccessデータベースへ接続するサンプルです。（Windows上で動作）あらかじめODBCの登録を行っておく必要があります。以下のサンプルでは、DSN="passwd"　としています。

	#!/usr/local/bin/perl

	use Win32::ODBC;

	print "Content-type: text/html\n\n";
	print "<html>";
	print "<body>";

	$db= new Win32::ODBC("DSN=passwd");

	$db->Sql("SELECT * FROM password");

	# 取得したレコードセットの数だけループして表示
	while ( $db->FetchRow() ){
	undef %FIELDS;
	# 各フィールドのデータをハッシュに格納
	%FIELDS= $db->DataHash();
	print "$FIELDS{'password'} $FIELDS{'keyword'}<BR>\n";
	}

	# データベースを閉じる
	$db->Close( );
	print "</body></html>";
	exit;

view raw Acce.pl hosted with ❤ by GitHub

カオスとフラクタル