1

我的代码基于问题Access get all tables的答案，但出现以下错误：

DBD::ODBC::st 执行失败：[Microsoft][ODBC Microsoft Access Driver] 无法读取记录；'MSysObjects' 没有读取权限。(SQL-42000) 在 direct.pl 第 22 行。

[Microsoft][ODBC Microsoft Access Driver] 无法读取记录；'MSysObjects' 没有读取权限。(SQL-42000) 在 direct.pl 第 22 行。

这是我到目前为止所尝试的。我注释掉了我的第一次尝试。当前的尝试是基于SELECT "Table" AS [Table]的，而旁观者在他对上述问题的回答中提到了这一点。无论哪种方式，我都会遇到相同的错误。这是我的完整代码：

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";
}
4

1 回答 1

2

架构怎么样？

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

于 2010-02-11T14:59:54.090 回答