求助Win32::OLE::Variant=SCALAR(0x1904a60)

想像的瞬间

读sql server 的datetime 字段出来了这个，请教这是什么问题，如何解决?

flw

原帖由 想像的瞬间 于 2007-12-14 13:36 发表
请教这是什么问题

你猜！

想像的瞬间

原帖由 flw 于 2007-12-14 13:38 发表

你猜！

我是新手，要定义变量类型?

flw

原帖由 想像的瞬间 于 2007-12-14 13:43 发表

我是新手，要定义变量类型?

你再猜！

想像的瞬间

原帖由 flw 于 2007-12-14 13:55 发表

你再猜！

。。。。。需要http:date?

flw

原帖由 想像的瞬间 于 2007-12-14 14:06 发表

。。。。。需要http:date?

其实是需要你的源代码。
不然我就只能再再猜了。

想像的瞬间

原帖由 flw 于 2007-12-14 14:10 发表

其实是需要你的源代码。
不然我就只能再再猜了。

use Win32::ADO qw/CheckDBErrors/;
use Win32::OLE;
my $Conn = new Win32::OLE('ADODB.Connection' );
#~ $Conn = $Server->CreateObject("ADODB.Connection ";
$Conn->Open( " Provider=sqloledb; User ID=; Password=; Initial Catalog=; Data Source=" );
CheckDBErrors($Conn, \@DBErrors) or die "SQL Failed at ", __LINE__, "\n", @DBErrors;
my $RS = $Conn->Execute( "SELECT atterm FROM table where flag='1';" );
CheckDBErrors($Conn, \@DBErrors) or die "SQL Failed at ", __LINE__, "\n", @DBErrors;

while ( ! $RS->{EOF} ) {
        $atterm      = $RS->Fields(0)->{Value};

        print $atterm;

        $RS->MoveNext;
}
$RS->Close;
$Conn->Close;




$atterm 输出出来是Win32::OLE::Variant=SCALAR(0x1904a60)  atterm字段是datatime类型的

[ 本帖最后由 想像的瞬间 于 2007-12-14 14:23 编辑 ]

flw

你不能直接 print，
你应该用：

1. print $atterm->Date( DATE_SHORTDATE ), $atterm->Time(TIME_FORCE24HOURFORMAT|TIME_NOTIMEMARKER), "\n";

复制代码

详细信息参见 perldoc Win32::OLE::Variant;

想像的瞬间

原帖由 flw 于 2007-12-14 14:43 发表
你不能直接 print，
你应该用：
print $atterm->Date( DATE_SHORTDATE ), $atterm->Time(TIME_FORCE24HOURFORMAT|TIME_NOTIMEMARKER), "\n";
详细信息参见 perldoc Win32::OLE::Variant;

谢谢版版啊　
原来要这样

use Win32::OLE::Variant;

my $atterm = Variant(UT_DATE,'Jan 1,1970');

$atterm      = $RS->Fields(1)->{Value};

放驴娃

my $atterm = Variant(UT_DATE,'Jan 1,1970');
这行是多余的。不需要。