作者LyinZ (琳子)
看板perl
标题Re: [心得]Perl连结Access资料库的范例程式
时间Mon Nov 12 00:50:43 2007
※ 引述《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
1F：推 LiloHuang::) 11/12 01:23
2F：→ iFEELing:我看到UltraEdit了吗.....囧 11/12 01:58
3F：→ Turbine:thanks ^^ 11/12 07:06
4F：推 pttask:UltraEdit ...XD 11/12 23:29