安转了 DBD:ORACLE 但是还报错（已解决，新手引以为戒）

lpsir · 发表于 2006-7-14 16:16:11

操作如下
install_driver(ORACLE) failed: Can't locate DBD/ORACLE.pm in @INC (@INC contains: /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 .) at (eval 1) line 3.
Perhaps the DBD::ORACLE perl module hasn't been fully installed,
or perhaps the capitalisation of 'ORACLE' isn't right.
Available drivers: ExampleP, Oracle, Pg, Proxy.
at ./sql.pl line 15

怎么办我的事 redhat
我也重新登陆了啊
是不是非要在路径里面把 DBD的路径加上
可是在哪修改这个环境变量呢

谢谢了

islue · 发表于 2006-7-14 16:32:13

“安装了”是什么意思？

lpsir · 发表于 2006-7-14 16:46:16

装了 DBD::Oracle这个模块

lpsir · 发表于 2006-7-14 16:47:40

这是
perldoc DBD::Oracle
的显示，说明有这个模块了

i386-linux-thread-multUserBContributed)i386-linux-thread-multi:

BD::Oracle(3)

NAME
   DBD::Oracle - Oracle database driver for the DBI module

SYNOPSIS
      use DBI;

      $dbh = DBI->connect("dbi:Oracle

dbname", $user, $passwd);

      $dbh = DBI->connect("dbi:Oracle:host=$host;sid=$sid", $user, $passwd);

      # See the DBI module documentation for full details

      # for some advanced uses you may need Oracle type values:
      use DBD::Oracle qw(

ra_types);

DESCRIPTION
DBD::Oracle is a Perl module which works with the DBI module to provide
access to Oracle databases.

CONNECTING TO ORACLE
下面的省略了

lpsir · 发表于 2006-7-14 16:52:24

我的程序

#!/usr/bin/perl -w
use DBI;
use strict;
my ($dsn, $user, $password);
my @rows;
my $dbh;
my $sth1;
$dsn="DBI:ORACLE:POWER";
$user="intf";
$password="intf";
$dbh=DBI->connect($dsn,$user,$password,{RaiseError => 1, AutoCommit => 0})
||die "Catabase Connect not made : $DBI::errstr";
$sth1=DBI->prepare("select * from t_In_datb_a");
$sth1->execute();
while(@rows = $sth1->fetchrow_array)
{
print "@rows \n";
}
$sth1->finish();
$sth1->disconnect();

复制代码

lpsir · 发表于 2006-7-14 16:54:37

郁闷的是
我现在改成

#!/usr/bin/perl -w
use DBI;
use strict;
my ($dsn, $user, $password);
my @rows;
my $dbh;
my $sth1;
$dsn="DBI:[color=red]Oracle[/color]:POWER";
$user="intf";
$password="intf";
$dbh=DBI->connect($dsn,$user,$password,{RaiseError => 1, AutoCommit => 0})
||die "Catabase Connect not made : $DBI::errstr";
$sth1=DBI->prepare("select * from t_In_datb_a");
$sth1->execute();
while(@rows = $sth1->fetchrow_array)
{
print "@rows \n";
}
$sth1->finish();
$sth1->disconnect();

复制代码

报这个错

Can't locate auto/DBI/prepare.al in @INC (@INC contains: /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 .) at ./sql.pl line 17
Issuing rollback() for database handle being DESTROY'd without explicit disconnect().

复制代码

lpsir · 发表于 2006-7-14 17:06:07

不好意思
使我对oracle操作没有理解透彻
代码写错了

#!/usr/bin/perl -w
use DBI;
use strict;
my ($dsn, $user, $password);
my @rows;
my $dbh;
my $sth;
$dsn="dbi:Oracle:power";
$user="intf";
$password="intf";
$dbh=DBI->connect($dsn,$user,$password,{RaiseError => 1, AutoCommit => 0})
||die "Catabase Connect not made : $DBI::errstr";
[color=red]$sth=$dbh->prepare("select * from t_In_dKtb_a");[/color]
$sth->execute();
while(@rows = $sth->fetchrow_array)
{
print "@rows \n";
}
$sth->finish();
[color=red]$dbh->disconnect();[/color]

复制代码

不好意思

lpsir · 发表于 2006-7-14 17:11:24

以后可要注意了

原来还分大小写
dbi:Oracle 和 dbi:ORACLE 不一样啊

		自动登录	找回密码
密码			注册