首先需要安裝win32-odbc模塊，具體的步驟如下：
1：從tools欄目中下載win32-odbc.zip,下載完后用winzip解開到一個temp目錄,共有三個文件：
readme
win32-odbc.ppd
win32-odbc.tar.gz
2：在dos窗口下，temp目錄中運行下面的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(); |
新聞熱點
疑難解答
