If $sth1 is undefined, that means that your prepare statement failed, which is usually attributable to an SQL bug. Try modifying your prepare statement to look like

$sth1=$Dbh->prepare(...) or die "Prepare failed: $DBI::errstr\n";

I also usually try to define my SQL strings independently of the prepare statement to make the code more obvious. An example from some of my code, using a heredoc: 

    my $sql = <<EOSQL;
    
INSERT INTO files (filename, content)
VALUES (?,?)

EOSQL

    my $query = $oracle->prepare($sql)
        or die "Insert prepare failed: $DBI::errstr";
    $query->bind_param(1,$filename)
        or die "Insert bind_param failed: $DBI::errstr";
    $query->bind_param(2,$content,{ora_type   =>  ORA_BLOB})
        or die "Insert bind_param failed: $DBI::errstr";
    $query->execute
        or die "Insert execute failed: $DBI::errstr";

[download]

You can also accomplish something similar using the PrintError or RaiseError flags at connect; see DBI for details. 

    my $oracle = DBI->connect(  @dbi_path,
                    {
                        PrintError => 0,
                        RaiseError => 0,
                        AutoCommit => 0
                    }
                )
        or die "Database connect to $db_name failed:" . $DBI::errstr;

[download]

In reply to Re: Bind param error by kennethk
in thread Bind param error by doug145

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.