getdataset.inc

来自「深入浅出ASP.NET程序设计-源代码 书籍语言： 简体中文 」· INC 代码 · 共 17 行

<Script Language="VB" Runat="Server">
       ' 获取DataSet对象的内容之后，立即中断与数据库的联机
       Sub GetDataSet(ByRef OBJDataSet As DataSet)
              Dim OBJConn As OleDbConnection
              Dim OBJDataAdapter As OleDbDataAdapter
              Dim DSN As String
              Dim tSQL As String = "Select * From UserDatas"
              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
</Script>