无忧公告:  建站无忧一号群开放:群号:46305815 一起讨论建站时所遇到的问题。   
内容搜索: 标题内容作者
背景: #EDF0F5 #FAFBE6 #FFF2E2 #FDE6E0 #F3FFE1 #DAFAF3 #EAEAEF 默认  
阅读新闻

对access数据库操作

[日期:2008-01-24] 来源:互联网  作者:无忧站长收集 [字体: ]
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?
阅读:
录入:无忧

推荐 】 【 打印
本文评论       全部评论
发表评论


点评: 字数
姓名:

  • 尊重网上道德,遵守中华人民共和国的各项有关法律法规
  • 承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • 本站管理人员有权保留或删除其管辖留言中的任意内容
  • 本站有权在网站内转载或引用您的评论
  • 参与本评论即表明您已经阅读并接受上述条款