From: Paul Sharpe
Date: March 12 1999 2:10pm
Subject: Help getting metadata from LISTFIELDS
List-Archive: http://lists.mysql.com/perl/1
Message-Id: <Pine.LNX.3.96.990312133255.15814H-100000@codd.miraclefish.com>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII

This is Msql-Mysql-modules-1.21_15.  Using a Mysql data source the
following code returns a field count matching the number of fields in
each table but no rows.  How do I access the metadata I expected this
'SQL EXTENSION' to return?

  for my $table ( $dbh->tables ) {
    print "$table\n";
    my $sth = $dbh->prepare("LISTFIELDS $table") || die $dbh->errstr;
    my $rc  = $sth->execute                      || die $dbh->errstr;
    print "rows = ",$sth->rows," fields = ",$sth->{NUM_OF_FIELDS},"\n";
    for my $row ( $sth->fetchrow_arrayref ) {
      print "\t@$row\n";
    }
  }

Paul

--
paul@stripped