From: "Jenda Krynicky" <[email protected]>
> ---------------------
>
> use strict;
> use DBI;
>
> my $db = DBI->connect("dbi:ODBC:Driver=SQL
> Server;Server=JobVIPeR;Database=DBIx_Declare_Test");
>
> my $sth = $db->prepare('EXEC ? = dbo.FetchUsersAndRetval') or die;
>
> my $retval;
> $sth->bind_param_inout( 1, \$retval, 16, { TYPE => DBI::SQL_INTEGER
> }) or die;
>
> $sth->execute(); #here it errors out
>
> while (my $row = $sth->fetchrow_arrayref) {
> print "@$row\n";
> }
>
> print "\$retval=$retval\n";
>
> ----------------------
I'm OK, it works fine with
my $sth = $db->prepare('{? = CALL dbo.FetchUsersAndRetval}') or die;
Plus it looks like it's calling the procedure more directly so I
guess it's quicker.
Thanks for your time anyway!
Jenda
===== [email protected] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
