PERL連接ACCESS數(shù)據(jù)庫

前題是必須安裝好activeperl （505以上），以及MS Access 97

一. 安裝Win32-ODBC模塊
步驟1：
從TOOLS欄目中下載Win32-ODBC.zip,下載完后用winzip解開到一個(gè)temp目錄,共有三個(gè)文件：
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：
啟動(dòng)MS ACCESS,建立一個(gè)新空數(shù)據(jù)庫，命名為odbctest.mdb,保存在某一目錄中（記住路徑）。
步驟2：
然后新建一個(gè)表，建立三個(gè)字段：
字段名稱 數(shù)據(jù)類型
Name 字符，長度50
Email 字符，長度50
Age 數(shù)字，長整型

將這個(gè)表保存為address（注意這個(gè)例子中，沒有用自動(dòng)增加的ID）.輸入若干記錄：
Nighthawk nighthawk@163.net 20 1234567
John jt@163.net 24 0284393293
kit kit@21cn.com 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è)置中的其它項(xiàng)目全部采用缺省設(shè)置，然后就是OK,確定，關(guān)閉對(duì)話窗口。

三. 這時(shí)候，數(shù)據(jù)庫已經(jīng)可以用了，我們來測試一下：

#!/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ù)庫成功 (連接號(hào)：", $db->Connection(), ")\n\n";
}

#數(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ù):$Cols\n";

#字段列表
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;

#關(guān)閉鏈接
$db->Close();