Thread Newbie -Keine Ausgabe bei mysql-query (62 answers)
Opened by Gast at 2009-01-14 01:45

guest Gast
 2009-01-14 01:45
#117916 #117916
Hallo Freunde,
arbeite mich gerade in das Buch von DataBecker Perl CGI ein
dabei teste ich die erste DB-Verbindung
Fehlermeldungen bekomme ich keine nur einen weissen Bildschirm ohne Ausgabe
Vorraussetzung erfüllt (Db angelegt, Tabelle angelegt, Daten eingefügt
script (dbi4.pl)
gibt es es eine Möglichkeit zu testen ob Verbindung hergestellt wird?
bei den tests:
verfügbare Treiber anzeigen: Leere Seite (dbi2.pl)
vorhandene Datenquellen: Leere Seite 7dbi3.pl)
Meine scripte: ich nutze XP-Prof (habe es auch mit: #!C.\Perl\bin\perl.exe -w) versucht
dbi2.pl
Code: (dl )
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl -w
# dbi2.pl vorhandene Datenbanktreiber
use DBI;
print "Content-type: text/html\n\n";
@drivers = DBI->available_drivers;
print "vorhandene Treiber:<br>";
foreach (@driver){
print "$_<br>";
}

dbi3.pl
Code: (dl )
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl -w
# dbi3.pl vorhandene Datenquellen
use DBI;
print "Content-type: text/html\n\n";
$driver = "mysql";
@sources = DBI->data_sources($driver);
print "vorhandene Datenquellen:<br>";
foreach (@sources){
print "$_<br>";
}

Verbindung und auslesen aus Db-Tabelle dbi4.pl
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl -w
# dbi4.pl Anweisungs-Handles
use DBI;
print "Content-type: text/html\n\n";
my $db = "adressen";
my $SQL_Driver = "mysql";
my $SQL_User="root";
my $SQL_Passw="Felix31.07";
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();
while (@ary = $sth->fetchrow_array)
{
foreach (@ary)
{
print "$_ ";
}
$sth->finish;
$dbh->disconnect;
}

View full thread Newbie -Keine Ausgabe bei mysql-query