| 热门文章 |
 |
|
| 编辑推荐 |
 |
|
|
|
|
|
作者:佚名
来源:不详 点击: 更新:2006-12-20
|
|
dim appaccess, db, atable
set appaccess=createobject("access.application") set db=appaccess.dbengine.opendatabase(server.mappath("northwind.mdb"))
for each atable in db.tabledefs if instr(atable.name,"Sys")=0 then response.write atable.name + "<br>" end if next
db.close appaccess.quit set db=nothing set appaccess=nothing 现存问题: 需要服务器安装access,而且每次都要启动access,这样肯定不行。 怎么能完全通过ado列举mdb中的table?
|
|
|