Re: Re: Class::DBI example

[lachoy]

Hi Tony,

I created a module to do this for SPOPS. I've tested this on MySQL, PostgreSQL and DB2/AS400 thru ODBC. Basically, all you need to do is issue a dummy query against a table so DBI can grab the metadata. Here's an example:

 my $dbh = DBI->connect( ... )
           || die "Error connecting: $DBI::errstr";
 $dbh->{RaiseError} = 1;
 my $sql = "SELECT * FROM $table where 1 = 0";
 my ( $sth );
 eval {
     $sth = $dbh->prepare( $sql );
     $sth->execute;
 };
 if ( $@ ) { die "Cannot fetch column info: $@" }
 my @column_names = @{ $sth->{NAME} };
 my @column_types = @{ $sth->{TYPE} };

I think most DBDs support this basic metadata. Whenever I've found one that didn't support both of these (like DBD::ASAny at one time), I've harrangued the author and always gotten a quick response :-)

Chris
M-x auto-bs-mode