четверг, 5 мая 2011 г.

perl + mssql + output


Как получить output параметр из m$sql sp ?

у меня получилось так:

  my $sth=$dbh->prepare('DECLARE @CustomerID int
                               EXEC CustomerLogin ?, ?, @CustomerID OUTPUT ');
        my $cid;
        $sth->execute($username,$password);
        {
            while(my $d = $sth->fetch) {
                $cid= $d->[0] if($sth->{syb_result_type} == 4042);
            }
            redo if $sth->{syb_more_results};
        }