I cannot do a bind_param () before I prepare, but prepare () already
fails :(

$ cat test.pl
use strict;
use warnings;

use DBI;

my $dbh = DBI->connect ("dbi:Oracle:", $ENV{DBI_USER}, $ENV{DBI_PASS}, {
    PrintError       => 1,
    RaiseError       => 1,
    PrintWarn        => 1,
    FetchHashKeyName => "NAME_lc",
    AutoCommit       => 0,
    }) or die "Connect: $DBI::errstr\n";

$dbh->do (qq;
    create global temporary table t_foo (
        h_key   blob,
        h_value blob
        );
    );

my $sth = $dbh->prepare ("select h_value from t_foo where h_key = ?");
$ perl test.pl
DBD::Oracle::db prepare failed: ORA-00932: inconsistent datatypes: expected - 
got BLOB (DBD ERROR: error possibly near <*> indicator at char 32 in 'select 
h_value from t_foo where <*>h_key = :p1') [for Statement "select h_value from 
t_foo where h_key = ?"] at test.pl line 23.
DBD::Oracle::db prepare failed: ORA-00932: inconsistent datatypes: expected - 
got BLOB (DBD ERROR: error possibly near <*> indicator at char 32 in 'select 
h_value from t_foo where <*>h_key = :p1') [for Statement "select h_value from 
t_foo where h_key = ?"] at test.pl line 23.
Issuing rollback() due to DESTROY without explicit disconnect() of 
DBD::Oracle::db handle  at test.pl line 23.


$ perl -MV=DBI,DBD::Oracle
DBI
        /pro/lib/perl5/site_perl/5.10.1/x86_64-linux/DBI.pm: 1.613
DBD::Oracle
        /pro/lib/perl5/site_perl/5.10.1/x86_64-linux/DBD/Oracle.pm: 1.24


Oracle-client: Release 11.2.0.0.2

Oracle-server: Oracle Database 11g Enterprise Edition
               Release 11.1.0.6.0 - 64bit Production

-- 
H.Merijn Brand  http://tux.nl      Perl Monger  http://amsterdam.pm.org/
using 5.00307 through 5.12 and porting perl5.13.x on HP-UX 10.20, 11.00,
11.11, 11.23, and 11.31, OpenSuSE 10.3, 11.0, and 11.1, AIX 5.2 and 5.3.
http://mirrors.develooper.com/hpux/           http://www.test-smoke.org/
http://qa.perl.org      http://www.goldmark.org/jeff/stupid-disclaimers/

Reply via email to