Re^4: Counting number of rows while working with Oracle

Thanks for the replies I have tried the following code

my $rows = $sthBoo->fetchall_arrayref();
my $num_rows = @$rows;
[download]

it worked I could see the number of rows but now if I use

while (my $row = $sth->fetchrow_hashref)
        {
[download]

after the above code its giving the warning

DBD::Oracle::st fetchrow_hashref failed: no statement executing (perha
+ps you need to call execute first) [for Statement "
[download]

Is there any problem withthe code? Thanks

Comment on Re^4: Counting number of rows while working with Oracle Select or Download Code

Replies are listed 'Best First'.
Re^5: Counting number of rows while working with Oracle by ikegami (Patriarch) on Mar 18, 2008 at 12:52 UTC
That's why I followed those two lines with `foreach my $row (@$rows)` instead of `while (my $row = $sth->fetchrow_hashref)`.	[reply] [d/l] [select]
Re^5: Counting number of rows while working with Oracle by andreas1234567 (Vicar) on Mar 18, 2008 at 11:42 UTC
You did not post a complete, working code sample, so we can't say. Inspect your `$sth` vs. `$sthBoo` though. -- Andreas	[reply] [d/l] [select]
Re^6: Counting number of rows while working with Oracle by denzil_cactus (Sexton) on Mar 20, 2008 at 08:44 UTC
Here my code `my $req = <STDIN>; my $sth = $dbh->prepare( qq{ SELECT tr_code,j_trs from t_ghos } ) or die "Can't prepare statement: $DBI::errstr"; $sth->execute or die "Can't execute statement: $DBI::errstr"; my $rows = $sth->fetchall_arrayref(); my $num_rows = @$rows; if($num_rows > 0) { process($sth,$req); } sub process { my $sth = shift; my $type = shift; while (my $row = $sth->fetchrow_hashref) { next unless defined($row); } }` [download] Now please tell me any solution to count the number of rows	[reply] [d/l]