日期怎么显示?

螃蟹就是横着走 2001-10-26 11:59:34
在Windows下我用ADO对象连到SQL Server,返回字段为日期,怎么转为字符显示?
如果要实现数据类型的相互转换,在Perl下怎么实现?
源程序如下:
#!D:/programs/perl/bin/perl
use CGI;
use Win32::OLE;
$oCgi=new CGI;
print $oCgi->header(-charset=>'GBK');
print "<h1>ActivePerl ADO test:</h1>";
print "<hr>";
print "Now connecting to demo database Northwind on local SQL Server:";
print "<hr>";
my $Conn =Win32::OLE->new('ADODB.Connection');
$Conn->Open("Driver=SQL Server;Server=(local);Database=Northwind;UID=sa;PWD=");
my $Rst=Win32::OLE->new('ADODB.RecordSet');
$Rst=$Conn->Execute("Select * from Employees");
if($Rst->Eof)
{
print "Sorry,no data!";
}
else
{
print "<table border=1 bordercolor=black cellspacing=0 cellblank=0>";
print "<tr bgcolor=#ff9900><td>Employee ID<td>Firstname<td>LastName<td>Title<td>BirthDate";
$Count=0;
do
{
print("<tr bgcolor=#00fff00>");
print("<td>");
print $Rst->Fields("EmployeeID")->Value;
print("<td>");
print $Rst->Fields("FirstName")->Value;
print("<td>");
print $Rst->Fields("LastName")->Value;
print("<td>");
print $Rst->Fields("Title")->Value;
print("<td>");
print $Rst->Fields("BirthDate")->Value;
$Rst->movenext;
$Count++;
}
while(not $Rst->Eof);
print "</table>";
}
$Rst->Close;
$Conn->Close;

日期字段(BirthDate)显示值:Win32::OLE::Variant=SCALAR(0x1792d9c)
...全文
107 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

2,204

社区成员

发帖
与我相关
我的任务
社区描述
Web 开发 CGI
社区管理员
  • CGI社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧