Foro - Perl en Español

por **Superdri** » 2017-10-18 16:47 @741

Hola, necesito un poquito de ayuda. Tengo una consulta que funciona en phpmyadmin pero a DBD::mysql parece no gustarle

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $query = "
SELECT count(g.spec_id) AS 'contador',g.spec_id,c.name,c.class,
CASE c.class
        WHEN 'Warrior' THEN '#C79C6E'
        WHEN 'Paladin' THEN '#F58CBA'
        WHEN 'Hunter' THEN '#ABD473'
        WHEN 'Rogue' THEN '#FFF569'
        WHEN 'Priest' THEN '#FFFFFF'
        WHEN 'Death Knight' THEN '#C41F3B'
        WHEN 'Shaman' THEN '#0070DE'
        WHEN 'Mage' THEN '#69CCF0'
        WHEN 'Warlock' THEN '#9482C9'
        WHEN 'Monk' THEN '#00FF96'
        WHEN 'Druid' THEN '#FF7D0A'
        WHEN 'Demon Hunter' THEN '#A330C9'
END AS 'class_color'
FROM wow_eu_leadder_rbg g
INNER JOIN wow_specs c on (g.spec_id = c.id)
WHERE spec_id in (71, 72, 73, 70, 255, 259, 260, 261, 250, 251, 252, 263, 269, 103, 104, 577, 581)
GROUP BY g.spec_id
ORDER BY count(g.spec_id) DESC
";
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

No sé si la consulta está bien del todo porque phpmyadmin me marca la línea que asigno los colores a la columna class_color, pero la ejecuto en phpmyadmin y me da el resultado esperado en cambio con DBD no funciona.

Saludos y gracias.

my $query = "SELECT count(g.spec_id) AS 'contador',g.spec_id,c.name,c.class, CASE c.class WHEN 'Warrior' THEN '#C79C6E' WHEN 'Paladin' THEN '#F58CBA' WHEN 'Hunter' THEN '#ABD473' WHEN 'Rogue' THEN '#FFF569' WHEN 'Priest' THEN '#FFFFFF' WHEN 'Death Knight' THEN '#C41F3B' WHEN 'Shaman' THEN '#0070DE' WHEN 'Mage' THEN '#69CCF0' WHEN 'Warlock' THEN '#9482C9' WHEN 'Monk' THEN '#00FF96' WHEN 'Druid' THEN '#FF7D0A' WHEN 'Demon Hunter' THEN '#A330C9' END AS 'class_color' FROM wow_eu_leadder_rbg g INNER JOIN wow_specs c on (g.spec_id = c.id) WHERE spec_id in (71, 72, 73, 70, 255, 259, 260, 261, 250, 251, 252, 263, 269, 103, 104, 577, 581) GROUP BY g.spec_id ORDER BY count(g.spec_id) DESC";
                
my $sth = $db->prepare($query);
$sth->execute() or die "imposible ejecutar la consulta $query";
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Saludos

por **explorer** » 2017-10-19 12:22 @557

DBD no es un módulo que funciona por sí solo. Quizás te refieras a DBD::mysql. Pero lo normal es que estés usando DBI, que es la capa más externa de acceso a la bases de datos. Mientras, DBD::mysql envuelve al propio motor de base de datos, por lo que los errores que devuelve se refieren al propio motor y no a las consultas de los usuarios.

Yo lo que haría sería mirar el valor de errstr(), en caso de que se produzca algún error, en cualquier nivel:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $dbh = DBI->connect($data_source, $username, $password)              or die $DBI::errstr;
 
my $sth = $dbh->prepare($query)                                         or die $DBI::errstr;
 
my $res = $sth->execute()                                               or die $DBI::errstr;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Si estuviese ocurriendo un error en alguno de los módulos, los estarías viendo en la salida estándar, bien sea en la terminal o en la página web o en el registro error.log, dependiendo de dónde estés ejecutando este programa.

Foro - Perl en Español

Consulta MySQL

Consulta MySQL

Publicidad

Re: Consulta MySQL

Re: Consulta MySQL

Re: Consulta MySQL

¿Quién está conectado?