Perl使用Access数据库

wanmin444

先是安装模块 DBI, DBD::ODBC 。这和Win32::ODBC不同，应该说没有DBI::DBD的组合好。
    首先，Win32::ODBC需要你单独学习它的接口，而DBI是一个顶层的模块，学会了DBI，写出来的程序不光Access（还有Windows的其他），连MySQL,Sybase,Oracle...都适用，而你所作的修改只是connect的参数变一变。
    再者，DBD::ODBC不光可以在Windows里使用，linux, unix都可以用，你有试过Linux里读取Acccess数据库吗？DBD::ODBC就可以。

    说说安装，简单起见，默认大家装的都是ActivePerl,在模块下载里DBI.zip和DBD-ODBC.zip。参照说明ppm install xxx.ppd就可以了。
   
    也可以在线安装，
   在命令行窗口模式下：
     c:>ppm
     PPM interactive shell (2.1.5) - type 'help' for available commands.
     ppm>install DBI
     ppm>install DBD-ODBC
     ppm>quit
   
---------

再来准备Access数据库，用Access随便做一个数据库。
例如数据库在c:\temp\try.dbm，里面有一个表：table1，里面三个字段，几条记录，都无所谓。

---------

写个Perl程序调用，我只保留了最关键的，至于什么HTTP头，自己理解。

use DBI;
use strict;

# 下面的四行是测试环境的，可以看到已经安装的驱动
#my @driver_names = DBI->available_drivers;
#print "@driver_names\n","\n";
#my @data_sources = DBI->data_sources("ODBC");
#print "@data_sources\n","\n";

# 开始连接
my $DSN = "driver=Microsoft Access Driver (*.mdb);dbq=C:\\temp\\try.mdb";
my $dbh = DBI->connect("dbi:ODBC:$DSN",'','')
or die "Can't connect to Database: $DBI::errstr";

# 读取记录
my $sth = $dbh->prepare( q{
          SELECT * FROM table1
}) or die "Can't prepare statement: $DBI::errstr";
my $rc = $sth->execute
or die "Can't execute statement: $DBI::errstr";

# 显示出前三列
print "Query will return $sth->{NUM_OF_FIELDS} fields.\n\n";
print "Field names: @{ $sth->{NAME} }\n";
my  $ary_ref;
while ( $ary_ref = $sth->fetchrow_arrayref) {
print "$ary_ref->[0] : $ary_ref->[1] : $ary_ref->[2]\n";
}

# 关闭连接
die $sth->errstr if $sth->err;
$dbh->disconnect;

    请先在Dos窗口中运行，这样有什么错都看得清清楚楚的。
    对了，还要注意一点，运行Perl程序的时候，要把Access里的数据库关掉，要不会连接失败的。

---------

备注：MySQL的安装：

c:>ppm
PPM interactive shell (2.1.5) - type 'help' for available commands.
ppm>install DBI
ppm>install DBD-MySQL
ppm>quit

转载出处：http://blog.csdn.net/benben7466/archive/2006/09/14/1223381.aspx