Re: [心得]Perl連結Access資料庫的範例程式
※ 引述《Turbine (特而)》之銘言:
: 推 LiloHuang:可以把 code 排版會更好:) 11/11 21:47
幫排 :p
#!C:/Perl/bin/perl.exe
#!/usr/bin/perl
use Win32::ODBC;
$DSN = "DSN=wind;";
#$DSN = "DSN=odbctest;";
#這裡有改動,直接使DSN=odbctest即可
#連接數據庫
if (!($db = new Win32::ODBC($DSN))){
print "連接數據庫失敗.\n";
exit();
}
else{
print "連接數據庫完成( 連接號:", $db->Connection(), ")\n\n";
}
#數據庫中的表
print "數據庫中的表:";
@tables = $db->TableList;
print join("-",@tables);
print "\n";
#$sql="select * from address";
$sql="select * from 員工";
if($db->Sql($sql)){
print "error select data\n";
Win32::ODBC->DumpError();
$db->Close();
}
while($db->FetchRow()){
%row=$db->DataHash;
#print "$row{name}--$row{email}--$row{age}\n";
print "$row{'姓名'}--$row{'名'}--$row{'職稱'}\n";
}
#關閉鏈接
$db->Close();
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.30.55
推
11/12 01:23, , 1F
11/12 01:23, 1F
→
11/12 01:58, , 2F
11/12 01:58, 2F
→
11/12 07:06, , 3F
11/12 07:06, 3F
推
11/12 23:29, , 4F
11/12 23:29, 4F
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):