|< 1 ... 4 5 6 7 8 9 10 ... 12 >| | 118 Einträge, 12 Seiten |
# $table2->addRow($sth->{NAMES});
$table2->addRow($sth->{NAMES});
$table2->addRow('Spalte1','Spaltenname2','...');
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use HTML::Table;
print header(),start_html();
my $dbh = DBI->connect("DBI:CSV:f_dir=f:/Apache2/cgi-bin/")
or die "Konnte Datenbank nicht oeffnen! $!";
my $stmt = "SELECT * FROM Kunden";
my $sth = $dbh->prepare($stmt) or die $dbh->errstr;
$sth->execute() or die $dbh->errstr;
my $table2 = new HTML::Table;
$table2->addRow('DHL','K_N','Hellmann');
while(my @cell_values = $sth->fetchrow_array()){
$table2->addRow(@cell_values);
}
$table2->print;
$dbh->disconnect;
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
#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;
#use HTML::Table;
use Data::Dumper;
print header('text/plain'),start_html();
my $dbh = DBI->connect("DBI:CSV:f_dir=f:/Apache2/cgi-bin/")
or die "Konnte Datenbank nicht oeffnen! $!";
my $stmt = "SELECT * FROM Kunden";
my $sth = $dbh->prepare($stmt) or die $dbh->errstr;
$sth->execute() or die $dbh->errstr;
#my $table2 = new HTML::Table;
#$table2->addRow('DHL','K_N','Hellmann');
my @results;
while(my @cell_values = $sth->fetchrow_array()){
# $table2->addRow(@cell_values);
push @results,[@cell_values];
}
print Dumper(\@results);
#$table2->print;
$dbh->disconnect;
|< 1 ... 4 5 6 7 8 9 10 ... 12 >| | 118 Einträge, 12 Seiten |