<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<html>
<head>
<Script Language=VB Runat=Server>
Sub Page_Load(Sender As Object, e As EventArgs)
Dim mySQLConnection As OleDbConnection
Dim mySQLCommand As OleDbCommand
Dim html As String
Dim myReader As OleDbDataReader
'进行数据库链接
mySQLConnection = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("Sample.mdb"))
mySQLCommand = new OleDbCommand("Select * from 学生成绩表", mySQLConnection)
'打开数据库链接并执行SQL语句
mySQLCommand.Connection.Open()
'将结果返回给myReader对象
myReader=mySQLCommand.ExecuteReader()
html="<Table>"
html+="<TR>"
html+="<TD><B>学号</B></TD>"
html+="<TD><B>姓名</B></TD>"
html+="</TR>"
try
'读出每一条记录
While(myReader.Read())
html+="<TR>"
html+="<TD>" + myReader("学号").ToString() + "</TD>"
html+="<TD>" + myReader("姓名").ToString() + "</TD>"
html+="</TR>"
End While
html+="</Table>"
finally
'关闭链接
myReader.Close()
mySQLConnection.Close()
End Try
Response.Write(html)
End Sub
</Script>