PERL DBD

Post Reply
MiniMe
Posts: 210
Joined: Thu Mar 15, 2001 4:30 pm

PERL DBD

Post by MiniMe »

If I use the perl DBD and execute this script I get what I want. If I change the select statement to another table besides a system table it comes back with 0 rows. What could be causing this?? It will only access SYS*.



#!perl -w
use strict;
use DBI;

my $dsn = 'dbi:TEXIS:/db/tables/prod';
my $dbh = DBI->connect($dsn, 'PUBLIC', '') or die $DBI::errstr;
my $sth = $dbh->prepare( 'select * from SYSINDEX');

$sth->execute();

DBI::dump_results($sth);

$sth->finish;

$dbh->disconnect;
Post Reply