Si lo mandas junto con la información del host, database, etc. Ejemplo:
-
- Publicidad
ERROR 2002 (HY000)
15 mensajes
• Página 2 de 2 • 1, 2
Publicidad
por majitop1986 » 2008-08-11 18:23 @808
¡¡kidd!! muchas gracias por ayudarme, ando desesperada, mira hice lo que me pediste... y me salió este error.
¿Qué es? puedes ayudarme, te envío también el script que tengo para que lo veas y me digas si algo anda mal.
¿Qué opinas?
- Código: Seleccionar todo
Can't DBI::st=HASH(0x8e3e340)->bind_col(1, undef,...), need a reference to a scalar at /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi/DBI.pm line 1831.
¿Qué es? puedes ayudarme, te envío también el script que tengo para que lo veas y me digas si algo anda mal.Using perl Syntax Highlighting
#!/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::errstr unless(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;
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::errstr unless(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?
- majitop1986
- Perlero nuevo
- Mensajes: 64
- Registrado: 2008-04-02 14:04 @628
por explorer » 2008-08-11 18:30 @812
¿Qué narices hace la líneaen el programa?
Anda, por favor, quítala (no te hace falta).
Using perl Syntax Highlighting
Anda, por favor, quítala (no te hace falta).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
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:
Más información, en la descripción de bind_columns() en la página de manual de DBI. Incluye ejemplos.
Debes definir ANTES las variables, y luego indicar su referencia:
Using perl Syntax Highlighting
my $nombre;
my $descripcion;
$sth->bind_columns(\$nombre,\$descripcion);
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.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por majitop1986 » 2008-08-12 08:38 @401
gracias explorer y kidd por la ayuda 
ya me salieron los datos 
ya me salieron los datos - majitop1986
- Perlero nuevo
- Mensajes: 64
- Registrado: 2008-04-02 14:04 @628
15 mensajes
• Página 2 de 2 • 1, 2
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados