![]() |
|< 1 2 3 >| | ![]() |
26 entries, 3 pages |
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
#! c:/perl/bin/perl -w
use strict;
use CGI qw(:standard);
use DBI;
my $dbh = DBI->connect('DBI:ODBC:db1') or die "Fehler beim Connect:",$DBI::errstr;
my $sqlstatement = "SELECT Tabelle1.Adresse, Name, Telefon, Tabelle2.Rechnungsbetrag FROM Tabelle1 INNER JOIN Tabelle2 ON Tabelle1.Kundennummer = Tabelle2.Kundennummer";
my $sth = $dbh->prepare($sqlstatement) or die "Fehler beim prepare",$DBI::errstr;
$sth->execute or die "Could not execute SQL statement...maybe invalid?";
print header(-type => 'text/html'), start_html(-title => 'Antwort');
print h3('Treffer'), hr();
my @row = ();
my $i = 1;
print '<table>';
while (@row=$sth->fetchrow_array()){
print '<tr>';
print '<td>',$_,'</td>' for(@row);
print '</tr>';
my $rechnung = 'c:\rechnung'.$i.'.txt';
open(DATEI,">$rechnung") or print $!;
print DATEI "Rechnungsnummer:\t125\n";
print DATEI $row[1],"\n";
print DATEI $row[0],"\n\n\n";
print DATEI "-" x 20;
print DATEI "Rechnungsbetrag:\t",$row[3],"\n";
print DATEI "Mit freundlichen Grüßen\nsonnenprinz";
close DATEI;
$i++;
}
print '</table>';
print "</body>\n</html>";
Quote[Thu Jan 08 12:17:38 2004] [error] [client 127.0.0.1] Premature end of script headers: kunden.pl, referer: http://localhost/kunden.html
[Thu Jan 08 12:17:39 2004] [error] [client 127.0.0.1] DBI connect('db1','',...) failed: [Microsoft][ODBC Driver Manager] Der Datenquellenname wurde nicht gefunden, und es wurde kein Standardtreiber angegeben (SQL-IM002)(DBD: db_login/SQLConnect err=-1) at C:/Programme/Apache Group/Apache2/cgi-bin/kunden.pl line 7, referer: http://localhost/kunden.html
[Thu Jan 08 12:17:39 2004] [error] [client 127.0.0.1] Fehler beim Connect:[Microsoft][ODBC Driver Manager] Der Datenquellenname wurde nicht gefunden, und es wurde kein Standardtreiber angegeben (SQL-IM002)(DBD: db_login/SQLConnect err=-1) at C:/Programme/Apache Group/Apache2/cgi-bin/kunden.pl line 7., referer: http://localhost/kunden.html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#! c:/perl/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');
print "-------------[ ODBC DSNs ]-------------<br />\n";
my @dsn = DBI->data_sources("ODBC");
foreach my $dsn (@dsn) {
print "DSN: $dsn\n";
}
print "<br />\n";
![]() |
|< 1 2 3 >| | ![]() |
26 entries, 3 pages |