S
Saya
hi,
I have the below code and would like to know how I can access the
stored procedures returned value. Can anybody help me out here .
my $cn=Win32::OLE-> new('Adodb.Command');
my $rs=Win32::OLE-> new('Adodb.Recordset');
$cn->{'CommandText'} = "stpCreateGroups";
$cn->{'CommandType'} = 4;
$cn->{'ActiveConnection'} = $sConString;
$cn->{'CommandTimeout'} = 1200000;
$cn->{'@strBranchAbb'} = $inpWorkareaPath;
$cn->{'@strGroupName'} = "vahu test";
$cn->{'@strHcp'} = "no";
$cn->{'@strGroupCreator'} = $sUser;
#$cn->{'@RETURN'};
$rs = $cn->Execute();
if(! ($rs = $cn->execute())) {
print "Error: " . Win32::OLE->LastError();
# $rs->close;
}
Regards
Says
I have the below code and would like to know how I can access the
stored procedures returned value. Can anybody help me out here .
my $cn=Win32::OLE-> new('Adodb.Command');
my $rs=Win32::OLE-> new('Adodb.Recordset');
$cn->{'CommandText'} = "stpCreateGroups";
$cn->{'CommandType'} = 4;
$cn->{'ActiveConnection'} = $sConString;
$cn->{'CommandTimeout'} = 1200000;
$cn->{'@strBranchAbb'} = $inpWorkareaPath;
$cn->{'@strGroupName'} = "vahu test";
$cn->{'@strHcp'} = "no";
$cn->{'@strGroupCreator'} = $sUser;
#$cn->{'@RETURN'};
$rs = $cn->Execute();
if(! ($rs = $cn->execute())) {
print "Error: " . Win32::OLE->LastError();
# $rs->close;
}
Regards
Says