2023年02月14日 08:20:00
perl連線access資料庫
前題是必須安裝好activeperl (505以上),以及ms access 97
一. 安裝win32-odbc模組
步驟1:
readme
win32-odbc.ppd
win32-odbc.tar.gz
步驟2:
在dos視窗下,temp目錄中執行下面的dos命令:
ppm install win32-odbc.ppd
二. 準備測試用資料庫(access)
步驟1:
啟動ms access,建立乙個新空資料庫,命名為odbctest.mdb,儲存在某一目錄中(記住路徑)。
步驟2:
然後新建乙個表,建立三個字段:
欄位名稱 資料型別
name 字元,長度50
email 字元,長度50
age 數字,長整型
將這個表儲存為address(注意這個例子中,沒有用自動增加的id).輸入若干記錄:
nighthawk [email protected] 20 1234567
john [email protected] 24 0284393293
kit [email protected] 18 3948932
儲存後,關閉資料庫檔案。
步驟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";
$dbase = "access.mdb";
#連線資料庫
if (!($db = new win32::odbc($dsn)))
else
#資料庫中的表
print "資料庫中的表:";
@tables = $db-
print @tables;
print "/n";
#選擇資料表
if (! $db-
@fieldnames = $db-
$cols = $#fieldnames + 1;
#表中字段數
print "表address字段數:$cols/n";
#欄位列表
for ($i = 0; $i > $cols; $i++)
print "/n";
#列出年齡大於20的記錄
while($db-
@values = $db-
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-
die qq(sql 失敗 "$sqlinsert": ), $db-
$rc = $db-
die qq(sql 失敗 "$sqlupdate": ), $db-
$rc = $db-
die qq(sql 失敗 "$sqldelete": ), $db-
#關閉鏈結
PERL連線ACCESS資料庫
perl連線access資料庫 前題是必須安裝好activeperl 505以上 以及ms access 97 一.安裝win32 odbc模組 步驟1 readme win32 odbc.ppd win32 odbc.tar.gz 步驟2 在dos視窗下,temp目錄中執行下面的dos命令 ppm...
連線ACCESS資料庫
1 匯入命名空間空間 system.data.oledb 2 建立指向資料庫的連線 建立連線要用到system.data.oledb命名空間中的類 oledbconnection。通過以下語句可以完成對本地資料庫的連線工作 string strconnect provider microsoft.j...
access資料庫連線
string strconnection provider microsoft.jet.oledb.4.0 strconnection data source e accesstest data.mdb 裡用的是?路徑 oledbconnection objconnection new oledbc...