Readers: 2
![]() |
|< 1 2 3 4 5 6 7 >| | ![]() |
63 entries, 7 pages |
Struppi+2009-01-15 14:13:45--deletemast+2009-01-15 13:50:10--ich verstehe nur nicht, warum ein script aus einem "Lehrbuch" nicht funktioniert,....
Da kann ich mir jetzt eine Bemerkung nicht verkneifen, Data Becker Bücher haben einen schlechten Ruf, ich kenn deines nicht und hab seit den 80'ern auch keines mehr in den Händen gehalten. Aber evtl. ist der Ruf ja begründet?
1
2
3
4
5
6
7
8
9
10
#!C:/Perl/bin/perl.exe -w
# dbi3.pl vorhandene Datenquellen
use DBI;
print "Content-type: text/html\n\n";
my $driver = "mysql";
my @sources = DBI ->data_sources($driver);
print "vorhandene Datenquellen (insgesamt " . scalar( @sources ) . "):<br />";
foreach my $s (@sources) {
print "$s<br>";
}
QuoteNote that many drivers have no way of knowing what data sources might be available for it. These drivers
return an empty or incomplete list or may require driver-specific attributes.
my @sources = DBI->data_sources("mysql",{"host" => $host, "port" => $port});
1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!C:/Perl/bin/perl.exe -w # dbi3.pl vorhandene Datenquellen use DBI; print "Content-type: text/html\n\n"; my $dbh = DBI->connect("DBI:mysql:database=adressen;host=localhost", "root", "", {'RaiseError' => 1}); my @sources = DBI->data_sources("mysql",{"localhost" => $host, "3306" => $port}); @drivers = DBI->available_drivers; print "vorhandene Datenquellen:<br>"; for (@drivers) { print join("\n", DBI->data_sources($_)); }
![]() |
|< 1 2 3 4 5 6 7 >| | ![]() |
63 entries, 7 pages |