解答Perl下如何連接Access數(shù)據(jù)庫(kù)_Access數(shù)據(jù)庫(kù)教程

教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：Access 2007基礎(chǔ)入門手冊(cè)
這本入門手冊(cè)是否合適你? 我只想告訴你我非常喜歡這本書。我對(duì)Microsoft Access的經(jīng)驗(yàn)足以讓我跳過這本傻瓜系列教材，但是實(shí)際情況是，我非常享受于這本書中介紹Access 2007新的用戶界面的時(shí)候被過分寵壞的感覺。當(dāng)然，我已經(jīng)安裝了它，并且已經(jīng)試了試新的Ri

首先需要安裝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)備測(cè)試用數(shù)據(jù)庫(kù)(Access)

1：?jiǎn)?dòng)MS ACCESS,建立一個(gè)新空數(shù)據(jù)庫(kù)，命名為odbctest.mdb,保存在某一目錄中(記住路徑)。

2：然后新建一個(gè)表，建立三個(gè)字段：

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

Name 字符，長(zhǎng)度50

Email 字符，長(zhǎng)度50

Age 數(shù)字、長(zhǎng)整型

將這個(gè)表保存為address(注意這個(gè)例子中，沒有用自動(dòng)增加的ID。輸入若干記錄：

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

　　Nighthawk nighthawk@163.net 20 1234567

　　John jt@163.net 24 0284393293

　　kit kit@21cn.com 18 3948932

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

3：打開控制面板中的 ODBC數(shù)據(jù)源(32位)，在用戶DSN欄中，找到用戶數(shù)據(jù)源列表,選中名稱為“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è)試：

以下為引用的內(nèi)容：
　　#!/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();

分享：解析為何Access數(shù)據(jù)庫(kù)的精髓不在VBA之中
Access愛好者以會(huì)VBa為榮。我覺得這不是好現(xiàn)象。vba只是vb的子集，有著很多限制，比如不支持繼承，不支持指針，不支持子界類型等。使用vba操作Office家族之外的數(shù)據(jù)結(jié)構(gòu)是非常困難的。 vba只是Access的一個(gè)特性。實(shí)際上沒有vba微軟也可以照舊大賣access。有

來源：模板無憂/所屬分類：Access數(shù)據(jù)庫(kù)教程/更新時(shí)間：2009-05-25

解答Perl下如何連接Access數(shù)據(jù)庫(kù)_Access數(shù)據(jù)庫(kù)教程

Access數(shù)據(jù)庫(kù)教程Rss訂閱編程教程搜索

Access數(shù)據(jù)庫(kù)教程推薦

猜你也喜歡看這些