付爸爸的神奇日記本

# 參考網頁
# http://www.roth.net/perl/odbc/faq/

# 使用ODBC模組
use Win32::ODBC;

# 首先去系統管理工具 / 資料來源 (ODBC)
# 系統資料來源名稱 / 新增 / Driver do Microsoft Access
# 資料來源名稱 => 777
# 選取 => e:\PROJECT\odbc\db1.mdb
#
# Schema ...
# table id,user,pass
# Data ...
# 1,gisanfu,123
# 2,arf,456
# 3,tony,789
$DSN = "777";

# 利用Driver跟MDB進行連線
# 並處理錯誤訊息
if (!($db = new Win32::ODBC($DSN))){
print "Error connecting to $DSN\n";
print "Error: " . Win32::ODBC::Error() . "\n";
exit;
}

# 執行SQL語法，必需要依照Access的格式來做
$SqlStatement = "SELECT * FROM [table]";
if ($db->Sql($SqlStatement)){
print "SQL failed.\n";
print "Error: " . $db->Error() . "\n";
$db->Close();
exit;
}

# 把查詢到的東西，利用程序把資料倒出來
# 每倒一筆，就印一筆
# 是倒到Hash變數裡面
while($db->FetchRow()){
undef %Data;
%Data = $db->DataHash();
#...process the data...
print "$key=>$value\n" while ( ($key, $value) = each %Data );
}

# 結束連線
$db->Close();