Fw: Re: problem DBD-Oracle-1.17 linux enterprise AS
the versions DBI y DBD are:
DBD::Oracle -- 1.16, DBI -- 1.50
I was working in oracle 8i with modules DBD::Oracle -- 1.12
DBI -- 1.30 without problems.
connect :
sub _connect
{
my $wdsn = "dbi:Oracle:orcl";
$ENV { ORACLE_HOME } = "/ora8/soft/oracle/product/10.1.0/db_1/";
$ENV { ORACLE_SID } = "epqdb";
$dbh = DBI->connect ( $wdsn, 'user', 'pw')
or
&error ( "BATCH", txt => "connect" );
$dbh->{ AutoCommit} = 0;
}
prepare :
$sth_par = $dbh->prepare ( "select
itmpar, texpar
from useru.par
where ciapar = ?
and fampar = ? ")
or
$batch->error (txt => "p720");
execute :
$sth_par->bind_param ( 1, 0 );
$sth_par->bind_param ( 2, 'py-ley', DBI::SQL_CHAR );
$sth_par->execute
or
print "p110 $dbh->errstr";
thanks
-- Forwarded Message ---
From: "John Scoles" <[EMAIL PROTECTED]>
To: dbi-users@perl.org
Sent: Wed, 10 May 2006 09:25:02 -0500
Subject: Re: problem DBD-Oracle-1.17 linux enterprise AS
If you could include which version of DBI, DBD:Oracle and some of your
original perl code it would give us a better idea on how to debug this.
So far a ORA-00600 error can be any one of a number of problems. One is a
'time out error' which might explain why it runs the second time.
cheers
John Scoles
""Oscar Gomez"" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> i have this error when i made interface program perl with oracle 10g
trough
> DBD module.
> DBD::Oracle::st execute failed: ORA-00600: internal error code, arguments:
> [kpofdr-long], [], [], [], [], [], [], [] (DBD ERROR: error possibly near
<*>
> indicator at char 37 in 'select
> itmpar, texpar
> from useru.<*>par
> where ciapar = :p1
> and fampar = :p2 ') [for Statement "select
> itmpar, texpar
> from useru.par
> where ciapar = ?
> and fampar = ? " with ParamValues: :p1=0, :p2='py-ley']
at
> ./1230.pl line 28.
>
> but,if I execute it for the second time it work ok.
>
> thanks
> --
> Open WebMail Project (http://openwebmail.org)
> --- End of Forwarded Message ---
>
>
> --
> Open WebMail Project (http://openwebmail.org)
>
--- End of Forwarded Message ---
--
Open WebMail Project (http://openwebmail.org)
Re: problem DBD-Oracle-1.17 linux enterprise AS
If you could include which version of DBI, DBD:Oracle and some of your original perl code it would give us a better idea on how to debug this. So far a ORA-00600 error can be any one of a number of problems. One is a 'time out error' which might explain why it runs the second time. cheers John Scoles ""Oscar Gomez"" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > i have this error when i made interface program perl with oracle 10g trough > DBD module. > DBD::Oracle::st execute failed: ORA-00600: internal error code, arguments: > [kpofdr-long], [], [], [], [], [], [], [] (DBD ERROR: error possibly near <*> > indicator at char 37 in 'select > itmpar, texpar > from useru.<*>par > where ciapar = :p1 > and fampar = :p2 ') [for Statement "select > itmpar, texpar > from useru.par > where ciapar = ? > and fampar = ? " with ParamValues: :p1=0, :p2='py-ley'] at > ./1230.pl line 28. > > but,if I execute it for the second time it work ok. > > thanks > -- > Open WebMail Project (http://openwebmail.org) > --- End of Forwarded Message --- > > > -- > Open WebMail Project (http://openwebmail.org) >
problem DBD-Oracle-1.17 linux enterprise AS
i have this error when i made interface program perl with oracle 10g trough DBD module. DBD::Oracle::st execute failed: ORA-00600: internal error code, arguments: [kpofdr-long], [], [], [], [], [], [], [] (DBD ERROR: error possibly near <*> indicator at char 37 in 'select itmpar, texpar from useru.<*>par where ciapar = :p1 and fampar = :p2 ') [for Statement "select itmpar, texpar from useru.par where ciapar = ? and fampar = ? " with ParamValues: :p1=0, :p2='py-ley'] at ./1230.pl line 28. but,if I execute it for the second time it work ok. thanks -- Open WebMail Project (http://openwebmail.org) --- End of Forwarded Message --- -- Open WebMail Project (http://openwebmail.org)
Re: problem using table_info and column_info with DBD::Proxy
On Mon, 10 Apr 2006 15:14:21 +0800, Allan Dyer wrote: Hi Allan > OK, I tried that and got basically the same result as my test > program: if I specify a direct connection to mysql, it works OK, > but if I specify a proxy connection to the same database, it fails PITA. > Who's maintaining DBD::Proxy? Perhaps I should contact them direct. Don't know, but that's probably your next best bet. -- Cheers Ron Savage, [EMAIL PROTECTED] on 10/04/2006 http://savage.net.au/index.html Let the record show: Microsoft is not an Australian company
Re: problem using table_info and column_info with DBD::Proxy
Hi Ron
Thanks...
On 9 Apr 2006 at 12:40, Ron Savage wrote:
> On Sat, 08 Apr 2006 20:39:45 +0800, Allan Dyer wrote:
>
> Hi Allan
>
> > I'm sorry if I offended everyone with my previous message - I've
>
> I can't see why you'd think that :-).
:-)
> > got no replies, so I guess I did something wrong. I would still
>
> I can't see why you'd guess that :-).
:-)
> > like to be pointed in a useful direction...
> >
> > I've found that the problem with table_info has been reported three
> > times before in this group:
>
> Here's how I call table_info(...). I have not used DBD::Proxy.
...
> This is from a program to dump all table, column, and index info for the 3
> tested vendors.
>
> Let me know how it goes.
OK, I tried that and got basically the same result as my test program: if I
specify a direct connection to mysql, it works OK, but if I specify a proxy
connection to the same database, it fails (my full listing & sample output
below).
The error is from mysql, so it appears that what the proxy gives to mysql is
not the same as what I give to the proxy.
My listing: (added statements to set variables & connect to the database)
#!/usr/bin/perl
#
# Testing problem with table_info
use strict;
use warnings;
use Data::Dumper;
use DBI;
#my $dbn= 'DBI:Proxy:hostname=localhost;port=;dsn=DBI:mysql:ima';
my $dbn= 'DBI:mysql:ima';
my $charset= 'UTF-8';
my $dbh = DBI->connect( $dbn, 'root', '',
{ RaiseError => 1, PrintError => 0 } );
my $user= '';
my(%vendor) =
(
MYSQL =>
{
attributes => {},
catalog => undef,
column => '%',
schema => undef,
table => '%',
type=> 'table',
},
ORACLE =>
{
attributes => {},
catalog => undef,
column => '%',
schema => $user,
table => '%',
type=> 'TABLE',
},
PG =>
{
attributes => {noprefix => 1, pg_noprefix => 1}, # Only
supported for
$DBD::Pg::VERSION >= 1.31.
catalog => undef,
# Prior to that, use $dbh -> tables()
column => '%',
# instead of $dbh -> table_info(...).
schema => 'public',
table => '%',
type=> 'table',
},
);
my $vendor= 'MYSQL';
my($sth)= $dbh -> table_info($vendor{$vendor}{'catalog'},
$vendor{$vendor}{'schema'}, $vendor{$vendor}{'table'},
$vendor{$vendor}{'type'});
my($info) = $sth -> fetchall_arrayref({});
print Dumper( $info);
exit
Output using direct connection: my $dbn= 'DBI:mysql:ima';
$VAR1 = [
{
'REMARKS' => undef,
'TABLE_NAME' => 'BaseKit',
'TABLE_CAT' => undef,
'TABLE_SCHEM' => undef,
'TABLE_TYPE' => 'TABLE'
},
{
'REMARKS' => undef,
'TABLE_NAME' => 'Manufacturer',
'TABLE_CAT' => undef,
'TABLE_SCHEM' => undef,
'TABLE_TYPE' => 'TABLE'
},
... etc.
Output using proxy connection:
DBD::Proxy::db table_info failed: Server returned error: Failed to execute
method CallMethod: Can't call method "execute" without a package or object
reference at /usr/lib/perl5/site_perl/5.8.8/i486-linux/DBD/mysql.pm line 262.
-
Who's maintaining DBD::Proxy? Perhaps I should contact them direct.
Cheers
Allan
> --
> Cheers
> Ron Savage, [EMAIL PROTECTED] on 9/04/2006
> http://savage.net.au/index.html
> Let the record show: Microsoft is not an Australian company
>
>
Allan Dyer, CISSP, MHKCS, MIAP | [EMAIL PROTECTED]
Chief Consultant| http://www.yuikee.com.hk/
Yui Kee Computing Ltd. | +852 28708555
