如何使用SQL在MS Access数据库中“显示表”？

Question

我基础上，这个问题的答案Access get all tables我的代码，但我得到以下错误：

DBD::ODBC::st execute failed: [Microsoft][ODBC Microsoft Access Driver] Record(s) cannot be read; no read permission on 'MSysObjects'. (SQL-42000) at direct.pl line 22.

[Microsoft][ODBC Microsoft Access Driver] Record(s) cannot be read; no read permission on 'MSysObjects'. (SQL-42000) at direct.pl line 22.

这里是我到目前为止已经试过。我评论了我的第一次尝试。目前的尝试是基于SELECT "Table" AS [Table]，旁观者在他的回答中提到question。无论哪种方式我都会得到同样的错误这里是我的代码，完整的：

use strict; 
use warnings; 

use DBI; 

my $dbh = DBI->connect('DBI:ODBC:MutantDB','','') 
    or die 'could not connect to database' . DBI::errstr; 

my $sth = $dbh->prepare('SELECT "Table" AS [Table], 
      MSysObjects.Name, 
      MSysObjects.Type 
      FROM MSysObjects 
      WHERE MSysObjects.Type =1 
      Or MSysObjects.Type=6 
      ORDER BY MSysObjects.Name;') 
    or die 'could not prepare statement' . $dbh->errstr(); 


# my $sth = $dbh->prepare('SELECT MSysObjects.*, MSysObjects.Type 
#    FROM MSysObjects 
#    WHERE (((MSysObjects.Type)=1)) OR (((MSysObjects.Type)=6));' 
#) or die 'could not prepare statment' . $dbh->errstr(); 

$sth->execute() or die $sth->errstr(); 

while(my ($name, $type) = $sth->fetchrow()){ 
    print "name: $name \t type: $type \n"; 
} 

Answer 1

模式怎么样？

http://www.cpan.org/authors/id/T/TL/TLOWERY/DBD-ADO-2.1.readme