首页 >热菜

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

2019-10-09 18:04:28 | 来源: 热菜

16:43 来源:赛迪 :Googler【纠错】人评论

A-A+ 怎么开淘宝店 站优化方法 创业如何获得投资 小米note顶配版评测 最新LOL活动

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

答:首先需要安装Win32-ODBC模块,具体的步骤如下:

1:从TOOLS栏目中下载p下载完后用winzip解开到一个temp目录共有三个文件:

以下为引用的内容:Readme d 2:在DOS窗口下,temp目录中运行下面的DOS命令:ppm install d。

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

1:启动MS ACCESS建立一个新空数据库,命名为b保存在某一目录中(记住路径)。

2:然后新建一个表,建立三个字段:

以下为引用的内容:Nighthawk nighthawk@163 20 John jt@163 24 kit kit@21 18

字段名称 数据类型 长度Name 字符, 长度50 Email 字符, 长度50 Age 数字、长整型将这个表保存为address(注意这个例子中,没有用自动增加的ID。输入若干记录:保存后,关闭数据库文件。

3:打开控制面板中的 ODBC数据源(32位),在用户DSN栏中,找到用户数据源列表选中名称为MS Access 97 Database的一行,然后按配置键。

在Database框中按Select..,选择步骤1.2中建立的数据库文件b按OK即可。ODBC设置中的其它项目全部采用缺省设置,然后就是OK确定,关闭对话窗口。

最后进行测试:

以下为引用的内容: #!/usr/bin/perl

use Win32::ODBC;

$DSN = MS Access 97 Database; $DBase = b;

#连接数据库

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' 'euler@21' 28 ''); #更新记录 $sqlupdate = UPDATE address SET age = age+10 ; #删除记录 $sqldelete = DELETE FROM address WHERE name='jimtyan';

$rc = $db-Sql($sqlinsert); die (SQL 失败 $sqlinsert: ) $db-Error() (n) if $rc;

$rc = $db-Sql($sqlupdate); die (SQL 失败 $sqlupdate: ) $db-Error() (n) if $rc;

$rc = $db-Sql($sqldelete); die (SQL 失败 $sqldelete: ) $db-Error() (n) if $rc;

#关闭链接 $db-Close();

查看更多相似文章

松原好的男科医院
白城好的白癜风医院
荆门治疗睾丸炎医院
松原哪家医院治疗男科
白城哪家医院治疗白癜风

猜你喜欢