Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • I tried using bind_parms with a numbered parameter and with a named parameter both with and without a data type.

    sub set_date_format_bind
    {
      my($dbh, $format) = @_;
      my $sql = <<"EOF";
        ALTER SESSION SET NLS_DATE_FORMAT = ?
    EOF
      my $sth = $dbh->prepare($sql) or die $DBI::errstr;
      $sth->bind_param(1, $format, SQL_LONGVARCHAR);
      $sth->execute() or die $DBI::errstr;
    }

    sub set_date_format_named_bind
    {
      my($dbh, $format) = @_;
      my $sql = <<"EOF";