Thread Newbie -Keine Ausgabe bei mysql-query
(62 answers)
Opened by Gast at 2009-01-14 01:45
habe ich versucht, aber die vorhandene()n Datenquelle(n) werden nicht angezeigt
wobei ich beim script dbi4.pl eine gewünschte Ausgabe erhalte (Datenquelle also vorhanden) dbi4.pl: Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 #!C:/Perl/bin/perl.exe -w # dbi4.pl Anweisungs-Handles use DBI; BEGIN { print "Content-type: text/html\n\n"; use CGI::Carp qw/fatalsToBrowser/ } my $db = "adressen"; my $SQL_Driver = "mysql"; my $SQL_User="root"; my $SQL_Passw=""; my $dbh = DBI ->connect("DBI:$SQL_Driver:$db", $SQL_User, $SQL_Passw) or die "Verbindung konnte nicht hergestellt werden: $DBI::errstr\n"; my $sth= $dbh ->prepare("SELECT * FROM adressen") or die "Die SQL-Anweisung konnte nicht vorbereitet werden: $DBI::errstr\n"; ; $sth ->execute() or die "$DBI::errstr\n"; while (@ary = $sth ->fetchrow_array) { foreach (@ary) { print "$_ <br>"; } print "<br>"; } $sth ->finish; $dbh ->disconnect; |