Re: [心得]Perl連結Access資料庫的範例程式

[LyinZ (琳子)]

※ 引述《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
推 LiloHuang::)
→ iFEELing:我看到UltraEdit了嗎.....囧
→ Turbine:thanks ^^
推 pttask:UltraEdit ...XD