读取Access数据库表名实例
点击次数：22 次 发布日期：2008-11-22 13:50:55 作者：源代码网
|
<% strConn="DBQ="+server.mappath("kendylan.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set objConn=server.createobject("Adodb.connection") objConn.open strConn set rsSchema=objConn.openSchema(20) rsSchema.movefirst Do Until rsSchema.EOF if rsSchema("TABLE_TYPE")="TABLE" then response.write rsSchema("TABLE_NAME") & "<br>" end if rsSchema.movenext Loop set objConn=nothing %> 源代码网供稿. |
