Help for this page

Select Code to Download

Select or download this

use DBI;
my $dd = DBI->connect('dbi:Oracle:', 'scott', 'tiger',
...
my $sth = $dd->prepare("insert into prod (ss) select 1+max(ss) from pr
+od");
$sth->execute;
$dd->disconnect;