ASPデータベースのテーブルの全内容を表示できない - ADODB.Connection

Question

愚かな質問のようですが、解決策が見つかりません。

は、しかし、私は8人の情報だけではなく、1を持っている：

この実装は、ここで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 
%> 

の検索結果を使用して、データベース上の各テーブルの完全な内容を表示します。

次に、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を使用して個々の値を検索します。