|
楼主 |
发表于 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().
复制代码 |
|