Programación Web y Scripting > Perl

 Que Psa Con Este Codig: Dbi->connect()

(1/1)

sergiotarrillo:
I have the following code:


--- Código: Text ---#!/usr/bin/perl -t print "Content-type: text/plain\n\n"; use strict;use DBI; # variables a editarmy $db_user = "miuser";my $db_pass = "miclave"; my $host_name = "miservidor";my $db_name = "coolblog";# vars  my $q_string = "DBI:mysql:database=$db_name;host=$host_name";  my $dbh = DBI-> connect ($q_string, $db_user, $db_pass) || die "\nError al abrir la base datos: $DBI::errstr\n"; #Mostramos aviso en caso de éxitoprint "\nSe ha conectado con la BD $db_name \n";   #Nos desconectamos de la BD. Mostramos un mensaje si hay fallo $dbh->disconnect || warn "\nFallo al desconectar.\nError: $DBI::errstr\n";  
y me muestra el siguiente mensaje:


--- Citar ---Se ha conectado con la BD coolblog


--- Fin de la cita ---

el problema esta en que le agrego el siguiene codigo para ver columnas y me sale erro:


--- Código: Text ---#Realizamos la etapa de preparación de la sentencia my $sth = $dbh->prepare("SELECT user_id, username FROM phpbb_users");  #Realizamos la etapa de ejecución de la sentencia $sth->execute(); #Realizamos la etapa de extracción de datos. Mostramos los registros. while ( @registro=$sth->fetchrow_array()) {   print "ID: $registro[0]  Nombre: $registro[1]\n"; } #Realizamos la etapa de liberación de recursos $sth->finish();   
que esta pasando.......... :ouch:

darkasecas:
en dode exactamente metes el codigo para traer columnas y que error es el que te marca

sergiotarrillo:
bueno, no lo recuerdo bien, ese codigo lo mande hace tiempo ahora ya deje el perl...

Navegación

[0] Índice de Mensajes