Resulta ser que el programita en cuestión realiza consultas a Mysql; tengo una función que cuando la subconsulta se realiza satisfactoriamente, le avisa al usuario que se realizo satisfactoriamente... pero cuando falla la consulta (ya sea porque existe la tabla, o error de conexión a Mysql, o cualquiera error) debería imprimir en pantalla "Error No se pudo" y es esta partecita que no realiza no sé por qué razón no lo hace si dentro del código le especifico con un if - else que si es satisfactorio haga una sentencia y sino haga la otra, pero el me obvia por toda vía el resultado que debería mostrar a la hora de errores, me obvia el ELSE no importa cuantos cambios yo haga, el ELSE lo obvia por todas maneras.
He aquí el código que explico haber si alguien puede ayudar:
Using perl Syntax Highlighting
sub ingreso {
my $entrada5 = $entrada->get();
my $entrada6 = $entrada1->get();
my $entrada7 = $entrada3->get();
my $entrada9 = $entrada8->get();
my $entrada11 = $entrada10->get();
my $coneccion = Mysql->connect(
"$hostname",
"$entrada7",
"$entrada5",
"$entrada6"
)
or die ("$!\n");
my $peticion = $coneccion->query(
"create table $entrada9 ($entrada11);"
)
or die ("$!\n");
my $bb = "$?";
if ($bb == 0) {
my $popup = $ventana->DialogBox(
-title => "Detalles Genesix",
-buttons => ["Cerrar"],
-background => 'black',
-foreground => 'white'
);
$popup->add(
"Label",
-text => "Tabla Creada Satisfactoriamente",
-background => 'black',
-foreground => 'white'
)->pack;
$popup->Show;
}
else {
my $popup1 = $ventana->DialogBox(
-title => "Error",
-buttons => ["OK"],
-background => 'black',
-foreground => 'white'
);
$popup1->add(
"Label",
-text => "Error No se pudo crear la Tabla",
-background => 'black',
-foreground => 'white'
)->pack;
$popup1->Show;
}
}
my $entrada5 = $entrada->get();
my $entrada6 = $entrada1->get();
my $entrada7 = $entrada3->get();
my $entrada9 = $entrada8->get();
my $entrada11 = $entrada10->get();
my $coneccion = Mysql->connect(
"$hostname",
"$entrada7",
"$entrada5",
"$entrada6"
)
or die ("$!\n");
my $peticion = $coneccion->query(
"create table $entrada9 ($entrada11);"
)
or die ("$!\n");
my $bb = "$?";
if ($bb == 0) {
my $popup = $ventana->DialogBox(
-title => "Detalles Genesix",
-buttons => ["Cerrar"],
-background => 'black',
-foreground => 'white'
);
$popup->add(
"Label",
-text => "Tabla Creada Satisfactoriamente",
-background => 'black',
-foreground => 'white'
)->pack;
$popup->Show;
}
else {
my $popup1 = $ventana->DialogBox(
-title => "Error",
-buttons => ["OK"],
-background => 'black',
-foreground => 'white'
);
$popup1->add(
"Label",
-text => "Error No se pudo crear la Tabla",
-background => 'black',
-foreground => 'white'
)->pack;
$popup1->Show;
}
}
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4