<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<html>
<Script Language=VB Runat=Server>
Sub Page_Load(Sender As Object, e As EventArgs)
Dim dtConn As OleDbConnection
Dim dtCmd As OleDbDataAdapter
Dim dtSet As DataSet
Dim sSQL As String
sSQL = "Select * From 学生成绩表;"
dtConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Sample.mdb"))
dtCmd = New OleDbDataAdapter(sSql, dtConn)
dtSet = New DataSet
dtCmd.Fill(dtSet)
myDataGrid.DataSource=dtSet.Tables(0).DefaultView
myDataGrid.DataBind()
ENd Sub
</Script>
<body>
<h3><font face="Verdana">使用DataSet读取数据</font></h3>
<form runat=server>
<ASP:DataGrid id="myDataGrid" runat="server"
BorderColor="black"
BorderWidth="1"
GridLines="Both"
CellPadding="3"
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd"
/>
</form>
</body>
</html>