Hallo,
beschäftige mich z.Zeit mit perl tk und hab folgendes problem:
Ich möchte das Ergebnis einer mysql abfrage in eine tk tabelle ausgeben.
sub datenbank ($) {my ($arg) =@_;
use DBI;
use Tk;
use strict;
my $mw = MainWindow->new;
#my $box = $mw->Listbox(
# -relief => 'sunken',
# -height => 5,
# -setgrid => 5,
# );
my $box =$mw->Listbox(-selectmode =>"single")->pack();
#damit kann man in die Box klicken
$box->bind('<Button-1>', sub { $box->configure(-background
=> $box->get($box->curselection()) );
});
my $dbh=DBI->connect ("DBI:mysql:host=localhost;database=$arg","root","");
my $sth = $dbh->prepare ("Select * From mitglieder");
$sth->execute();
while(my @items=$sth->fetchrow_array)
{
$box->insert('end', @items);
}
my $scroll = $mw->Scrollbar(-command => ['yview', $box]);
$box->configure(-yscrollcommand => ['set', $scroll]);
$box->pack(-side => 'left', -fill => 'both', -expand => 1);
$scroll->pack(-side => 'right', -fill => 'y');
}
er gibt die daten schon aus, aber ich möchte sie nebeneinander stehenm haben in Tabellenform und zusätlich möchte ich auch noch die Namen der einzelnen Spalten dabei haben.
Danke für eure Mühe
dechs
Datum: 18.03.2006-12:34
Datenbankabfrage in perl tk tabelle ausgeben
