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

首先需要安裝Win32-ODBC模塊，具體的步驟如下：
    1：從TOOLS欄目中下載Win32-ODBC.zip,下載完后用winzip解開(kāi)到一個(gè)temp目錄,共有三個(gè)文件：
    Readme
    Win32-ODBC.ppd
    Win32-ODBC.tar.gz
    2：在DOS窗口下，temp目錄中運(yùn)行下面的DOS命令：ppm install Win32-ODBC.ppd。
    然后準(zhǔn)備測(cè)試用數(shù)據(jù)庫(kù)(Access)
    1：?jiǎn)?dòng)MS ACCESS,建立一個(gè)新空數(shù)據(jù)庫(kù)，命名為odbctest.mdb,保存在某一目錄中(記住路徑)。
    2：然后新建一個(gè)表，建立三個(gè)字段：
    字段名稱(chēng) 數(shù)據(jù)類(lèi)型 長(zhǎng)度
    Name 字符， 長(zhǎng)度50
    Email 字符， 長(zhǎng)度50
    Age 數(shù)字、長(zhǎng)整型
    將這個(gè)表保存為address(注意這個(gè)例子中，沒(méi)有用自動(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ù)庫(kù)文件。
    3：打開(kāi)控制面板中的 ODBC數(shù)據(jù)源(32位)，在用戶DSN欄中，找到用戶數(shù)據(jù)源列表,選中名稱(chēng)為“MS Access 97 Database”的一行，然后按“配置”鍵。
    在Database框中按“Select..”，選擇步驟1.2中建立的數(shù)據(jù)庫(kù)文件odbctest.mdb,按OK即可。ODBC設(shè)置中的其它項(xiàng)目全部采用缺省設(shè)置，然后就是OK,確定，關(guān)閉對(duì)話窗口。
    最后進(jìn)行測(cè)試：
    #!/usr/bin/perl
    use Win32::ODBC;
    $DSN = "MS Access 97 Database";
    $DBase = "access.mdb";
    #連接數(shù)據(jù)庫(kù)
    if (!($db = new Win32::ODBC($DSN))){
    print "連接數(shù)據(jù)庫(kù)失敗.n";
    exit();
    }
    else{
    print "連接數(shù)據(jù)庫(kù)成功 (連接號(hào)：", $db->Connection(), ")nn";
    }
    #數(shù)據(jù)庫(kù)中的表
    print "數(shù)據(jù)庫(kù)中的表：";
    @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', '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();