<div>Olá pessoal </div>
<div> </div>
<div>tenho um problema. Quem pode me ajudar:</div>
<div> </div>
<div>PROGRAMA:</div>
<div>
<p>use strict;<br>use DBI;</p>
<p>BEGIN {<br> $ENV{ORACLE_HOME} = "C:/oracle9i";<br> }</p>
<p><br>my $dbh = DBI->connect( 'dbi:Oracle:SQL_MAG',<br> 'SYSTEM',<br> 'manager',<br> {<br> RaiseError => 1,<br> AutoCommit => 0
<br> }<br> ) || die "Database connection not made: $DBI::errstr";</p>
<p>my $sql = qq{ SELECT * FROM HELP };</p>
<p>my $sth = $dbh->prepare( $sql );<br>$sth->execute();<br></p>
<p>ERRO:</p>
<p>Issuing rollback() for database handle being DESTROY'd without explicit disconnect().</p>
<p>PERGUNTA:</p>
<p>Porque esta ocorrendo este tipo de erro?</p>
<p> </p>
<p><br> </p><br clear="all"><br>-- <br>:) </div>