1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
|
# Creer un nouveau fichier excel
my $workbook = Spreadsheet::WriteExcel->new("$rr1");
# Add a worksheet
my $worksheet = $workbook->addworksheet();
# Add and define a format
my $format = $workbook->addformat(); # Add a format
$format->set_bold(); #
$format->set_align('center');
############################
$requete = "select count(nom) from Xwhere nom order by date desc";
$sth = $dbh->prepare($requete);
$sth->execute();
while(@row = $sth->fetchrow_array){
$Nbre2 = $row[0];
}
############################
#EXECUTE select dans base mysql
$requete = "SELECT * FROM X r where type ='C' order by date desc";
$sth = $dbh->prepare($requete);
$dbh->{'mysql_use_result'}=1;
$sth->execute();
#renvoie information des differents champ dans une variable globale
while(@row = $sth->fetchrow_array){
$dep_D = $row[0];
$dep_N = $row[1];
$dep_P= $row[2];
$dep_L= $row[3];
$dep_T = $row[4];
$dep_C =$row[5];
$dep_Di =$row[6];
$dep_J = $row[7];
$dep_E =$row[8];
#
# And if the keep_leading_zeros property is set:
for $i (1.."$Nbre2") {
#print "$i\n";
$worksheet->write($i, 0, "$dep_D");
$worksheet->write($i, 1, "$dep_N");
$worksheet->write($i, 2, "$dep_P");
$worksheet->write($i, 3, "$dep_L");
$worksheet->write($i, 4, "$dep_T");
$worksheet->write($i, 5, "$dep_C");
$worksheet->write($i, 6, "$dep_Di");
$worksheet->write($i, 7, "$dep_J");
$worksheet->write($i, 8, "$dep_E");
}
}
$sth -> finish;
$dbh -> disconnect; |
Partager