?? ch16-01-01.aspx
字號:
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<% Response.Expires = 0 %>
<Html>
<Head>
<Script Language="VB" Runat="Server">
' 在這里設(shè)置聯(lián)機字符串的內(nèi)容
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網(wǎng)頁數(shù)據(jù)庫.mdb") & ";"
OBJConn = New OleDbConnection(DSN)
OBJDataAdapter = New OleDbDataAdapter(tSQL, DSN)
' 聲明DataSet對象
Dim OBJDataSet As DataSet = New DataSet()
' 將UserDatas表填入DataSet對象
OBJDataAdapter.Fill(OBJDataSet, "UserDatas")
OBJConn.Close()
End Sub
</Script>
</Head>
<Body>
</Body>
</Html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -