📄 grid2.aspx
字号:
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<html>
<body>
<Form runat="server">
<asp:DataGrid
AllowPaging="True"
PageSize="5"
PagerStyle-HorizontanAlign="Right"
PagerStyle-NextPageText="下一页"
PagerStyle-PrevPageText="上一页"
OnPageindexChanged="ChangePage"
Headerstyle-BackColor="#AAAADD"
AlternatingItemStyle-BackColor="#FFFFCD"
BorderColor="Black"
CellPadding="2"
CellSpacing="0"
id="Grid1" runat="server"/>
</Form>
</body>
</html>
<script language="VB" runat="server">
Dim startIndex As Integer
Sub BindGrid()
Dim Provider,DataBase,ConnStr,SQL As String
'第一步: 进行数据库的链接
Provider="Microsoft.Jet.OLEDB.4.0;"
DataBase=Server.MapPath("Sample.mdb")
ConnStr="Provider="+Provider+"Data Source="+DataBase
'第二步：执行SQL指令，选出记录集合
Dim Cmd As OleDbDataAdapter
Cmd=New OleDbDataAdapter("Select * From 学生成绩表",ConnStr)
Dim ds As DataSet=New DataSet()
Cmd.Fill(ds,"学生成绩表")
'第三步：将数据集合同DataGrid结合在一起
Grid1.DataSource=ds.Tables("学生成绩表").DefaultView
Grid1.DataBind()
End Sub
Sub Page_Load(Sender As Object,e As EventArgs)
If Not IsPostBack Then
startIndex = 0
End If
BindGrid
End Sub
Sub ChangePage(Sender As Object,e As DataGridPageChangedEventArgs)
startIndex = e.NewPageIndex*Grid1.PageSize
Grid1.CurrentPageIndex = e.NewPageIndex
BindGrid
End Sub
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -