📄 dataview.aspx
字号:
<%@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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -