怎么样才能在ASP中显示ACCESS中所有的表名？

[wzx2275067]

怎么样才能在ASP中显示ACCESS中所有的表名？
使用
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left([Name],1)<>'~') AND (Left$([Name],4) <> 'Msys') AND (MSysObjects.Type)=1 ORDER BY MSysObjects.Name

会提示
Microsoft JET Database Engine 错误 '80040e09'

不能读取记录；在 'MsysObjects' 上没有读取数据权限。

有其他的解决方法吗？

[hchxxzx]

请参看以下代码

<%@ Language=VBScript %>
<%
'------- 利用ADOX取得Access中字段的说明 ---------------
Function OpenConnectionWithString(strMDBPath, strTableName, strColName)

Dim cat

Set cat = server.CreateObject("ADOX.Catalog")

cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strMDBPath
OpenConnectionWithString = cat.Tables(strTableName).Columns(strColName).Properties("Description").Value

Set cat = Nothing
End Function


response.Write OpenConnectionWithString(server.MapPath("skajs.mdb"), "ajkx", "ajqs")
%>


注意里面的cat.Tables,这个就是所有的表,视图都可以求取出来.