Perl 使用 OLE ADO 操作数据库

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

#!c:/perl/bin
use Win32::OLE;
use Win32::OLE::Const 'Microsoft ActiveX Data Objects';

$table    = "addresstable";
$conn = Win32::OLE->new("ADODB.Connection");
$rs   = Win32::OLE->new("ADODB.Recordset");
$conn->Open("address");

print "Content-Type:text/htmlnn";
print "Address Book<br>";
print "<table><tr><th>First Name</th>";
print "<th>Last Name</th><th>Address</th></tr>";

$sql = "SELECT * FROM $table";
$rs->Open($sql,$conn,1,1);
while(!$rs->EOF){
   $firstname = $rs->Fields('firstname')->value;
   $lastname  = $rs->Fields('lastname')->value;
   $address   = $rs->Fields('address')->value;
   print "<tr><td>$firstname</td><td>$lastname</td><td>$address</td></tr>";
   $rs->MoveNext;
  }
print "</table></div>";
$rs->Close;
$conn->Close;

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!