ADO的OpenSchema

最新推荐文章于 2021-01-28 13:08:34 发布

DotNetFirst某小号

最新推荐文章于 2021-01-28 13:08:34 发布

阅读量1.2k

点赞数

分类专栏： Asp 文章标签： table microsoft schema border access

Asp 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

<%
Dim oConn,oRS,sConn

Const adUseClient = 3
Const adSchemaTables = 20

Set oConn = Server.CreateObject("ADODB.Connection")
sConn = "DBQ="+server.mappath("chinawuyishan.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
oConn.CursorLocation = adUseClient
oConn.Open connstr
Set oRS = oConn.OpenSchema(adSchemaTables)
%>
<table border="1">
<tr>
    <td>库名</td>
    <td>表名</td>
    <td>所有者</td>
    <td>类型</td>
    <td>描述</td>
</tr>
<%
Do Until oRS.EOF
%>
      <tr>
       <td><% = oRS("TABLE_CATALOG") %></td>
       <td><% = oRS("TABLE_NAME") %></td>
       <td><% = oRS("TABLE_SCHEMA") %></td>
       <td><% = oRS("TABLE_TYPE") %></td>
       <td><% = oRS("DESCRIPTION") %></td>
     </tr>
<%
      oRS.MoveNext
Loop
%>
</table>
<%
    oConn.Close
   Set oConn = Nothing
%>