Generierung von SQL-Anweisungen III

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

TBD/DBI.pm
sub keys {
   my $self = shift;

   my $st = $self->{'select_keys'};
   $st->execute();
   return $self->return_keys($st);
}

sub return_keys {
   my ($self, $st) = @_;

   my @keys = (); my $record;
   if (@{$self->{'keyfields'}} == 1) {
      while (defined($record = $st->fetch())) {
         push(@keys, $record->[0]);
      }
   } else {
      while (defined($record = $st->fetchrow_hashref())) {
         push(@keys, {%{$record}});
      }
   }
   return @keys;
}

*Bei initialize2 wurde bereits die für keys immer konstante SQL-Anweisung vorbereitet und in der internen Komponente select_keys abgelegt.
 

[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