|
xxx
Radio Button/Check Box Lists
from Databases by Charles Carroll
This page demonstrates how to
display a list of options contained in a dataset and how to customize the layout
of the resultant list. First we will code the simplest list
bound control, a checkbox. (OLEDB/Access example)
filename=\experiments\databinding\oledbcheckbox.aspx
<%@ Import Namespace="System.Data.OLEDB" %>
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
Dim strConn as string ="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("/experiments/data/biblio.mdb") & ";"
Dim strSQL as string ="select distinct state from publishers"
Dim Conn as New OLEDBConnection(strConn)
Dim Cmd as New OLEDBCommand(strSQL,Conn)
Conn.Open()
data1.DataSource = Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
data1.DataBind()
End Sub
</script>
<html><head>
<title>Checkboxes</title>
</head>
<body bgcolor="#FFFFFF">
<form runat="server">
<font face="Verdana"><h3>CheckBoxes</h3></font>
<ASP:checkboxlist id="data1" datavaluefield="state" runat="server"/>
</form>
</body></html>
Now we will show many of the
possibilities that can setup multiple columns with minimal effort. (OLEDB/Access
example)
filename=\experiments\databinding\oledbradio.aspx
<%@ Import Namespace="System.Data.oledb" %>
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
Dim strConn as string ="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("/experiments/data/biblio.mdb") & ";"
Dim strSQL as string ="select distinct state from publishers"
Dim Conn as New OLEDBConnection(strConn)
Dim Cmd as New OLEDBCommand(strSQL,Conn)
Conn.Open()
st.DataSource = Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
st.DataBind()
Dim Conn2 as New OLEDBConnection(strConn)
Dim Cmd2 as New OLEDBCommand(strSQL,Conn2)
Conn2.Open()
st2.DataSource = Cmd2.ExecuteReader(system.data.CommandBehavior.CloseConnection)
st2.DataBind()
Dim Conn3 as New OLEDBConnection(strConn)
Dim Cmd3 as New OLEDBCommand(strSQL,Conn3)
Conn3.Open()
st3.DataSource = Cmd3.ExecuteReader(system.data.CommandBehavior.CloseConnection)
st3.DataBind()
End Sub
</script>
<html><head>
<title>Radio Buttons from States</title>
</head>
<body bgcolor="#FFFFFF">
<h3>State(s) to Query</font></h3>
<form runat="server">
<hr>
repeatcolumns 8, repeatdirection horizontal, repeatlayout table<br>
<ASP:radiobuttonList
repeatcolumns="8" repeatdirection="horizontal" repeatlayout="table"
id="st" datatextfield="state" DataValueField="state" runat="server"/>
<br>
<hr>
repeatcolumns 6, repeatdirection vertical, repeatlayout table<br>
<ASP:radiobuttonList
repeatcolumns="6" repeatdirection="vertical" repeatlayout="table"
id="st2" datatextfield="state" DataValueField="state" runat="server"/>
<hr>
repeatlayout flow<br>
<ASP:radiobuttonList
repeatlayout="flow"
id="st3" datatextfield="state" DataValueField="state" runat="server"/>
<hr>
</form>
</body></html>
For maximum speed on SQL7/2000 use
the sqlclient assembly instead.
filename=\experiments\databinding\sqlclientcheckbox.aspx
<%@ Import Namespace="System.Data.OLEDB" %>
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
Dim strConn as string ="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("/experiments/data/biblio.mdb") & ";"
Dim strSQL as string =select distinct state from publishers
Dim Conn as New OLEDBConnection(strConn)
Dim Cmd as New OLEDBCommand(strSQL,Conn)
Conn.Open()
data1.DataSource = Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
data1.DataBind()
End Sub
</script>
<html><head>
<title>Checkboxes</title>
</head>
<body bgcolor="#FFFFFF">
<form runat="server">
<font face="Verdana"><h3>CheckBoxes</h3></font>
<ASP:checkboxlist id="data1" datavaluefield="state" runat="server"/>
</form>
</body></html>
Now the multiple columns with
sqlsclient assembly instead.
filename=\experiments\databinding\sqlclientradio.aspx
<%@ Import Namespace="System.Data.oledb" %>
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
Dim strConn as string ="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("/experiments/data/biblio.mdb") & ";"
Dim strSQL as string =select distinct state from publishers
Dim Conn as New OLEDBConnection(strConn)
Dim Cmd as New OLEDBCommand(strSQL,Conn)
Conn.Open()
st.DataSource = Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
st.DataBind()
Dim Conn2 as New OLEDBConnection(strConn)
Dim Cmd2 as New OLEDBCommand(strSQL,Conn2)
Conn2.Open()
st2.DataSource = Cmd2.ExecuteReader(system.data.CommandBehavior.CloseConnection)
st2.DataBind()
Dim Conn3 as New OLEDBConnection(strConn)
Dim Cmd3 as New OLEDBCommand(strSQL,Conn3)
Conn3.Open()
st3.DataSource = Cmd3.ExecuteReader(system.data.CommandBehavior.CloseConnection)
st3.DataBind()
End Sub
</script>
<html><head>
<title>Radio Buttons from States</title>
</head>
<body bgcolor="#FFFFFF">
<h3>State(s) to Query</font></h3>
<form runat="server">
<hr>
repeatcolumns 8, repeatdirection horizontal, repeatlayout table<br>
<ASP:radiobuttonList
repeatcolumns="8" repeatdirection="horizontal" repeatlayout="table"
id="st" datatextfield="state" DataValueField="state" runat="server"/>
<br>
<hr>
repeatcolumns 6, repeatdirection vertical, repeatlayout table<br>
<ASP:radiobuttonList
repeatcolumns="6" repeatdirection="vertical" repeatlayout="table"
id="st2" datatextfield="state" DataValueField="state" runat="server"/>
<hr>
repeatlayout flow<br>
<ASP:radiobuttonList
repeatlayout="flow"
id="st3" datatextfield="state" DataValueField="state" runat="server"/>
<hr>
</form>
</body></html>
 |  |  |
 |
There are many worthy charities!!. But perhaps help starving children in Africa or South America AND help Charles too.
a $5 tip buys him lunch at McDonalds,
a $20 tip buys his kid Hitoshi a new computer game,
a $39 tip buys his daughter Michiko a few nice outfits.
See our donor list.
|  |
 |  |  |
|
|
|
|