showresultset.inc

这是一个asp.net的全文教程.里面还有数据库的数据.对初学者有很大的帮助

<Script Language="VB" Runat="Server">
       ' 依照DSN联机字符串的指示，执行tSQL字符串变量的Select语句
       Sub ShowResultSet(ByVal DSN As String, Byval tSQL As String)
              Dim lRet As BOOLEAN = True
              Dim OBJConn As OleDBConnection = New OleDbConnection(DSN)
              OBJConn.Open()           ' 创建数据库连接
              ' 声明并使用OleDbCommand对象执行SQL语句
              Dim OBJCmd As OleDBCommand = New OleDbCommand(tSQL, OBJConn)
              Dim OBJReader As OleDbDataReader = OBJCmd.ExecuteReader()
              ' 设置OleDbDataReader类的数据源
              Do Until Not lRet
                     Response.Write("<Form Runat=""Server""><Table Border=1>") 
                     ' 输出表的字段名称
                     Response.Write("<Tr>")
                     Dim I As Integer 
                     For I = 0 To OBJReader.FieldCount()-1
                            Response.Write("<Td>" & OBJReader.GetName(I) & "</Td>")
                     Next
                     Response.Write("</Tr>")
                     Do While OBJReader.Read()
                            ' 输出每一条记录的内容
                            Response.Write("<Tr>")
                            For I = 0 To OBJReader.FieldCount()-1
                                   Response.Write("<Td>" & OBJReader.GetValue(I) & "</Td>" )
                            Next
                            Response.Write("<Tr>")
                     Loop
                     Response.Write("</Table></Form>")
                     ' 判断还有没有其他的表。如果还有的话，
                     ' NextResult()方法的返回值是True
                     lRet = OBJReader.NextResult()
              Loop
       End Sub
</Script>