当前位置:w88优德官网网文章中心网站开发Access → Perl下应当如何连接Access数据库

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

减小字体 增大字体 作者:admin  来源:www.hack50.com  发布时间:2011-6-15 8:16:57
首先需要安装Win32-ODBC模块,具体的步骤如下:1:从TOOLS栏目中下载Win32-ODBC.zip,下载完后用winzip解开到一个temp目录,共有三个文件:
ReadmeWin32-ODBC.ppdWin32-ODBC.tar.gz2:在DOS窗口下,temp目录中运行下面的DOS命令:ppm install Win32-ODBC.ppd。然后准备测试用数据库(Access)1:启动MS ACCESS,建立一个新空数据库,命名为odbctest.mdb,保存在某一目录中(记住路径)。2:然后新建一个表,建立三个字段:字段名称 数据类型 长度Name 字符, 长度50Email 字符, 长度50Age 数字、长整型将这个表保存为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();

本文引用网址:
在下列搜索引擎中搜索“Perl下应当如何连接Access数据库”的相关信息:
谷歌搜索 百度搜索 雅虎搜索 搜狗搜索 搜搜搜索 必应搜索 有道搜索
你可能还喜欢以下文章
  • 1雨后小故事 qq表情姐弟雨后小故...
  • 2洪立仪不雅视频下载 洪立仪不雅...
  • 3揭秘“招聘兼职打字员”骗局
  • 4香港中学生惊艳楼道门 90后楼道...
  • 5中关村“艳照门” 前妻群发老公...
  • 1如何分辨网站是否被百度、goog...
  • 2网站百度快照出现回档情况解析...
  • 3织梦CMS读取频道信息失败 无法...
  • 4dedecms wap - 国内免费(开源...
  • 5网站外链锐减应该如何解决?
  • 1我是一个极其讨厌AV和看AV的人...
  • 2一群色狼对着一个女的狂射 有图...
  • 3一个20岁小伙给未来儿子的信
  • 4把手伸进内衣里……
  • 5我在网吧里把一个mm搞疯了
  • 1Linux下如何同时启动多个Tomca...
  • 2让虚拟主机免受FSO威胁
  • 3如何设定一个安全的log服务器
  • 4Linux计划任务Crontab命令用法...
  • 5shell经典实例分享
  • 赞助商广告

    图片文章导读