ASP.NET(vb.net) & RadioButtonList in DataBinding - asp:RadioButtonList : How to use RadioButtonList control and display RadioButtonList from data binding or bind the control to a data source.
ShotDev Focus:
- ASP.NET(vb.net) & RadioButtonList in DataBinding
Example
RadioButtonListDataBind.aspx
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Page Language="VB" %>
<script runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
IF Not Page.IsPostBack() Then
RadioButtonListDataTable()
RadioButtonListDataTableRows()
RadioButtonListSortedList()
RadioButtonListAddInsertItem()
End IF
End Sub
'*** RadioButtonList & DataTable ***'
Function RadioButtonListDataTable()
Dim objConn As OleDbConnection
Dim dtAdapter As OleDbDataAdapter
Dim dt As New DataTable
Dim strConnString As String
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
Server.MapPath("shotdev/mydatabase.mdb")&";"
objConn = New OleDbConnection(strConnString)
objConn.Open()
Dim strSQL As String
strSQL = "SELECT * FROM country"
dtAdapter = New OleDbDataAdapter(strSQL, objConn)
dtAdapter.Fill(dt)
dtAdapter = Nothing
objConn.Close()
objConn = Nothing
'*** RadioButtonList ***'
With Me.myRdoList1
.DataSource = dt
.DataTextField = "CountryName"
.DataValueField = "CountryCode"
.DataBind()
End With
'*** Default Value ***'
myRdoList1.SelectedIndex = myRdoList1.Items.IndexOf(myRdoList1.Items.FindByValue("TH")) '*** By DataValueField ***'
'myRdoList1.SelectedIndex = myRdoList1.Items.IndexOf(myRdoList1.Items.FindByText("Thailand")) '*** By DataTextField ***'
End Function
'*** RadioButtonList & TableRows ***'
Sub RadioButtonListDataTableRows()
Dim dt As New DataTable
Dim dr As DataRow
'*** Column ***'
dt.Columns.Add("Sex")
dt.Columns.Add("SexDesc")
'*** Rows ***'
dr = dt.NewRow
dr("Sex") = "M"
dr("SexDesc") = "Man"
dt.Rows.Add(dr)
'*** Rows ***'
dr = dt.NewRow
dr("Sex") = "W"
dr("SexDesc") = "Woman"
dt.Rows.Add(dr)
'*** RadioButtonList ***'
With Me.myRdoList2
.DataSource = dt
.DataTextField = "SexDesc"
.DataValueField = "Sex"
.DataBind()
End With
'*** Default Value ***'
myRdoList2.SelectedIndex = myRdoList2.Items.IndexOf(myRdoList2.Items.FindByValue("W")) '*** By DataValueField ***'
'myRdoList2.SelectedIndex = myRdoList2.Items.IndexOf(myRdoList2.Items.FindByText("Woman")) '*** By DataTextField ***'
End Sub
'*** RadioButtonList & SortedList ***'
Sub RadioButtonListSortedList()
Dim mySortedList AS New SortedList
mySortedList.Add("M","Man")
mySortedList.Add("W","Woman")
'*** RadioButtonList ***'
With Me.myRdoList3
.DataSource = mySortedList
.DataTextField = "Value"
.DataValueField = "Key"
.DataBind()
End With
'*** Default Value ***'
myRdoList3.SelectedIndex = myRdoList3.Items.IndexOf(myRdoList3.Items.FindByValue("W")) '*** By DataValueField ***'
'myRdoList3.SelectedIndex = myRdoList3.Items.IndexOf(myRdoList3.Items.FindByText("Woman")) '*** By DataTextField ***'
End Sub
'*** Add/Insert Items ***'
Sub RadioButtonListAddInsertItem()
Dim mySortedList AS New SortedList
mySortedList.Add("M","Man")
mySortedList.Add("W","Woman")
'*** RadioButtonList ***'
With Me.myRdoList4
.DataSource = mySortedList
.DataTextField = "Value"
.DataValueField = "Key"
.DataBind()
End With
'*** Add & Insert New Item ***'
Dim strText,strValue As String
'*** Insert Item ***'
strText = ""
strValue = ""
Dim InsertItem As New ListItem(strText, strValue)
myRdoList4.Items.Insert(0, InsertItem)
'*** Add Items ***'
strText = "Guy"
strValue = "G"
Dim AddItem As New ListItem(strText, strValue)
myRdoList4.Items.Add(AddItem)
'*** Default Value ***'
myRdoList4.SelectedIndex = myRdoList4.Items.IndexOf(myRdoList4.Items.FindByValue("W")) '*** By DataValueField ***'
'myRdoList4.SelectedIndex = myRdoList4.Items.IndexOf(myRdoList4.Items.FindByText("Woman")) '*** By DataTextField ***'
End Sub
Sub Button1_OnClick(sender as Object, e As EventArgs)
Me.lblText1.Text = Me.myRdoList1.SelectedItem.Value '*** Or Me.myRdoList1.SelectedItem.Text ***'
Me.lblText2.Text = Me.myRdoList2.SelectedItem.Value '*** Or Me.myRdoList2.SelectedItem.Text ***'
Me.lblText3.Text = Me.myRdoList3.SelectedItem.Value '*** Or Me.myRdoList3.SelectedItem.Text ***'
Me.lblText4.Text = Me.myRdoList4.SelectedItem.Value '*** Or Me.myRdoList4.SelectedItem.Text ***'
End Sub
</script>
<html>
<head>
<title>ShotDev.Com Tutorial</title>
</head>
<body>
<form id="form1" runat="server">
<asp:RadioButtonList id="myRdoList1" runat="server"></asp:RadioButtonList><hr />
<asp:RadioButtonList id="myRdoList2" runat="server"></asp:RadioButtonList><hr />
<asp:RadioButtonList id="myRdoList3" runat="server"></asp:RadioButtonList><hr />
<asp:RadioButtonList id="myRdoList4" runat="server"></asp:RadioButtonList>
<asp:Button id="Button1" onclick="Button1_OnClick" runat="server" Text="Button"></asp:Button>
<hr />
<asp:Label id="lblText1" runat="server"></asp:Label><br /><br />
<asp:Label id="lblText2" runat="server"></asp:Label><br /><br />
<asp:Label id="lblText3" runat="server"></asp:Label><br /><br />
<asp:Label id="lblText4" runat="server"></asp:Label><br /><br />
</form>
</body>
</html>
Screenshot
.
.
.
Download this script.
Loading ...