use strict;
use DBI;
# mdb 資料庫
my $mdb = 'C:/access.mdb';
# SQL 語法
my $sql = 'select * from notifications';
# 連線到資料庫
my $dbh = DBI->connect("dbi:ODBC:driver=microsoft access driver (*.mdb);dbq=$mdb");
# 執行 SQL 語法
my $sth = $dbh->prepare("$sql");
$sth->execute || die " Could not execute SQL statement ... maybe invalid?";
# 顯示出結果
while (my @row = $sth->fetchrow_array()){ 
 print "@row";
}
最後修改日期: 2014 年 04 月 28 日

作者

留言

撰寫回覆或留言

發佈留言必須填寫的電子郵件地址不會公開。