Wow, that was really simple. I guess that's what happens when you stare
at something way too long. I was going off in all kinds of wrong
directions. Thanks!
On Wed, 25 Jul 2001 11:30:26 -0700, Venkat Mohan wrote:
> RE: fetchrow_array problem with DBI
>
>Simple,
>After you prepare the sql statement you must execute the statement. See
>the non indented line of code below.
>
>
>
> my $dbh=DBI->connect($db, ,$username,$password)
> or die "Couldn't connect".DBI->errstr;
> my $sth=$dbh->prepare('SELECT * FROM tbl_clients')
> or die "Couldn't prepare statement: " . $dbh;
>
>$sth->execute() or die "Execute Failed";
>
> my @data;
> while(@data=$sth->fetchrow_array()) { ## The offending line
> my $clientid=$data[1];
>
>
>-Venkat
>
>-----Original Message-----
>From: David Rankin [mailto:[EMAIL PROTECTED]]
>Sent: Wednesday, July 25, 2001 11:16 AM
>To: [EMAIL PROTECTED]
>Subject: fetchrow_array problem with DBI
>
>
>Hi Everybody,
>
>I have been programming with Perl for over four years, but I've never had
>
>a whole lot of reason to work with DBI or even databases very much for
>that matter.
>
>I'm currently working on a very simple set of scripts to read data from a
>
>couple different Postgres tables and parse the data in different ways. I
>
>wanted to start off by simply printing some data (as I did not create the
>
>tables and want to see what the data actually looks like). Below is the
>code I am using to do that. The error message I am getting is
>"DBD::Pg::st fetchrow_array failed: no state at query.pl line 14." I've
>gone through all the books I have, the DBI documentation and the DBD::Pg
>documentation, but I can't seem to figure out what could be causing the
>problem. As far as I can tell, what I'm doing looks like every other
>example I've seen.
>
>If anyone can point me in the right direction on this I'd really
>appreciate it.
>
>Here's the code:
>
>#!/usr/bin/perl -w
>use strict;
>use DBI;
>
>my $username="nobody";
>my $password="";
>my $db="DBI:Pg:dbname='catalog';";
>my $dbh=DBI->connect($db, ,$username,$password)
> or die "Couldn't connect".DBI->errstr;
>my $sth=$dbh->prepare('SELECT * FROM tbl_clients')
> or die "Couldn't prepare statement: " . $dbh;
>
>my @data;
>while(@data=$sth->fetchrow_array()) { ## The offending line
> my $clientid=$data[1];
> my $clientname=$data[2];
> print "NAME: $clientname\nID: $clientid\n\n";
>}
>$sth->finish;
>$dbh->disconnect;
>
>Thanks in advance!
>
>-Dave
>
>--
>
>David Rankin
>Tel: 401.277.9966/877.528.5213
>Fax: 603.590.4925
>Email: [EMAIL PROTECTED]
>http://www.surfthisdesign.com
>
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
--
David Rankin
President, Surf This! Web Design Inc.
Tel: 401.277.9966/877.528.5213
Fax: 603.590.4925
Email: [EMAIL PROTECTED]
http://www.surfthisdesign.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
