PerlでMicrosoft Accessのデータを作成&出力

| コメント(0)

ちょっと探してしまったので、ここにメモります。

use strict;
use warnings;

use utf8;

use Encode;
use Win32::OLE;
use DBI;

# BEGIN variable
my $FN = 'sample.mdb';
# END variable

if (-e $FN) {
    unlink -e $FN or die;
}

my $dsn = "Provider=Microsoft.Jet.OLEDB.4.0;";
$dsn   .= "Data Source=$FN;";

my $cat = Win32::OLE->new("ADOX.Catalog");
$cat->Create($dsn) or die;
$cat->Close();

my $dbh = DBI->connect("dbi:ADO:$dsn") or die $DBI::errstr;
$dbh->do(
    "Create Table song(id int, artist varchar(255), title varchar(255))"
) or die $DBI::errstr;
my $sth = $dbh->prepare("INSERT INTO song(id,artist,title) VALUES (?,?,?)");
$sth->execute(1, "The Stalin", encode('cp932', 'ロマンチスト'));
$sth->execute(2, "INU", encode('cp932', 'メシ喰うな'));

$dbh->disconnect;

おしまい
DBIx::Class::Loader::ADOなんてのもありますな(・∀・)

コメントする