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

文章作者 100test 发表时间 2008:01:04 12:47:33
来源 100Test.Com百考试题网


  首先需要安装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)".
  #更新记录
  $sql0update = "UPDATE address SET age = age 10 ".
  #删除记录
  $sql0delete = "DELETE FROM address WHERE name=jimtyan".
  $rc = $db->Sql($sqlinsert).
  die qq(SQL 失败 "$sqlinsert": ), $db->Error(), qq(n) if $rc.
  $rc = $db->Sql($sql0update).
  die qq(SQL 失败 "$sql0update": ), $db->Error(), qq(n) if $rc.
  $rc = $db->Sql($sql0delete).
  die qq(SQL 失败 "$sql0delete": ), $db->Error(), qq(n) if $rc.
  #关闭链接
  $db->Close().



相关文章


新二级Acce 重点难点:模块
Perl下应当如何连接Acce 数据库
Perl下应当如何连接Acce 数据库
Dlinq对数据库支持上的一个缺陷
Internet数据库建设方案比较
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛