Looks like your query is returning zero rows. Have you tested it with
the same username and password from sqlplus?
Chip
Nico van Leeuwen <[EMAIL PROTECTED]> writes:
> new script different style
>
> #!/usr/bin/perl -w
>
> use strict;
> use DBI;
>
> my $dbh = DBI->connect( 'dbi:Oracle:mercury.systime',
> 'systime',
> 'systime',
> {
> RaiseError => 1,
> AutoCommit => 0
> }
> ) || die "Database connection not made: $DBI::errstr";
>
> print "connected\n";
>
> my $sql = "SELECT id, is_admin, aktiv, passwort FROM vo_user WHERE
> login='nicovl'";
> my $sth = $dbh->prepare("$sql");
> $sth->execute();
>
> my( $id, $is_admin, $aktiv, $passwort );
> $sth->bind_columns( undef, \$id, \$is_admin, \$aktiv, \$passwort );
>
> while( $sth->fetch() ) {
> print "$id, $is_admin, $passwort\n";
> }
>
> $sth->finish();
> $dbh->disconnect();
>
>
> command prompt:::
>
> centriumdb:/usr/local/httpd/cgi-bin # ./select-test.pl
> connected
> centriumdb:/usr/local/httpd/cgi-bin #
>
> that's all I see... no problems.. no output either... and as I said in
> SQL*PLUS the select gives results... and the $dbh->do I have tried work fine!
>
> I am truely puzzled,
>
> Nico.
>
>
> At 20:57 13-5-01 -0700, Michael A. Chase wrote:
> >You really need error checking. I suggest you add { RaiseError => 1 } after
> >the password in the connect() call.
> >--
> >Mac :})
> >** I normally forward private database questions to the DBI mail lists. **
> >Give a hobbit a fish and he'll eat fish for a day.
> >Give a hobbit a ring and he'll eat fish for an age.
> >----- Original Message -----
> >From: "Nico van Leeuwen" <[EMAIL PROTECTED]>
> >To: <[EMAIL PROTECTED]>
> >Sent: Sunday, May 13, 2001 20:27
> >Subject: Oracle Selects ??
> >
> >
> >> The following code would work fine for me using mysql... for oracle it
> >> won't work and I have been trying real hard to find out why but it won't
> >work.
> >>
> >> I have checked the SQL in SQL*PLUS and it worked fine!
> >>
> >> dbh->do seems to be working fine too....
> >>
> >> Thanks in advance,
> >>
> >> Nico.
> >>
> >> #!/usr/bin/perl -w
> >>
> >> # Set variables
> >>
> >> use DBI;
> >>
> >> $ENV{ORACLE_HOME} = "/opt/oracle/product/8.1.7";
> >> $dbh = DBI->connect('dbi:Oracle:','[EMAIL PROTECTED]','systime');
> >>
> >> # Prepare Select
> >> $sth = $dbh->prepare("SELECT id, is_admin, aktiv, passwort FROM vo_user
> >> WHERE login='nicovl'");
> >>
> >> # Execute the Select
> >> ($sth->execute);
> >>
> >> @dbdata = $sth->fetchrow_array;
> >>
> >> $userid = $dbdata[0];
> >> $isadmin = $dbdata[1];
> >> $aktiv = $dbdata[2];
> >> $passwortdb = $dbdata[3];
> >>
> >>
> >> print "$userid\n";
> >
--
Chip Turner [EMAIL PROTECTED]
RHN Web Engineer
