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 + -
显示快捷键?