Perl下應(yīng)當(dāng)如何連接Access數(shù)據(jù)庫

2024-07-21 02:13:53

字體：大中小

來源：轉(zhuǎn)載

供稿：網(wǎng)友

首先需要安裝win32-odbc模塊，具體的步驟如下：

1：從tools欄目中下載win32-odbc.zip,下載完后用winzip解開到一個temp目錄,共有三個文件：

readme

win32-odbc.ppd

win32-odbc.tar.gz

2：在dos窗口下，temp目錄中運(yùn)行下面的dos命令：ppm install win32-odbc.ppd。

然后準(zhǔn)備測試用數(shù)據(jù)庫(access)

1：啟動ms access,建立一個新空數(shù)據(jù)庫，命名為odbctest.mdb,保存在某一目錄中(記住路徑)。

2：然后新建一個表，建立三個字段：

字段名稱數(shù)據(jù)類型長度

name 字符，長度50

email 字符，長度50

age 數(shù)字、長整型

將這個表保存為address(注意這個例子中，沒有用自動增加的id。輸入若干記錄：

以下為引用的內(nèi)容：

　　nighthawk [email protected] 20 1234567

　　john [email protected] 24 0284393293

　　kit [email protected] 18 3948932

保存后，關(guān)閉數(shù)據(jù)庫文件。

3：打開控制面板中的 odbc數(shù)據(jù)源(32位)，在用戶dsn欄中，找到用戶數(shù)據(jù)源列表,選中名稱為“ms access 97 database”的一行，然后按“配置”鍵。

在database框中按“select..”，選擇步驟1.2中建立的數(shù)據(jù)庫文件odbctest.mdb,按ok即可。odbc設(shè)置中的其它項目全部采用缺省設(shè)置，然后就是ok,確定，關(guān)閉對話窗口。

最后進(jìn)行測試：

以下為引用的內(nèi)容：
　　#!/usr/bin/perl
　　use win32::odbc;
　　$dsn = "ms access 97 database";
　　$dbase = "access.mdb";
　　#連接數(shù)據(jù)庫
　　if (!($db = new win32::odbc($dsn))){
　　print "連接數(shù)據(jù)庫失敗.n";
　　exit();
　　}
　　else{
　　print "連接數(shù)據(jù)庫成功 (連接號：", $db->connection(), ")nn";
　　}
　　#數(shù)據(jù)庫中的表
　　print "數(shù)據(jù)庫中的表：";
　　@tables = $db->tablelist;
　　print @tables;
　　print "n";
　　#選擇數(shù)據(jù)表
　　if (! $db->sql("select * from [address] where age>=20") ){
　　@fieldnames = $db->fieldnames();
　　$cols = $#fieldnames + 1;
　　#表中字段數(shù)
　　print "表address字段數(shù):$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;
　　#關(guān)閉鏈接
　　$db->close();

上一篇：Perl 腳本的特點

下一篇：Perl下應(yīng)當(dāng)如何連接Access數(shù)據(jù)庫