读取Access数据库表名实例（转）
<%
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") & "
"
end if
rsSchema.movenext
Loop
set objConn=nothing
%>
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") & "
"
end if
rsSchema.movenext
Loop
set objConn=nothing
%>
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10294527/viewspace-124500/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
