my $dbh = DBI->connect('DBI:ODBC:db1')
or die "Datenbank fehler!:",$DBI::errstr;my $abfrage = "SELECT Adressen.KdNr, Strasse, PLZ, Adresse, Name, Summe.Betrag FROM Adressen INNER JOIN Summe ON Adressen.KdNr = Summe.KdNr WHERE Adressen.KdNr = ?";
my $sth = $dbh->prepare($abfrage) or die "Fehler beim prepare",$DBI::errstr;
$sth->execute(param('KdNr')) or die "serverfehler!?!";
print header(-type => 'text/html'), start_html(-title => 'Auswahl');
danke, pogo!
Datum: 13.03.2005-23:13
