#!f:/Perl/bin/perl -w use strict; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); use DBI; my $DBH = DBI->connect('DBI:ODBC:driver=Microsoft Access-Treiber (*.mdb); dbq=Kunden.mdb') or die $DBI::errstr; my $STH; my $CGI; my $antwort; $CGI = new CGI(); ### Suche oder Eintrag ### if ($CGI->param("suchanfrage")){ suche($CGI, $DBH, $STH); } elsif($CGI->param("eintrag")){ eintragen($CGI, $DBH, $STH); } ### Start Subroutine Suche ### sub suche{ my $nachname = param("name"); my $abteilung = param("kundennummer"); $STH = $DBH->prepare("SELECT * FROM Kunden Tabelle1.Kundennummer, Tabelle1.Name,Tabelle1.Telefon, Tabelle2.Rechnungsbetrag FROM Tabelle1 JOIN Tabelle2 USING(Kundennummer)") or die "Konnte SQL-Statement nicht bereitstellen:$!"; $STH->execute() or die "Ausfuehren nicht moeglich:$!"; ### Treffer ### if ($STH->rows != 0){ print < Antwort

Suchergebnis:

HERE_TEXT1 my @data; while (@data = $STH->fetchrow_array()) { my $kundennummer = $data[0]; my $adresse = $data[1]; my $name = $data[2]; my $telefonnummer = $data[3]; my $Rechnungsbetrag = $data[4]; print qq§\n\n\n\n\n\n\n§; } print qq§
Kundennummer: Adresse: Name: Telefonnummer: Rechnungsbetrag:
$kundennummer$adresse$name$telefonnummer$rechnungsbetrag
\n

Neue Suche!

\n
\n
\n\n§; } ### Keine Treffer ### else { print < Antwort

Leider brachte die Suche nach '$name' keine Ergebnisse!

Neue Suche!

HERE_TEXT2 } $STH->finish(); $DBH->disconnect; } ### Ende Subroutine Suche ### ### Start Subroutine Eintragen ### sub eintragen{ my ($kundennummer, $adresse, $name, $telefonnummer, $rechnungsbetrag)= (param('kundennummer'), param('adresse'), param('name'),param('telefonnummer'), param('rechnungsbetrag')); $STH = $DBH->do("INSERT INTO Kunden VALUES ('$kundennummer','$adresse','$name','$telefonnummer','rechnungsbetrag')") or die "Konnte SQL-Statement nicht bereitstellen:$!"; print < Antwort

Datenbankeintrag:

$kundennummer, $adresse, $name, $telefonnummer, $rechnungsbetrag

Neuer Eintrag!

HERE_TEXT3 $DBH->disconnect; } #Ende Subroutine Eintragen