Xref: alice comp.databases.oracle.server:77545 comp.lang.perl.misc:90013
Path: alice!news-feed.fnsi.net!hammer.uoregon.edu!logbridge.uoregon.edu!newsfeed.berkeley.edu!ctu-gate!ctu-peer!news.nctu.edu.tw!netnews.NCTU.edu.tw!freeway!jhlien
From: jhlien@freeway.tem.nctu.edu.tw (Jenn-Han Lien)
Newsgroups: comp.lang.perl.misc,comp.databases.oracle.server
Subject: Re: Perl & Oracle
Followup-To: comp.lang.perl.misc,comp.databases.oracle.server
Date: 13 Dec 1999 05:04:19 GMT
Organization: Dep. Transportation Eng. & Management
Lines: 21
Message-ID: <831uoj$qbl$1@news2.nctu.edu.tw>
References: <385477D2.3041C2A8@yahoo.com>
X-Trace: netnews.NCTU.edu.tw 945061459 26997 jhlien 140.113.119.101
X-Complaints-To: newsmaster@netnews.NCTU.edu.tw
X-Newsreader: TIN [version 1.2 PL2]

NJN (ibm_97@yahoo.com) wrote:
: How can I display a result from a "select"  SQL statement in Perl? Such
: as, 'select name from table'.
: $sth->do() doesn't work. Any help? Thnx!

	this is a example file: 

use DBI;
my $dbh=DBI->connect("$oracleHost","$db_usr","$db_pwd","Oracle",{RaiseError=>1,AutoCommit=>0});
unless ($Application->{'HealthNewTotalNumber'}) {
  $sth=$dbh->prepare("select count(FILEID) totalnum from HEALTHNEWS");
  $sth->execute();
  if ($hash_ref=$sth->fetchrow_hashref) {
    $Application->{'HealthNewTotalNumber'}=$hash_ref->{'TOTALNUM'};
  }
}
$dbh->disconnect; 


--
Shock Lien