推荐：教你如何在Perl下连接Access数据库

1.安装Win32-ODBC模块

步骤1:
从TOOLS列下载Win32-ODBC.zip，然后使用winzip将其解锁到一个临时目录。有三个文件:
README
Win32-odbc . PPD
Win32-ODBC.tar.gz
第二步:
在DOS窗口中，在temp目录下运行下面的DOS命令:ppm install Win32-ODBC.ppd

2.准备数据库进行测试(访问)

第一步:
启动MS ACCESS，新建空数据库，命名为odbctest.mdb，保存在一个目录下(记住路径)。

第二步:
然后创建一个包含三个字段的新表:
字段名称数据类型长度
姓名字符、长度50
电子邮件字符、长度50
年龄号、长整数
并将此表保存为地址(注意，在此示例中，输入一些记录:
夜鹰nighthawk@163.net 20 1234567
约翰jt@163.net 24 0284393293
基特kit@21cn.com 18

第三步:
在控制面板中打开ODBC数据源(32位)。在“用户DSN”列中，找到用户数据源列表，选择名为“MS Access 97数据库”的行，然后按“配置”键。
按“选择..”在数据库框中，选择在步骤1.2中建立的数据库文件odbctest.mdb，然后按确定。ODBC设置中的所有其他项目都是默认设置，然后确定，确定并关闭对话框窗口。

三。测试:
#！/usr/bin/perl
使用Win32::ODBC；
$DSN = "MS Access 97数据库"；
$ DBase = " access . MDB "；
#如果(！($ db = new win32::odbc($ DSN)){
print "无法连接到数据库。n”；
exit()；
}
else{
print "连接数据库成功(连接号:"，$db->Connection()，")nn "；
}
#数据库中的表
打印“数据库中的表:”；
@ tables = $ db-> table list；
print @ tables；
打印“n”；
#选择数据表
if(！$ db-> Sql(" SELECT * FROM[address]WHERE age > = 20 "){
@ field names = $ db-> field names()；
$ Cols = $ # field names+1；
#表格中的字段数
打印“表格中的地址字段数:$ Colsn”；($ I = 0；的
#字段列表
；$ i < $ Cols$ i++){
print " $ field names[$ I]t "；
}
打印“n”；
#列出超过20个记录
while($ db-> fetchrow()){
@ values = $ db-> data()；
print @ values；
打印“n”；
}
}
# # # # # SQL # # # # #
# Add record
$ SQL insert = " insert into address
values(' Euler ')
# update record
$ sqlupdate = " update address set age = age+10 "；
# Delete record
$ SQL Delete = " Delete from address where name = ' Jim Tyan ' "；
$ RC = $ db--> Sql($ Sql insert)；
die qq(SQL失败" $ SQL insert ":)，$ db-> error()，QQ(n)if $ RC；
$ RC = $ db--> Sql($ sqlupdate)；
die QQ(SQL failure " $ sqlupdate ":)，$ db-> error()，QQ(n)if $ RC；
$ RC = $ db--> Sql($ Sql delete)；
die QQ(SQL failure " $ SQL delete ":)，$ db-> error()，QQ(n)if $ RC；
#关闭链接
$ db-> Close()；