`
qzriso
  • 浏览: 242491 次
  • 性别: Icon_minigender_1
  • 来自: ph
社区版块
存档分类
最新评论

perl访问access数据库的例子

    博客分类:
  • perl
阅读更多

use Win32::ODBC;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft ActiveX Data Objects';

my $Conn = Win32::OLE->new('ADODB.Connection'); # creates a connection object
$cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\altigen\Project\TrunkFilter\TrunkFilter\db.mdb;Persist Security Info=False";
$Conn->Open("DSN=telbook;UID=;PWD=;DBNAME=db.mdb");# opens the database connection
 if (Win32::OLE->LastError()){
     print "Error\n";
 }

for($i = "82513113"; $i < "82600000"; $i ++)
{
 $sql = "INSERT INTO telbook(telnum, status) VALUES('$i', 'Not check')";
 my $rc = $Conn->Execute("$sql");
 if (Win32::OLE->LastError()){
     print "Error\n";
     last;
 }
}
$Conn->Close; 

 

前题是必须安装好activeperl (505以上),以及MS Access 97

一. 安装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 nighthawk@163.net 20 1234567
John jt@163.net 24 0284393293
kit kit@21cn.com 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', 'euler@21cn.com', 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();

 

分享到:
评论

相关推荐

    ASP_ACCESS_SQL_Injection_Test.rar_asp access注入_linux_sql注入_注入_注入

    ASP_ACCESS_SQL_Injection_Test 是一个针对ASP访问Access数据库时可能出现SQL注入漏洞的测试工具。SQL注入是一种常见的网络安全问题,攻击者通过在输入字段中插入恶意SQL代码,试图获取未经授权的数据或者控制数据库...

    与Apache一起使用MySQL方法

    接着,我们探讨了如何配置Apache的日志格式以支持MySQL,并通过一个具体的例子展示了如何将Apache日志导入MySQL数据库。通过这些步骤,你可以构建一个高效、安全的数据处理系统,为用户提供更好的服务。

    Berkeley_DB_参考手册

    - **特性**:Berkeley DB 是一个高度可定制且性能卓越的嵌入式数据库系统,提供事务支持和多种数据访问方法。 - **应用领域**:适用于需要高效数据存储与检索的应用程序。 - **API 接口**:支持多种编程语言如 C、...

    快速搭建移动App服务器 (win+tomcat+轻开平台+access入门版)

    Access 数据库 97及以上 EditPlus 开发工具 2.x及以上 3 软件安装 4 发布 4.1 下载 Easy do it,轻松互联网开发平台(简称轻开平台,原名WebEasy)下载地址: CSDN下载频道:...

    MySQL 5.1参考手册

    8.4. mysqlaccess:用于检查访问权限的客户端 8.5. mysqladmin:用于管理MySQL服务器的客户端 8.6. mysqlbinlog:用于处理二进制日志文件的实用工具 8.7. mysqlcheck:表维护和维修程序 8.8. mysqldump:数据库...

    Struts基础教程的源代码

    Struts 可以结合 DAO(Data Access Object)模式来实现这一功能。 9. **标签库**:Struts 提供了一系列标签库,如 Bean、HTML、Logic 和 Tiles,这些标签可以帮助开发者更方便地创建 JSP 页面,提高开发效率。 10....

    MySql 5.1 参考手册.chm

    8.4. mysqlaccess:用于检查访问权限的客户端 8.5. mysqladmin:用于管理MySQL服务器的客户端 8.6. mysqlbinlog:用于处理二进制日志文件的实用工具 8.7. mysqlcheck:表维护和维修程序 8.8. mysqldump:数据库备份...

    网管教程 从入门到精通软件篇.txt

    可用NSREX打开 Velvet Studio例子文件 ASF:Microsoft高级流媒体格式文件 ASM:汇编语言源文件,Pro/E装配文件 ASP:动态网页文件;ProComm Plus安装与连接脚本文件;Astound介绍文件 AST:Astound多媒体文件;...

    MySQL中文参考手册

    o 6.13 存取拒绝(Access Denied)错误的原因 o 6.14 怎样使MySQL安全以对抗解密高手(cracker) * 7 MySQL 语言参考 o 7.1 文字:怎样写字符串和数字 + 7.1.1 字符串 + 7.1.2 数字 + 7.1.3 十六进制值 + 7.1.4 ...

    MySQL 5.1中文手冊

    8.4. mysqlaccess:用于检查访问权限的客户端 8.5. mysqladmin:用于管理MySQL服务器的客户端 8.6. mysqlbinlog:用于处理二进制日志文件的实用工具 8.7. mysqlcheck:表维护和维修程序 8.8. mysqldump:数据库备份...

    MySQL 5.1参考手册 (中文版)

    8.4. mysqlaccess:用于检查访问权限的客户端 8.5. mysqladmin:用于管理MySQL服务器的客户端 8.6. mysqlbinlog:用于处理二进制日志文件的实用工具 8.7. mysqlcheck:表维护和维修程序 8.8. mysqldump:数据库备份...

    mysql官方中文参考手册

    8.4. mysqlaccess:用于检查访问权限的客户端 8.5. mysqladmin:用于管理MySQL服务器的客户端 8.6. mysqlbinlog:用于处理二进制日志文件的实用工具 8.7. mysqlcheck:表维护和维修程序 8.8. mysqldump:数据库备份...

    MYSQL中文手册

    8.4. mysqlaccess:用于检查访问权限的客户端 8.5. mysqladmin:用于管理MySQL服务器的客户端 8.6. mysqlbinlog:用于处理二进制日志文件的实用工具 8.7. mysqlcheck:表维护和维修程序 8.8. mysqldump:数据库...

    MySQL 5.1参考手册中文版

    8.4. mysqlaccess:用于检查访问权限的客户端 8.5. mysqladmin:用于管理MySQL服务器的客户端 8.6. mysqlbinlog:用于处理二进制日志文件的实用工具 8.7. mysqlcheck:表维护和维修程序 8.8. mysqldump:数据库...

    MYSQL

    4.9 MIT-pthreads 注意事项 4.10 Perl 安装说明 4.10.1 在Unix操作系统上安装 Perl 4.10.2 在 Win32上安装 ActiveState Perl 4.10.3 在 Win32 上安装 MySQL Perl 分发 4.10.4 使用 Perl ...

    Amazon SimapleDB 开发文档

    - **获取 AWS 标识符**:包括 Access Key ID 和 Secret Access Key,这些标识符用于验证身份。 - **安装必要的工具**:根据所使用的编程语言选择合适的 SDK 或工具包,例如 Java 开发者可以使用 AWS SDK for Java。 ...

    JAVA上百实例源码以及开源项目源代码

    EJB中JNDI的使用源码例子 1个目标文件,JNDI的使用例子,有源代码,可以下载参考,JNDI的使用,初始化Context,它是连接JNDI树的起始点,查找你要的对象,打印找到的对象,关闭Context…… ftp文件传输 2个目标文件...

    asp练习题与asp讲义asp模拟试题asp试题答案

    2. 语言灵活:ASP支持VBScript和JScript,同时也可扩展使用其他服务器端语言如Perl或Python。 3. 内置对象:ASP提供了Response、Request、Session、Application等内置对象,方便处理HTTP请求、响应、会话管理和应用...

Global site tag (gtag.js) - Google Analytics