<div>Olá pessoal </div>
<div>&nbsp;</div>
<div>tenho um problema. Quem pode me ajudar:</div>
<div>&nbsp;</div>
<div>PROGRAMA:</div>
<div>
<p>use strict;<br>use DBI;</p>
<p>BEGIN {<br>&nbsp;&nbsp; $ENV{ORACLE_HOME} = &quot;C:/oracle9i&quot;;<br>&nbsp;}</p>
<p><br>my $dbh = DBI-&gt;connect( 'dbi:Oracle:SQL_MAG',<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'SYSTEM',<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'manager',<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; RaiseError =&gt; 1,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AutoCommit =&gt; 0
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ) || die &quot;Database connection not made: $DBI::errstr&quot;;</p>
<p>my $sql = qq{ SELECT * FROM HELP };</p>
<p>my $sth = $dbh-&gt;prepare( $sql );<br>$sth-&gt;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>&nbsp;</p>
<p><br>&nbsp;</p><br clear="all"><br>-- <br>:) </div>