ch15-01-02.aspx

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

ASPX
34
字号
<%@ 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 DSN As String, tSQL As String
Dim I As Integer
' 设置使用联机字符串 
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
      Server.MapPath("/ASP/Chap14/ASP.NET网页数据库.mdb") & ";"
tSQL = "SELECT * FROM UserDatas"
' 使用联机字符串创建连接
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类的数据源
If OBJReader.Read() Then 
For I = 0 To OBJReader.FieldCount()-1
 Response.Write("字段名称:""" & OBJReader.GetName(I) & """ ")
Response.Write("字段值:""" & OBJReader.GetValue(I) & """<BR>")
Next
End If
OBJConn.Close()
End Sub
</Script>
</Head>
<Body>
</Body>
</Html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?