Problem bei der Ausgabe von MySQL-Daten

[klaus]

Moin,

ich habe folgendes Problem:

es sollen Daten aus der MySQL-Datenbank ausgelesen werden,
und zwar sind das verschiedene Pflanzenkrankheiten,
die in eine Exceldatei mit 4 Blättern ausgegeben werden sollen.

Code: Alles auswählen

  my $excel = WWW::WebExcel->new(-filename => 'neu.xls');


    my $sqlErgebnis4 ="SELECT Pflanzennr,Stadium, Sprosslaenge, Wurzelhals, Blattansatz, Blaetter
      FROM Morpholog
      WHERE Wiederholung='$wiederholung' and VersuchsID='$VersuchsID' and TerminID='$TerminID'";

    my $sthMorphologie =  $dbh->prepare($sqlErgebnis4);

    $sthMorphologie->execute();

    $excel->add_worksheet('Morphologie',{-headers => \@{$sthMorphologie->{'NAME'}}});
    while(@row4 = $sthMorphologie->fetchrow_array()){
        $excel->add_row('Morphologie',[@row4]);
    }
    $sthMorphologie->finish();

    my $sqlErgebnis2 ="SELECT Pflanzennr,Blattnr1,Blattnr2,Blattnr3,Blattnr4,Blattnr5,Blattnr6,Blattnr7,Blattnr8,
      Blattnr9,Blattnr10,Blattnr11,Blattnr12,Blattnr13,Blattnr14
      FROM BefallPerenospora
      WHERE Wiederholung='$wiederholung' and VersuchsID='$VersuchsID' and TerminID='$TerminID'";

    my $sthPeronospora =  $dbh->prepare($sqlErgebnis2);

    $sthPeronospora->execute();

    $excel->add_worksheet('Peronospora',{-headers => \@{$sthPeronospora->{'NAME'}}});
    while(@row2 = $sthPeronospora->fetchrow_array()){
        $excel->add_row('Peronospora',[@row2]);
    }
    $sthPeronospora->finish();

Dies sind die ersten beiden Krankheiten,
allerdings werden nur die daten der ersten gelesen,
von der zweiten werden nur die Spaltennamen in die
Excel-Datei geschrieben.
Wenn ich die Krankheiten umtausche wird wieder nur
die erste eingelesen (nun die andere Krankheit).

Was ist falsch?!?

Vielen Dank Matthias