OpenSchema 讀取資料庫表名執行個體

<%

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

%>

轉載于:https://www.cnblogs.com/tecsoon/archive/2009/04/02/1428309.html