本文介绍了一段使用VBScript结合ADOX组件从指定的Access数据库文件中获取所有表名称的方法。通过创建ADO和ADOX对象并设置连接字符串来打开数据库，然后遍历表集合并输出每个表的名字。
<%
dim adoconn
set adoconn=server.createobject("adodb.connection")
connString="Driver={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("knddb06.mdb")
adoconn.open connString
set adoxCatalogx=server.createobject("ADOX.Catalog")
dim adoxCatalogx
set adoxCatalogx.ActiveConnection=adoconn
dim adoTable
set adoTable=server.createobject("ADOX.Table")
for each adoTable in adoxCatalogx.Tables
response.write adoTable.Name+"<br>"
next
%>
dim adoconn
set adoconn=server.createobject("adodb.connection")
connString="Driver={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("knddb06.mdb")
adoconn.open connString
set adoxCatalogx=server.createobject("ADOX.Catalog")
dim adoxCatalogx
set adoxCatalogx.ActiveConnection=adoconn
dim adoTable
set adoTable=server.createobject("ADOX.Table")
for each adoTable in adoxCatalogx.Tables
response.write adoTable.Name+"<br>"
next
%>
扫一扫
818
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
