2012年12月25日火曜日

Perl でAccessデータベースに接続するサンプル(その2)

Perl でAccessデータベースに接続するサンプル(その2)

以下のサンプルでは、C:\mdb\book.mdb というAccessデータベースに接続して,book というテーブルの中の title と isbn というフィールドの値を表示しています。ADODB.Connection をnew するところと、クエリーを実行するところでエラー発生時にメッセージを表示できるように、' or die ~'の句が挿入されています。


-------------------------------------


use strict;
use Win32::OLE;
use utf8;

my $conn = "Provider=Microsoft.Jet.OLEDB.4.0;";
$conn .= "Data Source=c:\\mdb\\book.mdb;";
my $db = Win32::OLE->new("ADODB.Connection") or die "CreateObject: $!";
$db->Open($conn);

my $query = "select * from book;";
my $result = $db->Execute($query) or die join ' ', map { $db->Errors->Item($_)->Description } (0 .. $db->Errors->Count - 1);

while (!$result->EOF) {
    print $result->Fields('title')->Value . " " . $result->Fields('isbn')->Value . "\n";
    $result->MoveNext;
}

$result->Close();
$db->Close();


------------------------------------

0 件のコメント:

コメントを投稿