On Wed, 13 Feb 2002, Stacy Mader wrote:
> #!/usr/local/bin/perl
>
> use strict;
>
> my $sql = q{
> INSERT INTO REPORT
> VALUES (REPORT_NUM_SEQ.NEXTVAL,?,to_date(?,'DD-MON-YYYY HH24:MI')
> ),
> undef, $report, $date_reported
> };
>
> Where the report number is incremented via the
> REPORT_NUM_SEQ.NEXTVAL statement (REPORT_NUM_SEQ
> is an Oracle sequence).
Can't you do a query and retrieve REPORT_NUM_SEQ.CURRVAL (something like
SELECT REPORT_NUM_SEQ.CURRVAL) after you do the insert? That should be
the value that was just inserted from the sequence (going by my rusty
Oracle knowledge -- I remember that it was very similar to PostgreSQL's
sequences, where you would do currval('report_num_seq')).
-- Brett
http://www.chapelperilous.net/
------------------------------------------------------------------------
He who invents adages for others to peruse
takes along rowboat when going on cruise.
