<% @Import Namespace="System.Data" %>
<% @Import Namespace="System.Data.SqlClient" %>
Sub Page_Load(sender as Object, e as EventArgs)
If Not Page.IsPostBack then
BindData()
End If
End Sub
Sub BindData()
'1. Create a connection
Dim myConnection as New SqlConnection(ConfigurationSettings.AppSettings("connectionString"))
'2. Create the command object, passing in the SQL string
Const strSQL as String = "SELECT PublisherID, Name FROM tblPublishers ORDER BY Name"
Dim myCommand as New SqlCommand(strSQL, myConnection)
myConnection.Open()
radlstPubs.DataSource = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
radlstPubs.DataBind()
End Sub
Sub btnViewBooks_Click(sender as Object, e as EventArgs)
'If the user has not selected an item from the radiobuttonlist,
'do nothing
If radlstPubs.SelectedItem Is Nothing then Exit Sub
'1. Create a connection
Dim myConnection as New SqlConnection(ConfigurationSettings.AppSettings("connectionString"))
'2. Create the command object, passing in the SQL string
Dim strSQL as String = "SELECT Title, Description FROM tblBooks " & _
" WHERE PublisherID = " & radlstPubs.SelectedItem.Value & _
" ORDER BY Title"
Dim myCommand as New SqlCommand(strSQL, myConnection)
myConnection.Open()
dgBooks.DataSource = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
dgBooks.DataBind()
lblTitle.Text = "Books Published by " & radlstPubs.SelectedItem.Text
End Sub
Radio Button List Demo
This demo illustrates how to use data-binding to dynamically
create a radio button list based on database information.
The data below is from the
First, the radio button list is bound to the tblPublishers table. Then,
when you select a publisher, a DataGrid Web control is populated with
the books provided by the selected publisher. (Adding paging to the DataGrid would be
a snap. Just read: Paing
Database Results in ASP.NET!)

