Can't crack a DBI Error:

Hammy has asked for the wisdom of the Perl Monks concerning the following question:

I continually get the following error when running the code below. It still runs the code and returns me the results, but it gives an error. Any ideas? It does not matter what query I run - even simple queries give the error. One more thing, it give the error on the fetchrow. Thanks

flexreportmap.cgi: DBD::mysql::st fetchrow_arrayref failed: fetch() wi
+thout execute() at library.pl line 311, <HTML> line 193.

$sth = $dbh->prepare($sql);
unless ($sth->execute) {
    fatal ("SQL query failed: " . $sth->errstr . "\n$sql");
    }

$ref = $sth->fetchrow_arrayref();
$sth->finish;
return $ref;
[download]

Comment on Can't crack a DBI Error: Download Code

Replies are listed 'Best First'.
Re: Can't crack a DBI Error: by Abstraction (Friar) on Sep 24, 2002 at 03:05 UTC
I may be way off base on this one, so this may not be much help, but I recall having this same error and removing the call to `finish` seemed to clear things up. Take a look at finish for more information. You may also want to looking into using selectrow_arrayref instead of `$sth->fetchrow()` if you only want 1 row. Anyway, hope this helps.	[reply] [d/l] [select]
Re: Can't crack a DBI Error: by spartacus9 (Beadle) on Sep 24, 2002 at 02:34 UTC
instead of using "unless($sth->execute)", try using: `$sth->execute() or die "SQL query failed: $sth->errstr \n$sql";` [download] I can't say why your method would not work but I can say I have not had a problem at all with the "or die" method above.	[reply] [d/l]
Re: Re: Can't crack a DBI Error: by Hammy (Scribe) on Sep 24, 2002 at 02:51 UTC
Thanks, but that is not where the problem is. The error occurs on the fetch - I switched it around as sugggested and still get the same error - any suggestions?	[reply]
Re: Can't crack a DBI Error: by rdfield (Priest) on Sep 24, 2002 at 11:19 UTC
Have you checked the return code for the prepare? rdfield	[reply]
Re: Can't crack a DBI Error: by Daruma (Curate) on Sep 24, 2002 at 14:50 UTC
Greetings!! I tested the following (using DBD::Oracle, mind you) use strict; use DBI; use diagnostics; my $user = 'foo'; my $pass = 'bar'; my $dbh= DBI->connect( "dbi:Oracle:database", "$user", "$pass", ) or die "Can't connect to the database: $DBI::errstr\n"; my $sql = ' Select employee_id, employee_last_name, employee_grade from employees'; my $sth = $dbh->prepare($sql) or die "Can't prepare SQL statement: $DBI::errstr\n"; unless ($sth->execute) { fatal ("SQL query failed: " . $sth->errstr . "\n$sql"); } my $ref = $sth->fetchrow_arrayref() or die "Can't fetch: $DBI::errstr\n"; $sth->finish; print "@$ref[0] - @$ref[1] - @$ref[2]\n"; $dbh->disconnect; [download] If I remove the `$sth->finish;` line, It returns an error when attempting to disconnect against an open database handle... the fetch is still fetching... With the `finish` method, I do return just one row. Does that meet your need? Beyond the `fetchrow_array / finish` vs. `selectrow_array` difference pointed out by Abstraction++, The code works fine for me. Are you using strict, warning & diagnostics?? Is your code giving you feedback for every DBI package usage? (Have it `die` and give you feedback... -Daruma	[reply] [d/l] [select]
Re: Can't crack a DBI Error: by MZSanford (Curate) on Sep 24, 2002 at 21:27 UTC
I have to point back to rdfield ... it may seem simple, but it simple tends to work. from the frivolous to the serious	[reply]


The stupid question is the question not asked
	PerlMonks