(Perl) connect the Access mdb and display fields of the table.

gistfile1.pl

#!/usr/local/bin/perl

use Win32::OLE;

$conn = "Provider=Microsoft.Jet.OLEDB.4.0;";
$conn .= "Data Source=c:\\mdb\\addressbook_2007.mdb;";

$db = Win32::OLE->new("ADODB.Connection");
$db->Open($conn);

$rs = $db->Execute("SELECT * FROM アドレス帳テーブル;");

while (!$rs->EOF) {
  print $rs->{Fields}->{'漢字氏名'}->{Value},",";
  print $rs->{Fields}->{'カナ氏名'}->{Value},"\n";
  $rs->MoveNext;


}
$rs->Close();
$db->Close();
exit;