Getting FieldNames from DBI Module

[Freedolen]

Hi,

I am using DBI module to interact with MS-Access Database. I need to know in DBI module, is there any similar method as 'FieldNames()' from Win32::ODBC to get the Field names from MS-Access table.

Thanks in Advance,
Freedolen

[miller]

Well, assuming that MS-Access supports the standard SQL commands for queries, then just describe the table.

sub descTableCols {
    my $tablename = shift;
 
    my @columns = ();
    my $sth = $dbh->prepare(q{DESC } . $tablename);
    $sth->execute or die $dbh->errstr;
    while (my $hashref = $sth->fetchrow_hashref) {
        push @columns, $hashref->{Field};
    }
    $sth->finish; undef $sth;
 
    return @columns;
}
 

- Miller

[Freedolen]

Hi Miller,

Thanks for your work, but MS-Access doesn't supports 'DESC' statement. It throws error message as "Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.".

I have Googled and got the following coding to get the column names from table. But beyond this i need to know is there any one liner available in DBI as 'FieldNames()' in ODBC to get the column names.

my $colsth = $dbh->column_info('','',$tablename,'');
my @colnames = ();
my $col_name = "";
while(my (undef, undef, undef, $col_name) = $colsth->fetchrow_array)
{
     push (@colnames, $col_name);
}
print @colnames;
 

--Freedolen

[miller]

I have Googled and got the following coding to get the column names from table. But beyond this i need to know is there any one liner available in DBI as 'FieldNames()' in ODBC to get the column names.

Not that I know of, No.

- Miller