• Viernes 29 de Marzo de 2024, 10:23

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Ale123

Páginas: [1]
1
Perl / Re:arreglos bidimensionales con data de Base de Datos
« en: Miércoles 11 de Junio de 2014, 22:52 »
 :gracias:   :gracias:

Ya me funcionó!!   :smartass:

#Variables
my($dbh,$sth);
$dbh = &connect();
#prepara querys:
   $sth = $dbh->prepare($query) or die("Couldn't prepare statement:" . $dbh->errstr);
#Se ejecuta el query
   $sth->execute();
#Para Imprimir
   while (($nombre, $edad, $sueldo) = $sth->fetchrow_array()) {
      print "$nombre,$edad,$sueldo\n";         
   }

2
Perl / arreglos bidimensionales con data de Base de Datos
« en: Miércoles 11 de Junio de 2014, 18:24 »
Hola!  :angel:
 
Actualmente cuando intento extraer un data de una base de datos con:

$sth = $dbh->prepare($query); # --->Query de emplados
      $sth->execute();
         @result= $sth->fetchrow_array();

Al colocarlo en @result se me imprime siempre que la data traiga un solo registro:
Ej: Empleado con el ID 555 ----> juan, 23, 1500
y lo puedo colocar en variables
Ej: my $nombre= $result
  • ; # juan

     my $edad= $result[1]; # 23
     my $sueldo= $result[2]; #1500

Mi pregunta es como hago en el caso de que no sea un solo registro sino una lista de emplados
Ej: Todos los mayores de 20 años?
juan, 23, 1500
pedro, 42, 5500
ana, 32, 2000
      .
      .
      .
¿Como lo imprimo?   
 :ayuda:


Páginas: [1]