Perl使用Access数据库-最终版

先是安装模块 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