Perl下应当如何连接Access数据库

2024-07-21 02:13:55

字体：大中小

来源：转载

供稿：网友

本文来源于网页设计爱好者web开发社区http://www.html.org.cn收集整理，欢迎访问。

首先需要安装win32-odbc模块，具体的步骤如下：

1：从tools栏目中下载win32-odbc.zip,下载完后用winzip解开到一个temp目录,共有三个文件：

readme

win32-odbc.ppd

win32-odbc.tar.gz

2：在dos窗口下，temp目录中运行下面的dos命令：ppm install win32-odbc.ppd。

然后准备测试用数据库(access)

1：启动ms access,建立一个新空数据库，命名为odbctest.mdb,保存在某一目录中(记住路径)。

2：然后新建一个表，建立三个字段：

字段名称数据类型长度

name 字符，长度50

email 字符，长度50

age 数字、长整型

将这个表保存为address(注意这个例子中，没有用自动增加的id。输入若干记录：

以下为引用的内容：

　　nighthawk [email protected] 20 1234567

　　john [email protected] 24 0284393293

　　kit [email protected] 18 3948932

保存后，关闭数据库文件。

3：打开控制面板中的 odbc数据源(32位)，在用户dsn栏中，找到用户数据源列表,选中名称为“ms access 97 database”的一行，然后按“配置”键。

在database框中按“select..”，选择步骤1.2中建立的数据库文件odbctest.mdb,按ok即可。odbc设置中的其它项目全部采用缺省设置，然后就是ok,确定，关闭对话窗口。

最后进行测试：

以下为引用的内容：
　　#!/usr/bin/perl
　　use win32::odbc;
　　$dsn = "ms access 97 database";
　　$dbase = "access.mdb";
　　#连接数据库
　　if (!($db = new win32::odbc($dsn))){
　　print "连接数据库失败.n";
　　exit();
　　}
　　else{
　　print "连接数据库成功 (连接号：", $db->connection(), ")nn";
　　}
　　#数据库中的表
　　print "数据库中的表：";
　　@tables = $db->tablelist;
　　print @tables;
　　print "n";
　　#选择数据表
　　if (! $db->sql("select * from [address] where age>=20") ){
　　@fieldnames = $db->fieldnames();
　　$cols = $#fieldnames + 1;
　　#表中字段数
　　print "表address字段数:$colsn";
　　#字段列表
　　for ($i = 0; $i < $cols; $i++){
　　print "$fieldnames[$i]t";
　　}
　　print "n";
　　#列出年龄大于20的记录
　　while($db->fetchrow()) {
　　@values = $db->data();
　　print @values;
　　print "n";
　　}
　　}
　　##### sql #########
　　#添加记录
　　$sqlinsert = "insert into address
　　values ('euler', '[email protected]', 28, '021-345689')";
　　#更新记录
　　$sqlupdate = "update address set age = age+10 ";
　　#删除记录
　　$sqldelete = "delete from address where name='jimtyan'";
　　$rc = $db->sql($sqlinsert);
　　die qq(sql 失败 "$sqlinsert": ), $db->error(), qq(n) if $rc;
　　$rc = $db->sql($sqlupdate);
　　die qq(sql 失败 "$sqlupdate": ), $db->error(), qq(n) if $rc;
　　$rc = $db->sql($sqldelete);
　　die qq(sql 失败 "$sqldelete": ), $db->error(), qq(n) if $rc;
　　#关闭链接
　　$db->close();

上一篇：Perl下应当如何连接Access数据库

下一篇：在datagrid中的HyperLinkColumn上达到谈出一个窗口的效果