perl use of cursors and fetch forward

From: John Frank <jrf(at)segovia(dot)mit(dot)edu>
To: <pgsql-general(at)postgresql(dot)org>
Subject: perl use of cursors and fetch forward
Date: 2001-01-29 14:37:15
Views: Raw Message | Whole Thread | Download mbox | Resend email
Lists: pgsql-general

Can someone tell me how to use Postgres cursors through perl? A sample is
below. Is there some way to keep the transaction active between
$conn-exec calls?

use Pg;
my $conn = Pg::connectdb("dbname = test");

my $result = $conn->exec("begin work; declare c1 cursor for select fld1
from tbl1 ; ");

$result = $conn->exec("fetch forward 1 in c1;");
print "Hurray, I fetched a row: " . $result->fetchrow . "\n";

$result = $conn->exec("end work;");

jrf(at)roog:~/$ perl
NOTICE: PerformPortalFetch: portal "c1" not found
Hurray, I fetched a row:
NOTICE: COMMIT: no transaction in progress


Browse pgsql-general by date

  From Date Subject
Next Message Tom Lane 2001-01-29 14:40:46 Re: Re[6]: SPI_getvalue problem
Previous Message The Hermit Hacker 2001-01-29 14:03:09 PostgreSQL v7.1BETA4 Bundled and Available ...