Opened by sonnenprinz at 2004-01-07 19:34
User since
2004-01-05
36 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-01-05
36 Artikel
BenutzerIn
ich habe bereits den DBD::ODBC treiber des DBI-Moduls installiert.
hier das script in der jetzigen fassung:
#! c:/perl/bin/perl -w
use strict;
use CGI qw(:standard);
use DBI;
my $dbh = DBI->connect('DBI:ODBC:db1');
my $sqlstatement=qq§SELECT Tabelle1.Adresse, Name, Telefon, Tabelle2.Rechnungsbetrag
FROM Tabelle1 INNER JOIN Tabelle2 ON Tabelle1.Kundennummer = Tabelle2.Kundennummer§;
my $sth = $dbh->prepare($sqlstatement);
$sth->execute ||
die "Could not execute SQL statement ... maybe invalid?";
print <<HERE_TEXT;
Content-type:text/html
<html>
<head>
<title>Antwort</title>
</head>
<body>
<h3>Treffer</h3>
<hr>
HERE_TEXT
my @row;
while (@row=$sth->fetchrow_array)
{print "<p>@row</p>\n"}
print qq§</body>\n</html>;
hier das script in der jetzigen fassung:
#! c:/perl/bin/perl -w
use strict;
use CGI qw(:standard);
use DBI;
my $dbh = DBI->connect('DBI:ODBC:db1');
my $sqlstatement=qq§SELECT Tabelle1.Adresse, Name, Telefon, Tabelle2.Rechnungsbetrag
FROM Tabelle1 INNER JOIN Tabelle2 ON Tabelle1.Kundennummer = Tabelle2.Kundennummer§;
my $sth = $dbh->prepare($sqlstatement);
$sth->execute ||
die "Could not execute SQL statement ... maybe invalid?";
print <<HERE_TEXT;
Content-type:text/html
<html>
<head>
<title>Antwort</title>
</head>
<body>
<h3>Treffer</h3>
<hr>
HERE_TEXT
my @row;
while (@row=$sth->fetchrow_array)
{print "<p>@row</p>\n"}
print qq§</body>\n</html>;