代码如下:
Private Sub DataGrid1_PageIndexChanged1(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
Private Sub BindDataToGrid()
Dim strsql, strconn As String
Dim conn As New OleDb.OleDbConnection
Dim newds As New DataSet
strsql = "select * from 片源列表"
strconn = "provider=microsoft.jet.oledb.4.0;"
strconn += "data source=" & Server.MapPath("DLKL.mdb")
conn.ConnectionString = strconn
conn.Open()
Dim cmd As New OleDb.OleDbCommand
cmd.CommandText = strsql
cmd.Connection = conn
'Dim reader As OleDb.OleDbDataReader
'reader = cmd.ExecuteReader
Dim newda As New OleDb.OleDbDataAdapter(strsql, conn)
'DataGrid1.DataSource = reader
newda.Fill(newds, strsql)
DataGrid1.DataSource = newds.Tables(0)
DataGrid1.DataBind()
conn.Close()
End Sub