Help for this page

Select Code to Download


  1. or download this
    my $dbh = DBI->connect("DBI:Oracle:host=$host;port=$port;sid=$sid",$us
+er, $password, {PrintError=>1,RaiseError=>1}) or die "Can't connect t
+o ORACLE database:$DBI::errstr\n";

my $subj_code_query = qq{SELECT * FROM LOOKUP};
my $sth_subj = $dbh->prepare($subj_code_query);
  2. or download this
    sub execute_subject_query()
{
...
    close SWRT;
}