問:Perl下應當如何連接Access數據庫
答:首先需要安裝Win32-ODBC模塊,具體的步驟如下:
1:從TOOLS欄目中下載Win32-ODBC.zip,下載完后用winzip解開到一個temp目錄,共有三個文件:
以下為引用的內容: Readme Win32-ODBC.ppd Win32-ODBC.tar.gz |
然后準備測試用數據庫(Access)
1:啟動MS ACCESS,建立一個新空數據庫,命名為odbctest.mdb,保存在某一目錄中(記住路徑)。
2:然后新建一個表,建立三個字段:
以下為引用的內容: Nighthawk nighthawk@163.net 20 1234567 John jt@163.net 24 0284393293 kit kit@21cn.com 18 3948932 |
字段名稱 數據類型 長度
Name 字符, 長度50
Email 字符, 長度50
Age 數字、長整型
將這個表保存為address(注意這個例子中,沒有用自動增加的ID。輸入若干記錄:
保存后,關閉數據庫文件。
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"; #連接數據庫 if (!($db = new Win32::ODBC($DSN))){ #數據庫中的表 #選擇數據表 @FieldNames = $db->FieldNames(); $Cols = $#FieldNames 1; #表中字段數 #字段列表 #列出年齡大于20的記錄 } ##### sql ######### $rc = $db->Sql($sqlinsert); $rc = $db->Sql($sqlupdate); $rc = $db->Sql($sqldelete); #關閉鏈接 |
新聞熱點
疑難解答