RE: (Fwd) Just a quick question on the DBI perl mod

Joe,

What OS and version, version of DBI, version of DBD::Oracle?

--
Ron Reidy
Lead DBA
Array BioPharma, Inc.

-----Original Message-----
From: Tim Bunce [mailto:Tim.Bunce@xxxxxxxxx]
Sent: Wednesday, May 24, 2006 8:35 AM
To: dbi-users@xxxxxxxx
Cc: Joe.McTigue@xxxxxxxxxxxxxxxxx
Subject: (Fwd) Just a quick question on the DBI perl mod

----- Forwarded message from Joe McTigue <Joe.McTigue@xxxxxxxxxxxxxxxxx>
-----

Subject: Just a quick question on the DBI perl mod
Date: Wed, 17 May 2006 14:22:38 -0400
From: Joe McTigue <Joe.McTigue@xxxxxxxxxxxxxxxxx>
To: timbo@xxxxxxxxxxxx
X-Virus-Checked: Checked

Hi Tim,



I am currently getting the following error message and was wondering
if you could help?

If you can, here's the scenario: The code below is what I'm trying
to accomplish reading a file

consisting of insert, update and delete statements. But I've been
getting the following error now

for the past several days now and can't seem to figure it out:

######### ERROR FOLLOWS:

starting file: DELETE.sql

DBI connect('databasename','username',...) failed: ORA-24315: illegal
attribute type (DBD ERROR:
OCIAttrGet OCI_ATTR_ENV_CHARSET_ID) at perlscript.pl line 463

Can't connect to database:ORA-24315: illegal attribute type (DBD
ERROR: OCIAttrGet
OCI_ATTR_ENV_CHARSET_ID) at perlscript.pl line 463.

######### END OF ERROR ###########



######### CODE SEGMENT FOLLOWS #########

my $INPUT_SQL = FileHandle->new("cat ${working_file} |") or die
("Can not open ${working_file}:
$!\n");



next line is line : 463

my $dbc = DBI->connect( "dbi:Oracle:$nameofdb", "$username",
"$password" ) || die "Can't connect to
database:" . DBI->errstr();



while ( my $line = $INPUT_SQL->getline() )

{

chomp( $line );



my $sth = $dbc->prepare( $line ) or die "Can't prepare SQL
statement.\n";



$sth->execute() or die "Can't execute SQL statement.\n";



}

$INPUT_SQL->close();



$dbc->disconnect() or warn "Error disconnecting: \n";



######### END CODE SEGMENT ##################



Any help would be incredibly wonderful at this point.





Regards,

Joseph P. McTigue

CBC Innovis, QA Department

[1]Joe.McTigue@xxxxxxxxxxxxxxxxx

(614) 538-6032



References

Visible links
1. mailto:Joe.McTigue@xxxxxxxxxxxxxxxxx

----- End forwarded message -----

This electronic message transmission is a PRIVATE communication which contains
information which may be confidential or privileged. The information is intended
to be for the use of the individual or entity named above. If you are not the
intended recipient, please be aware that any disclosure, copying, distribution
or use of the contents of this information is prohibited. Please notify the
sender of the delivery error by replying to this message, or notify us by
telephone (877-633-2436, ext. 0), and then delete it from your system.

.

Relevant Pages