Re: Problem with selecting rows from a database link
- From: maemo@xxxxxxxxxxxxxx (Tony Green)
- Date: Sun, 23 Sep 2007 23:51:04 +0100
On Monday 17 Sep 2007, Crosbourne, Rainaldo wrote:
Hey guys
I am trying to query a table using a database link, using the following
code:
use strict;
use DBI;
my $col_value = 'test';
my $query = 'select col_1,col_2,col_3 from table_name@link_name where
col_1 = ?';
my $dbh = DBI ->connect ('dbi:Oracle:dbs','username','password',{
RaiseError => 1, AutoCommit => 0 }) || die "Database connetion not made:
$DBI::errstr";
my $sth = $dbh->prepare ($query)|| die "Unable to prepare\n";
$sth->execute($col_value) or die "Can't execute SQL statement:
$DBI::errstr Stopped\n";
my ($col_1,$col_2,$col_3);
$sth->bind_columns(\($col_1,$col_2,$col_3))||die "Unable to fetch\n";
print "$col_1: $col_2 :$col_3\n" while $sth1->fetchrow_arrayref;
$dbh->disconnect;
Now what happens is that, the first time this program is run, it returns
the correct result. However after the first successful run it fails to
run again. It gives NO error, it just fails to return the rows. If a
create a new link and use the new link in the query, it then works for
the first run, and then fails after. The same thing happens if I decide
to query a view that was created using the link.
A thought. Are you using persistent perl or perhaps Apache's mod_Perl?
Because if you are, then variables will stay in the same state they were in
when the previous run ended rather than being re-initialised when you re-run
(unless you explicitly initialise them)
It sounds like the kind of "gotcha" I've had trouble with in the past using
persistent perl.
--
Tony Green
Ipswich, Suffolk, England
http://www.beermad.org.uk
http://no2id-ip.web-brewer.co.uk
.
- References:
- Problem with selecting rows from a database link
- From: Rainaldo Crosbourne
- Problem with selecting rows from a database link
- Prev by Date: Re: [off topic] DBI-1.59 install failure on Ubuntu.
- Next by Date: symbol lookup error for DBD-Oracle 1.19 and Oracle instantclient 10.2.0.3
- Previous by thread: Problem with selecting rows from a database link
- Next by thread: Looking for a good explanation of select function in perl dbi
- Index(es):
Relevant Pages
|
|
