Hello Everyone,

I am getting error "Can't locate object method "fetchrow_array" via package "sth" (perhaps you forgot to load "sth"?)", While executing the script below.

use strict;
use DBI ;
#use DBD::ODBC;

my $sql = qq {
select DISTINCT account from accountsize 
};

my $dbh = DBI->connect("dbi:ODBC:LocalServer") or die;

my $sth = $dbh->prepare("select account from accountsize") or die "err
+or" . $dbh->errstr;

$sth->execute( ) or die;

my @row;

while (@row = sth->fetchrow_array)
{
print "$row[0]\n";
}

$sth->finish();

$dbh->disconnect();
[download]

I have installed Active Perl in MSSQL server from where I am running this script. I also created the ODBC System DSN (LocalServer) with following attributes:--
1) Server used is local
2) SQL server verifies authentication with WINDOWS NT login
3) Default database is registry which I am querying.

Please advise, what I am doing wrong??

-Thanks

P.S. :-- This is not the actual SQL query which I am trying ot run but I am getting the same error in this one too. Although from using the query analyzer both the queries run just fine.