作者Turbine (特而)
看板perl
标题[心得]Perl连结Access资料库的范例程式
时间Sun Nov 11 21:01:40 2007
最近刚好有用到Perl连结Access北风资料库
刚好在网路上看到一篇文章
www.skybamboo.com/cgi-bin/perl/bbs/showmsg.cgi?category=perl4&subjectid=13
这篇文章是写CGI连结资料库的
以下是小弟参考并修改为一般的console程式
ODBC名称我设定为wind
小弟有测试中文表格名称和栏位名称 ok!
#!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: 123.193.133.97
※ 编辑: Turbine 来自: 123.193.133.97 (11/11 21:05)
1F：推 LiloHuang:可以把 code 排版会更好:) 11/11 21:47