Catalyst + MS Access (2)
MyApp::Model::CDBIを下記のように書くことで、一応CDBI経由でアクセスできた。
Class::DBI::Loader::ODBCなんてのがあれば、columnsをいちいち手書きしなくてもいいんだろうなあと思いつつ、まあ、ほらThere is more than one way to do it.ということで(ぇー
use strict; package CatalystAccess::Model::CDBI::Namelist; use base 'Class::DBI'; __PACKAGE__->connection('dbi:ODBC:driver=Microsoft Access Driver (*.mdb);dbq=cat.mdb'); __PACKAGE__->table('namelist'); __PACKAGE__->columns(All => qw/id name/); package CatalystAccess::Model::CDBI::Itemlist; use base 'Class::DBI'; __PACKAGE__->connection('dbi:ODBC:driver=Microsoft Access Driver (*.mdb);dbq=cat.mdb'); __PACKAGE__->table('itemlist'); __PACKAGE__->columns(All => qw/id item/); =head1 NAME CatalystAccess::Model::CDBI - CDBI Model Component =head1 SYNOPSIS See L<CatalystAccess> =head1 DESCRIPTION CDBI Model Component. =head1 AUTHOR A clever guy =head1 LICENSE This library is free software . You can redistribute it and/or modify it under the same terms as perl itself. =cut 1;