读取Access数据库表名实例
时间:2007-12-23 来源:不详 作者:迈克DB
<%
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
%>

文章评论
共有位Admini5网友发表了评论 查看完整内容