Access-Datenbank: Anfänger verzweifelt - #3481 (Perl/CGI)

Strat

2004-08-19 22:19

User since
2003-08-04
5246 Artikel
ModeratorIn

1. 5. #d:/perl/bin/perl ist kein gueltiger Shebang, und deshalb wird -w auch nicht aktiviert und bringt dir keine Warnungen

2. wenn du eine Perl-Version >= 5.6 verwendest, dann schreibe besser

Code: (dl )

1
2
3

#! d:/perl/bin/perl
use warnings;
use strict;

3. § ist eine schlechte Wahl fuer ein Begrenzungszeichen, weil das stark zeichensatzabhaengig ist
4. Bei Kommunikation mit externen Systemen kann immer was schiefgehen. Wenn du da keine Fehlerabfrage machst, bekommst du es meistens an der falschen Stelle mit, und suchst dann ewig den Fehler...

5. \\ ist kein gueltiges Perl-Kommando... offenbar meinst du || (aber hier besser or verwenden)

Teste mal

Code: (dl )

#! d:/perl/bin/perl
use warnings
use strict;

use CGI qw(standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

use DBI;

my $cgi = CGI->new();
my $kundenNummer = $cgi->param('kundennummer');

print $cgi->header();
print $cgi->start_html('Antwort');
print $cgi->h3("Treffer:");
print $cgi->hr();

my $dbh = DBI->connect('DBI:ODBC:db1');
unless ($dbh) {
    die "Error: couldn't connect to DB: $DBI::errstr\n";
} # unless

my $sqlstatement=qq~SELECT * FROM table1 INNER JOIN table2 ON table1.kundennummer = table2.kundennummer WHERE kundennummer=?~;
my $sth = $dbh->prepare($sqlstatement) or
  die "Error in prepare: $dbh->errstr\n";

$sth->execute($kundenNummer) or
  die "Could not execute SQL statement ... maybe invalid? $DBI::errstr\n";

while (my @row=$sth->fetchow_arrayref){
    print "<P>@row</P>\n";
} # while

$sth->finish();

print $cgi->end_html();

$dbh->disconnect();

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/