ASP无法在数据库 - ADODB.Connection上显示表的完整内容

Question

这似乎是一个愚蠢的问题，但我找不到解决方案。

此实现使用ADODB.Connection

显示数据库上每个表的完整内容

'Display Tables'
Set rs = objConn.OpenSchema(20)
RPW("<table>")
RPW("<tr bgcolor=#888>")
    RPW("<td>Table</td>")
RPW("</tr>")

rs.MoveFirst
Do While Not rs.eof
    IF rs(3) = "TABLE" Then
        RPW("<tr bgcolor=#CCCCCC>")
        RPW("<td>" & rs(2) & "</td>")
        RPW("</tr>")
    End If
    rs.MoveNext
Loop

Call DisplayTable(objConn, objRecd, "Family")
Call DisplayTable(objConn, objRecd, "PersonalInformation")
Call DisplayTable(objConn, objRecd, "Special")
%>
</body>
</html>
<%
Function RPW(text)
    Response.Write(text)
End Function

Function DisplayTable(objconn, objrecd, table)
P2SN("Display Tables")
    RPW("</table>")
    strSQL = "SELECT * FROM " & table
    On Error Resume Next
    Set objrecd = objconn.Execute(strSQL)
    'Set objrecd.Open(strSQL), objConn

    If (objrecd.BOF And objrecd.EOF) Then
        P2SN("No Recoreds Found")
        'Response.End
    End If

    RPW("<table>")
    RPW("<tr bgcolor=#CCCCCC>")
    For Each x In objrecd.Fields
        RPW("<td>" & x.Name & "</td>")
    Next
    RPW("</tr>")
    RPW("<tr bgcolor=#CCCCCC>")
    For Each x In objrecd.Fields
        RPW("<td>" & x.Value & "</td>")
    Next
    RPW("</tr></table>")
End Function
%>

结果：

但我有8个人的信息不仅仅是一个。

然后我不知道OpenSchema(20)是什么意思。

有人请帮助我。提前谢谢。

Answer 1

Function DisplayTable(objconn, objrecd, table)
    P2SN("Display Tables")
    RPW("</table>")
    strSQL = "SELECT * FROM " & table
    On Error Resume Next
    Set objrecd = objconn.Execute(strSQL)
    If (objrecd.BOF And objrecd.EOF) Then
        P2SN("No Recoreds Found")
    End If

    RPW("<table>")
    Do While Not objrecd.EOF
    RPW("<tr bgcolor=#CCCCCC>")
    For Each x In objrecd.Fields
        RPW("<td>" & x.Name & "</td>")
    Next
    RPW("</tr>")
    RPW("<tr bgcolor=#CCCCCC>")
    For Each x In objrecd.Fields
        RPW("<td>" & x.Value & "</td>")
    Next
    objRecd.MoveNext
    Loop
    RPW("</tr></table>")
End Function

显示表的所有内容，使用Loop查找单个值。