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

时间:2009-03-19 02:21:56   来源:第二电脑网上收集  作者:

  第二电脑网导读:目录中运行下面的DOS命令:ppm install Win32-ODBC.ppd。  然后准备测试用数据库(Access)  1:启动MS ACCESS,建立一个新空数据库,命名为odbctest.mdb,保存在某一目录中(记住路径)。  2:然后新建一个表,建立三个字段:  字段名称 数据类型 长度  Name 字符, 长度50  Email 字符, 长度50  Age 数字、长整型  ...
  正文:  首先需要安装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();


来源:http://www.002pc.com/master/College/Programming/CGI/2008-11-27/4577.html

收藏到:

关于《Perl下应当如何连接Access数据库》文章的评论

共有 0 位网友发表了评论 此处只显示部分留言 点击查看完整评论页面

随机文章

    SQL Error: select * from ***_ecms_article where classid='87' and checked=1 order by rand() limit 10

顶出来的热门

    SQL Error: select * from ***_ecms_article where classid='87' and checked=1 order by diggtop desc,id desc limit 10
站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td