SQL query problem

I have a problem.
I try to execute SQL command which return more than 9 columns by DBD:PgPP
and DBI (module).
The procedure return error:
Can't call method "fetch" on an undefined value at
c:/per/site/lib/DBD.PgPP.pm line 330.
If I execute less than 9 collumn is OK.
How I can resolve this problem

Robson
r.wyka@interia.pl
POLAND

In article <bfm09b$5b6$1@atlantis.news.tpi.pl>,
"news.tpi.pl" <mareks1@poczta.onet.pl> wrote:

> I have a problem.
> I try to execute SQL command which return more than 9 columns by DBD:PgPP
> and DBI (module).
> The procedure return error:
> Can't call method "fetch" on an undefined value at
> c:/per/site/lib/DBD.PgPP.pm line 330.
> If I execute less than 9 collumn is OK.
> How I can resolve this problem
>
> Robson
> r.wyka@interia.pl
> POLAND
>
>

pls post the pertinent code leading up to and including the 'fetch' part.

--
Michael Budash

At some point in time, "news.tpi.pl" <mareks1@poczta.onet.pl> wrote:

>I have a problem.
>I try to execute SQL command which return more than 9 columns by DBD:PgPP
>and DBI (module).
>The procedure return error:
>Can't call method "fetch" on an undefined value at
>c:/per/site/lib/DBD.PgPP.pm line 330.

Hmm, that looks like the statement didn't parse properly. Please post code.

WINDOWS XP + perl v5.80
I create table:
table
id_odb1 int4 primary key,
id_odb2 int4 not null references
ilosc int2,
stan int2,
rok char(4),
moc char(8),
uwagi char(40),
id_typ int2 not null references,
adapt char(4),

$sth = $conn->prepare("SELECT * from table");
$sth->execute();
my @RAD=$sth->fetchrow_array();
or
$sth = $conn->prepare("SELECT id_odb1,
id_odb2,ilosc,stan,rok,moc,uwagi,id_typ,adapt from tabela");
$sth->execute();
IS ERROR
Can't call method "fetch" on an undefined value at
Unknown message type: ' ' at:c:/per/site/lib/DBD.PgPP.pm line 634.
Can,t call method "fetch" on an undefined value at
c:/per/site/lib/DBD.PgPP.pm line 330.

news.tpi.pl <mareks1@poczta.onet.pl> wrote:

> I create table:
> table
> id_odb1 int4 primary key,
> id_odb2 int4 not null references
> ilosc int2,

[...]

> Can,t call method "fetch" on an undefined value at
> c:/per/site/lib/DBD.PgPP.pm line 330.

You appear to be using Postgres (well, you're using the PgPP driver). INT2
isn't a valid data type. What is your exact table definition?

Chris
--
@s=split(//,"Je,\nhn ersloak rcet thuarP");$k=$l=@s;for(;$k;$k--){$i=($i+1)%$l
until$s[$i];$c=$s[$i];print$c;undef$s[$i];$i=($i+(ord$c))%$l}

news.tpi.pl <mareks1@poczta.onet.pl> wrote:

> I have a problem.

....which is also separately described in comp.lang.perl.modules. Please
don't multi-post as it splits up the separate threads of discussion.

I've already responded there so I won't repeat myself here.

Cheers,
Chris
--
@s=split(//,"Je,\nhn ersloak rcet thuarP");$k=$l=@s;for(;$k;$k--){$i=($i+1)%$l
until$s[$i];$c=$s[$i];print$c;undef$s[$i];$i=($i+(ord$c))%$l}

Main code:



$database="bpsimple";
$host= "10.10.35.96";
$username="postgres";
$password="";
$conn = DBI->connect("dbi:PgPP:dbname=$database;host=$host;por t=5432",
$username, $password);

doSQL($conn, "DROP TABLE odbiorniki");
doSQL($conn, "CREATE TABLE odbiorniki ( id_odbiornika int4 primary key,
id_odbiorcy int4 not null references odbiorcy (id_odbiorcy),id_producenta
int2 not null references sl_prod (id_producenta), ilosc int2,stan int2, rok
char(4), piek_moc char(8),uwagi char(40), odb_typ int2 not null references
sl_typy (id_typ), adapt char(3))");
open (dat,"dane.txt");
foreach(<dat>){
s/^\s+//; s/\s+$//; chomp ($_);
my
($dat_id,$dat_id_odb,$dat_prod,$dat_szt,$dat_stan, $dat_rok,$dat_piek,$dat_uw
agi,$dat_idtyp)=split(/\;/,$_);
$dat_idtyp =~ s/\s+$//; chomp ($dat_idtyp);
doSQL($conn, "INSERT INTO odbiorniki
(id_odbiornika,id_odbiorcy,id_producenta,ilosc,sta n,rok,piek_moc,uwagi,odb_t
yp,adapt) values
($dat_id,$dat_id_odb,$dat_prod,$dat_szt,$dat_stan, \'$dat_rok\',\'$dat_piek\'
,\'$dat_uwagi\',$dat_idtyp,\'NIE\')");
} close(dat);
sub doSQL
{
open(blad,">>blad_odb.txt");

my ($conn, $command) = @_;
#print $command, "\r";
my $sth = $conn->prepare($command);
my $nrows = $sth->execute;
print "status is ", $DBI::err, "\n" if $DBI::err;
print "#rows affected is ", $nrows, "\n";
print blad "error message: ", $DBI::errstr,"$_", "\n" if $DBI::err;
close(blad);

}

$conn->disconnect;



sub sprawdz_indeks{
if ($index == 0){open(blad,">>blad_odb.txt");
print blad " Nie znaleziono indeksu odbiornika dla
rekordu:\n";
print blad " $_\n";
close(blad);
}}

doSQL($conn, "CREATE TABLE odbiorniki ( id_odbiornika int4 primary key,
id_odbiorcy int4 not null references odbiorcy (id_odbiorcy),id_producenta
int2 not null references sl_prod (id_producenta), ilosc int2,stan int2, rok
char(4), piek_moc char(8),uwagi char(40), odb_typ int2 not null references
sl_typy (id_typ), adapt char(3))");

doSQL($conn, "INSERT INTO odbiorcy (
id_odbiorcy,nazwa_odbiorcy,adres_odbiorcy)
values($odb_ewid,\'$odb_nazwa\',\'$odb_adres\')");



sub doSQL
{
open(blad,">>blad_odb.txt");

my ($conn, $command) = @_;
#print $command, "\r";
my $sth = $conn->prepare($command);
my $nrows = $sth->execute;
print "status is ", $DBI::err, "\n" if $DBI::err;
print "#rows affected is ", $nrows, "\n";
print blad "error message: ", $DBI::errstr,"$_", "\n" if $DBI::err;
close(blad);

}