Metainformationen einer Datenbank V

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

tables2.pl
my @tables = ();
my $st = $db->table_info();
my $record;
while (defined($record = $st->fetchrow_hashref())) {
   push(@tables, $record->{TABLE_NAME});
}
$st->finish;

foreach my $table (@tables) {
   $st = $db->prepare("select * from $table");
   $st->execute;
   my @names = $st->{NAME};
   print "$table: ", join(", ", @{$st->{NAME}}), "\n";
   $st->finish;
}

*Die Ermittlung der Tabellennamen läßt sich auch abkürzen zu:
my @tables = $db->tables();
 
*Die Angaben über die einzelnen Felder sind leider nicht ohne entsprechende Abfragen zu ermitteln.
 
*Der Primärschlüssel läßt sich über die Attribute des Abfrage-Henkels leider nicht ermitteln.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000