[Cascavel-pm] Duvida com bando de dados - RESOLVIDO

Terça Agosto 7 03:32:58 PDT 2007

    Bom dia a todos da lista. Agradeço a toda ajuda que recebi. principalmente em me mostrar como retornar os erros no navegador... isto foi muito util.

   O problema foi resolvido, mas não a contento, consegui conectar ao banco e retornar o valor esperado, mas não utilizando CGI, o que era o principio inicial. Segue o código. Mas agora irei estudar mais um pouco e escrever tudo em forma de rotinas para que possar escrever o programa mais profissionalmente. Mesmo assim agradeço a todos. 

#!c:\perl\bin\perl.exe

my $database="World";
my $host="127.0.0.1";
my $usuario="root";
my $senha="123";
use DBI();
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
my $dbh = DBI->connect("DBI:mysql:$database;$host","$usuario","$senha",{'RaiseError' => 1});
$sth = $dbh->prepare("SELECT * FROM artigos");
$sth->execute();
print "Content-type: text/html\n\n";
print "<HTML>";
print "<HEAD><TITLE>Resposta da Consulta</TITLE><BODY>";
print "<font face=verdana size=2 color=#FF0000><strong>RESULTADO DA BUSCA</strong></font></b><p>";
while(($numero,$titulo,$conteudo) = $sth->fetchrow_array) {

print "<font face=verdana size=2>Resultado número $numero<br><b> $titulo</b><br> <i>$conteudo</i><hr>";
print "</BODY></HTML>";
}
$sth->finish();

Ricardo Stock
ricardostock em bol.com.br
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070807/b1598153/attachment.html 