?? ch16-01-02.aspx
字號:
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<% Response.Expires = 0 %>
<Html>
<Head>
<Script Language="VB" Runat="Server">
' 在這里設置聯機字符串的內容
Sub Page_Load(Obj As Object, e As EventArgs)
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)
' 聲明DataSet對象
Dim OBJDataSet As DataSet = New DataSet()
' 將UserDatas表填入DataSet對象
OBJDataAdapter.Fill(OBJDataSet, "UserDatas")
' 聲明DataTable、DataRow、DataRow對象
Dim OBJDataTable As DataTable
Dim OBJDataRow As DataRow
Dim OBJDataColumn As DataColumn
' 設置DataTable的表來源
OBJDataTable = OBJDataSet.Tables("UserDatas")
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>")
OBJConn.Close()
End Sub
</Script>
</Head>
<Body>
</Body>
</Html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -