国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Perl > 正文

Perl下應當如何連接Access數據庫

2024-07-21 02:13:53
字體:
來源:轉載
供稿:網友

首先需要安裝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')";
  #更新記錄
  $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();


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 青岛市| 惠州市| 叙永县| 车险| 防城港市| 兰坪| 固镇县| 砀山县| 阿拉善左旗| 富民县| 永定县| 赫章县| 大洼县| 望江县| 肇东市| 万荣县| 阳谷县| 商城县| 正阳县| 乐陵市| 弋阳县| 华蓥市| 云南省| 屏东县| 寿光市| 泾阳县| 静海县| 安庆市| 六安市| 新余市| 洪湖市| 岳西县| 乡宁县| 安平县| 吕梁市| 嘉善县| 凌源市| 资溪县| 东山县| 湟中县| 聂拉木县|