dataview.aspx

来自「本书通过100个精彩实例」· ASPX 代码 · 共 37 行

ASPX
37
字号
<%@Import Namespace=System.Data.oledb%>
<%@Import Namespace=System.Data%>
<Html>
<font size="-1">
<Form Id=Form1 Runat="Server">
请选择一个使用者:
<ASP:RadioButtonList Id="rblA" AutoPostBack="True"
OnSelectedIndexChanged="rblA_Chg" Runat="Server"/>
</Form>
<ASP:Label Id="Label1" Runat="Server"/>
<Script Language="VB" Runat="Server">
Sub Page_Load(Sender As Object, e As EventArgs)
If Page.IsPostBack=False Then 
'连接数据库读取数据及绑定的工作只要作一次
Dim strConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=d:\asp.net\samples\db1.mdb"
Dim strComStr As String = "Select * From score1"
Dim dscA As oledbDataadapter = New oledbDataadapter(strComStr,strConStr)
Dim dsDataSet As DataSet = New DataSet()
dscA.Fill(dsDataSet, "score1")
rblA.DataSource=dsDataSet.Tables("SCORE1").DefaultView 
'将DataTable 当成数据源
rblA.DataTextField="Name" 
'指定要显示的字段
rblA.DataValueField="chinese" 
'指定这个字段代表的值
Page.DataBind()
End If
End Sub
Sub rblA_Chg(Sender As Object, e As EventArgs)
Label1.Text="选择项目为: " & rblA.SelectedItem.Text & _
"<br>所代表值为: " & rblA.SelectedItem.Value
End Sub
</SCRIPT>
<font>
</Html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?