📄 datalist1.aspx
字号:
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<html>
<body>
<Form runat="server">
<asp:DataList id="DataList1" runat="server"
RepeatDirection="Horizontal"
RepeatColumns="2">
<ItemTemplate>
<B><%#DataBinder.Eval(Container.DataItem, "姓名") %>
(<%#DataBinder.Eval(Container.DataItem, "学号") %>)</B>
<Blockquote>
语文：<%#DataBinder.Eval(Container.DataItem, "语文") %>,
数学：<%#DataBinder.Eval(Container.DataItem, "数学") %>
</Blockquote>
</ItemTemplate>
</asp:DataList>
</Form>
</body>
</html>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object,e As EventArgs)
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结合在一起
DataList1.DataSource=ds.Tables("学生成绩表").DefaultView
DataList1.DataBind()
End Sub
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -