求高手帮忙解释一下这个页面代码每一句具体的作用，急~~~

zill55 2005-07-04 12:02:09

Imports System.Data
Imports System.Data.OleDb
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码

Dim str1 As String = "provider=microsoft.jet.oledb.4.0; data source=" & Server.MapPath("bookmanage.mdb")
Dim str2 As String = "select book_id as 图书编号, bookname as 图书名称,bookpub as 出版社,bookprice as 价格,author as 作者 from book"
Dim ad As OleDbDataAdapter
ad = New OleDbDataAdapter(str2, str1)
ad.Fill(ds, "book")
Dim dv As DataView = ds.Tables("book").DefaultView
DataGrid1.DataSource = dv
DataGrid1.DataBind()
End Sub
Private Sub DataGrid1_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles DataGrid1.SortCommand
Dim dv1 As DataView = ds.Tables("book").DefaultView
dv1.Sort = e.SortExpression
DataGrid1.DataSource = dv1
DataGrid1.DataBind()
End Sub

Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
Dim dv1 As DataView = ds.Tables("book").DefaultView
DataGrid1.DataSource = dv1
DataGrid1.CurrentPageIndex = e.NewPageIndex
DataGrid1.DataBind()
End Sub
End Class

...全文