Foro - Perl en Español

por **kidd** » 2008-08-11 18:14 @801

Si lo mandas junto con la información del host, database, etc. Ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

DBI->connect(
"DBI:mysql:host=HOST;database=NOMBREDATABASE;mysql_socket=/tmp/mysql.sock","USER","PASS",
{PrintError => 1, RaiseError => 1}
);Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

#!/usr/bin/perl -w
package DBD::mysql;

use strict;

use DBI;

my$db='base';
#my $host='localhost';
#$port="3306";
my$userid='root';
my$pass='';
my$connectionInfo="DBI:mysql:database=$db;mysql_socket=/opt/lampp/var/mysql/mysql.sock";

my$dbh= DBI->connect($connectionInfo,'root','',{'RaiseError'=> 1});
die"Ha habido un problema al conectar con la base de datos: ".$DBI::errstrunless(defined($dbh));

my$query="SELECT * FROM admi";

my$sth=$dbh->prepare($query);

$sth->execute();

$sth->bind_columns(undef,my$nombre,my$descripcion);

#print "Resultados";

while($sth->fetch())
{
print"$nombre - $descripcion";
}

$sth->finish();
$dbh->disconnect;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Qué opinas?

por **explorer** » 2008-08-11 18:30 @812

¿Qué narices hace la línea

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package DBD::mysql;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

en el programa?

Anda, por favor, quítala (no te hace falta).

por **explorer** » 2008-08-11 22:27 @977

El error dice que has pasado mal los argumentos a bind_columns(). Y además, estás intentando usar la bind_cols(), que tiene distintos argumentos.

Debes definir ANTES las variables, y luego indicar su referencia:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$nombre;
my$descripcion;
$sth->bind_columns(\$nombre,\$descripcion);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Más información, en la descripción de bind_columns() en la página de manual de DBI. Incluye ejemplos.

por **majitop1986** » 2008-08-12 08:38 @401

gracias explorer y kidd por la ayuda

ya me salieron los datos

Foro - Perl en Español

ERROR 2002 (HY000)

Publicidad

¿Quién está conectado?