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
hallo zusammen,
hier mein problem.
ich habe eine access datenbank aus zwei tables erstellt. table 1 enthält die felder kundennummer, adresse, name und telefonnummer. table 2 enthält kundennummer und rechnungsbetrag. über ein schlüsselwort (kundennummer) stehen die beiden tables in verbindung. jetzt soll ich mit hilfe eines html-formulars diese datenbank durch ein cgi-script nach dem schlüsselwort durchsuchen. bei einem treffer sollen die daten beider tables, die sich auf das schlüsselwort beziehen, in tabellenform angezeigt werden. außerdem soll eine textdatei als rechnung generiert werden, auf der die adresse, der name und die rechnungssumme des jeweiligen kunden angeführt werden. die access datei heißt db1.
hier meine versuche, was mache ich falsch. es klappt nicht!!!
kunden.html:
<html>
<head>
<title>Eingabeformular</title>
</head>
<body>
<h1><center>Kunden</center></h1>
<form action="/cgi-bin/kunden.pl" method="post">
<hr>
Bitte geben Sie die Kundennummer ein:
<input name ="eingabe" size= "50">
<hr>
<input type="submit" value="Abschicken">
<input type="reset" value="Löschen">
</form>
</body>
</html>
kunden.pl:
#c:/perl/bin/perl -w
use strict;
use CGI qw(:standard);
use DBI;
my $dbh = DBI->commect('DBI:ODBC:db1');
my $sqlstatement=qq§SELECT Tabelle1.Adresse, Name, Telefon, Tabelle2.Rechnungsbetrag
FROM Tabelle1, Tabelle2 AND 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>;
kann mir jemand helfen
gruss
uwe
hier mein problem.
ich habe eine access datenbank aus zwei tables erstellt. table 1 enthält die felder kundennummer, adresse, name und telefonnummer. table 2 enthält kundennummer und rechnungsbetrag. über ein schlüsselwort (kundennummer) stehen die beiden tables in verbindung. jetzt soll ich mit hilfe eines html-formulars diese datenbank durch ein cgi-script nach dem schlüsselwort durchsuchen. bei einem treffer sollen die daten beider tables, die sich auf das schlüsselwort beziehen, in tabellenform angezeigt werden. außerdem soll eine textdatei als rechnung generiert werden, auf der die adresse, der name und die rechnungssumme des jeweiligen kunden angeführt werden. die access datei heißt db1.
hier meine versuche, was mache ich falsch. es klappt nicht!!!
kunden.html:
<html>
<head>
<title>Eingabeformular</title>
</head>
<body>
<h1><center>Kunden</center></h1>
<form action="/cgi-bin/kunden.pl" method="post">
<hr>
Bitte geben Sie die Kundennummer ein:
<input name ="eingabe" size= "50">
<hr>
<input type="submit" value="Abschicken">
<input type="reset" value="Löschen">
</form>
</body>
</html>
kunden.pl:
#c:/perl/bin/perl -w
use strict;
use CGI qw(:standard);
use DBI;
my $dbh = DBI->commect('DBI:ODBC:db1');
my $sqlstatement=qq§SELECT Tabelle1.Adresse, Name, Telefon, Tabelle2.Rechnungsbetrag
FROM Tabelle1, Tabelle2 AND 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>;
kann mir jemand helfen
gruss
uwe