datasetop.inc

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

<Script Language="VB" Runat="Server">
       ' 获取DataSet对象的内容之后，立即中断与数据库的联机
       Sub GetDataSet(ByRef OBJDataSet As DataSet , ByVal tSQL As String)
              Dim OBJConn As OleDbConnection
              Dim OBJDataAdapter As OleDbDataAdapter
              Dim DSN As String
              DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                     Server.MapPath("/ASP/chap14/ASP.NET网页数据库.mdb") & ";"              
              OBJConn = New OleDbConnection(DSN)
            OBJDataAdapter = New OleDbDataAdapter(tSQL, DSN)
              ' 将UserDatas表填入DataSet对象
              OBJDataAdapter.Fill(OBJDataSet, "UserDatas")
              OBJConn.Close()
       End Sub
             ' 显示DataSet对象的所有记录
       Sub ShowDataSet(ByVal OBJDataSet As DataSet, ByVal TableName As String )
              ' 声明DataTable、DataRow、DataRow对象
              Dim OBJDataTable As DataTable
              Dim OBJDataRow As DataRow
              Dim OBJDataColumn As DataColumn
              ' 设置DataTable的表来源
              OBJDataTable = OBJDataSet.Tables(TableName)
              Response.Write("<Center><H2>显示DataSet对象的所有记录</H2>")
              Response.Write("<Table Border=1>")
              ' 显示DataColumn每一个字段的名称
              For Each OBJDataColumn In OBJDataTable.Columns
                     Response.Write("<TD>" & OBJDataColumn.ColumnName & "</TD>" )
              Next
              ' 输出每一列数据列
              For Each OBJDataRow In OBJDataTable.Rows
                     Response.Write("<TR>")
                     ' 显示在数据列之中的每一个数据行
                     For Each OBJDataColumn In OBJDataTable.Columns
                            Response.Write("<TD>" & OBJDataRow(OBJDataColumn) & "</TD>" )
                     Next OBJDataColumn
                     Response.Write("</TR>")
              Next OBJDataRow
              Response.Write("</Table>")
       End Sub
</Script>