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

想像的瞬间

UID: 28899
帖子: 177
积分: 407
在线时间: 1 天 18 小时

1^# 想像的瞬间发表于 2007-12-14 13:36

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

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

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2007-12-14 13:38

QUOTE:

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

你猜！

想像的瞬间

UID: 28899
帖子: 177
积分: 407
在线时间: 1 天 18 小时

3^# 想像的瞬间发表于 2007-12-14 13:43

QUOTE:

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

你猜！

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

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

4^# flw 发表于 2007-12-14 13:55

QUOTE:

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

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

你再猜！

想像的瞬间

UID: 28899
帖子: 177
积分: 407
在线时间: 1 天 18 小时

5^# 想像的瞬间发表于 2007-12-14 14:06

QUOTE:

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

你再猜！

。。。。。需要http:date?

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

6^# flw 发表于 2007-12-14 14:10

QUOTE:

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

。。。。。需要http:date?

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

想像的瞬间

UID: 28899
帖子: 177
积分: 407
在线时间: 1 天 18 小时

7^# 想像的瞬间发表于 2007-12-14 14:21

QUOTE:

原帖由 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类型的

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

8^# flw 发表于 2007-12-14 14:43

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

[Copy to clipboard] [ - ]

CODE:

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

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

想像的瞬间

UID: 28899
帖子: 177
积分: 407
在线时间: 1 天 18 小时

9^# 想像的瞬间发表于 2007-12-14 15:03

QUOTE:

原帖由 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};

放驴娃

UID: 1065
帖子: 164
积分: 377
在线时间: 1 天 12 小时

10^# 放驴娃发表于 2007-12-14 15:50

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