my $dbh = DBI->connect("DBI:mysql:host=localhost;database=$Db","$DbBenutzer","$DbPwd")
        or die ("Kann mit Datenbank nicht kommunizieren", $! );

#Durch Einsatz eines Joins wird in $Variable der Inhalt des Feldes übergeben und mit Kommata getrennt
my $Variable = join ",",@ausgabe;


#Befehl, der an die Datenbank geschickt wird
#Wenn Vereinsfunktion angehakt ist, wird der entsprechende sql-Tag aufgerufen
if($Variable=~s/,Vereinsfunktion/ /) {$befehl = "select name, $Variable, (select Funktion from mitglied m , vereinsfunktionen v, funktion_has_mitglied f where m.mid = f.mitglied_mid AND f.Vereinsfunktionen_idFunktionen = v.idfunktionen AND m.name = '$SucheName')AS Funktion from mitglied where name = '$SucheName'";}
else {$befehl = "select name, $Variable from mitglied where name = '$SucheName'";}

my $sql  = $befehl;

my $tkdbi = $AusgabeFenster2->DBITable(
        -sql      &n
bsp; => $sql,
        -dbh           => $dbh,
        -debug      => 1,
        #Mitgliedsnummer id wird angezeigt bei 1 bei 0 wird sie verborgen
        -display_id    => 1,
        -maxchars    => {
            descr => 10,
        #
        },
        #Die Asugabegröße wird mit fill="both so groß als möglich ausgegeben
        )->pack( -fill => "both");