Mensajes

En el siguiente ejemplo, se trabaja con Perl, Tk y el modulo DBI para conectarse a una DB de Mysql activa local. Si la conexión es satisfactoria entonces te sale otra ventanita pidiendote que ingreses la consulta SQL a realizar dentro de mysql, luego de obtener los datos estos son imprimidos en una pantalla de la ventana Tk en cuestion.

Para los que tienen dudas de como mezclar Perl/Tk con otros modulos por ejemplo DBI para Mysql.

Código (perl) [Seleccionar] Expandir



#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use DBI;

my $ventana = MainWindow->new();
$ventana->minsize(qw(400 400));
$ventana->maxsize(qw(400 400));

my $menu = $ventana->Menu(-relief => 'flat');
$ventana->configure( -title => "Proyecto I", -menu => $menu);

my $comando = $menu->Menubutton( -label => "Archivo", -underline => 1);
$comando->command( -label => "Salir", -command => sub { exit(1); } );

my $comando1 = $menu->Menubutton( -label => "Opciones" );
$comando1->command( -label => "Salida", -command => sub { exit(1); } );


my $frama = $ventana->Frame(-borderwidth => 2, -relief => 'groove')->pack();
$frama->Label(-text => "Base de Datos" )->pack();
my $a = $frama->Entry(-width => 20, -background => 'white')->pack(-padx => 10);
$frama->Label(-text => "Usuario" )->pack();
my $b = $frama->Entry(-width => 20, -background => 'white')->pack(-padx => 10);
$frama->Label(-text => "Contrasena" )->pack();
my $c = $frama->Entry(-width => 20, -background => 'white', -show => '*')->pack(-padx => 10, -pady => 10);

my $boton = $ventana->Button(-text => "Conectar", -relief => 'raised', -width => 15, -command => \&conectar )->pack(-pady => 10);

#$ventana->Photo('imagen', -file => 'mysql.gif');
#$ventana->Label(-image => 'imagen', -relief => 'groove')->pack(-pady => 10);


MainLoop();


sub conexión {

my $servidor = $a->get();
my $usuario = $b->get();
my $contrasena = $c->get();

my $conexión = DBI->connect("dbi:mysql:$servidor", $usuario, $contrasena, { PrintError => 0 } );

}


sub conectar {

do conexión;

if ( conexión ) {
my $dialogo = $ventana->messageBox(-message => "Conectado Satisfactoriamente!", -icon => 'warning', -type => 'Ok');
$boton->configure( -state => 'disabled' );

& consulta();

} else {

my $dialogo = $ventana->messageBox(-message => "Error de conexión!!", -icon => 'error', -type => 'Ok');

}
}


sub consulta {

my $ventanita = MainWindow->new();
$ventanita->Label(-text => "Escribe la Consulta")->pack(-padx => 10);
my $consult = $ventanita->Entry(-width => 30, -background => 'white', -foreground => 'red')->pack(-padx => 10);

$ventanita->Button(-text => "Realizar", -width => 20, -relief => 'sunken', -command => sub {

my $consulta1 = $consult->get();

do conexión;
my $peticion = conexión->prepare( qq{$consulta1} ) or my $dialogo = $ventanita->messageBox(-messagebox => "Consulta mal formulada!!", -icon => 'error', -type => 'Ok');

$peticion->execute();

my $texto = $ventanita->Text( -width => 40, -height => 30, -background => 'white' )->pack();

while (my @todo = $peticion->fetchrow_array) {

$texto->insert("end", "@todo  ");
$texto->insert("end", "\n");

}

$peticion->finish();

})->pack();
}



SHOW WARNINGS;

Entre Winder y yo hay un especial carino   

Pero no vayan mas lejos de lo que es, el es una persona tan parecida en cierto modo a mi que por ello me he auto identificado bastante con el 

Entonces somos como dos hermanitos que se quieren    incluso el elefantito de mi avatar me lo ha regalado el para mi cumple, a que esta lindo 

En cuanto a Saxo y sus opiniones, sinceramente para mi. Saxo puede irse al diablo, ninguno de ustedes dejen de usar firmas por quejicas de gente que vive en un bucle de amargue y que son un total fracaso en su vida y como persona.

No veo porque discutirse por este tema. A mi particularmente me gusta el avatar de Winder, y las firmas de los usuarios no me parece que molesten en algo, al contrario anima a conocer la personalidad de cada quien ya que tienen libertad de elegir que caracteristicas puede tener sus perfiles de usuarios.

Ciertamente hay gente que no cambiara jamas. Ustedes no pierdan su valioso tiempo discutiendo con usuarios de tan insinificante valor personal,  mantengan sus firmas activas a mi algunas me encantan.  Y llevo la mia propia le guste a quien le disguste, y somos libres de elegir que firma llevar.

Al que le moleste o no le guste las firmas que los usuarios tienen en sus perfiles tiene una gran puerta abierta para irse.

Un saludo para mis estimados usuarios normales que llevan firmas 

Apoyemos las firmas de usuarios del foro 

Por cierto se me olvidaba, un caluroso saludo para mi estimado Winder   

Lo siento es que casi este Subforo no lo suelo visitar y no me entero de los problemas o cambios del mismo   

Pero mi buzon no esta lleno, apenas tengo unos 7 mensajes o algo asi... y todos son de mi chiquito Winder. Asi que yo ya sabia que el problema venia por otro lado pero no por mi. 

Tengo como 8 dias que no envio 1 solo mensaje personal a nadie.....

Como es esto que excedi el envio de mensajes personales??? Queria enviar uno hoy y me sale con esa.   

No podria aprenderme todas las funciones.....

Pero gracias por las sugerencias, apenas comienzo pero ya voy caminando 

Ok...

Código (java) [Seleccionar] Expandir


catch(NumberFormatException nfex){    System.out.println(nfex.toString());    //sentencias}catch (Exception e)



En relacion a nfex y e, son nuevos tipos de objetos definidos por ti o estos ya existen?? O sea es totalmente legal que yo haga algo tipo :

Código (java) [Seleccionar] Expandir


catch(Exception manzana){    //sentencia }


O explicitamente existen objetos ya definidos para cada metodo... ?

Continuo haciendo referencia a las Excepciones porque es mi punto debil por el momento con Java.

Bueno, gracias   

Es un poco complicado entender el manejo de Excepciones en Java para mi    (Aunque las excepciones en PL/SQL las entiendo perfectamente y se cuando debo y cuando no aplicarlas     ) yo que vengo de lenguajes puramente estructurados como C pero ahi estoy intentando.

Yo pensaba que podia evaluar el vacio de una variable tipo String con " "  pero veo que no. Igual me tomare este ejemplo enserio para poder continuar con mi aprendizaje... se que el codigo esta sumamente principiante pero soy autodidacta y apenas llevo menos de 1 semana tratando de relacionarme con Java y comprenderlo...

Igual, mil gracias          

Hola, estoy recien aprendiendo Java. 

Bueno tengo una variable tipo caracteres, y quiero que cuando el usuario deje esto vacio, pues salga algun warning o algo asi, pero el codigo me esta obviando eso, y me esta imprimiendo el otro valor    todavia estoy un poco liada en cuanto al manejo de excepciones en Java ... cualquier tipo de explicacion se apreciaria 

Código (java) [Seleccionar] Expandir


import java.util.*;
import java.io.*;

public class Sol {

public static String palabra;

public static void main(String[] args) throws IOException {

BufferedReader a = new BufferedReader(new InputStreamReader(System.in));

int numeral = 15;

Verdura.naranja(numeral);

System.out.println("Inserta palabra");
palabra = a.readLine();

if ( palabra == "" ) {
System.out.println("Debiste poner algo");
} else {
Verdura.naranja(palabra);
}
}
}

class Verdura {

private static int numero = 10;
private static int numero1 = 20;

public static int naranja(int numeral) {

System.out.println("Respuesta es " + numeral+(numero*numero1));

return 0;
}

public static void naranja(String catarata) {

try {

PrintWriter b = new PrintWriter(new FileWriter("archivo.txt"));

b.println(numero);
b.println(numero1);

b.close();
} catch (IOException e) {

System.out.println("No se puede crear el archivo");

}
}
}