|
|
Looking at the code below(that it not working by the way...) how would you write a loop that will populate the radion buttons with the values of one colomn in the databe?
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<script runat="server">
Dim strConnect, strSQL as String
Sub Page_Load(Sender As Object, E As EventArgs)
coursepage.visible = true
timepage.visible = false
' #### Establish the connection, command, and datareader ####
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\bit.mdb;"
Dim cn As New OleDb.OleDbConnection(strConnect)
strSQL = "Select* from tlCourse"
' "SELECT Count(CourseNum) As NbrCourses FROM tlCourse"
Dim cmd As New OleDb.OleDbCommand(strSQL, cn)
Dim dr As OleDb.OleDbDataReader
cn.open
dr = cmd.executereader()
Listcourses.DataSource = dr
Listcourses.DataTextField = "course_name"
Listcourses.DataValueField = "CourseNum"
Listcourses.DataBind()
cn.close
cn = Nothing
rad_OnCheckedChange(sender, e)
End Sub
Sub rad_OnCheckedChange(Sender As Object, E As EventArgs)
coursepage.visible=true ' hide elements on previous page
timepage.visible=true ' show elements on current page
lblTitle.text = "Please select the class time for which you would like to register:"
' #### Connect to the DB using a DataAdapter and DataSet ####
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\bit.mdb;"
Dim cn As New OleDb.OleDbConnection(strConnect)
strSQL = "SELECT Time AS course_time FROM tlOfferedCourse, tlCourse WHERE tlOfferedCourse.Course_Number = tlCourse.CourseNum and tlCourse.CourseNum = '" & Listcourses.selecteditem.value & "'"
Dim da As New OleDb.OleDbDataAdapter(strSQL, cn)
Dim ds As New DataSet
da.Fill(ds,"time")
DataGrid1.DataSource = ds.Tables("time")
DataGrid1.DataTextField = "course_time"
DataGrid1.DataValueField = "course_time"
DataGrid1.DataBind()
cn.close
cn = Nothing
End Sub
</script>
<html>
<head><title>BIT Timetable of classes </title></head>
<body>
<center>
<h1>Business Information Technology<br />Student Registration</h1>
<hr /><br />
<form runat="server">
<asp:panel id="coursepage" runat="server">
<asp:Label id="lblTitle" runat="server" font-size="medium" font-bold="true" />
<asp:radiobuttonlist id="Listcourses" runat="server" autopostback="true" >
<asp:listitem id="option1" runat="server" value="A" />
<asp:listitem id="option2" runat="server" value="B" />
<asp:listitem id="option3" runat="server" value="C" />
</asp:radiobuttonlist>
<br /><br />
<asp:button id="btntime" onclick="rad_OnCheckedChange" runat="server" text="TIME" />
<input type="reset" value="RESET" runat="server" />
</asp:panel>
<asp:panel id="timepage" runat="server">
<asp:DataGrid id="DataGrid1" runat="server" rows="1" />
<br /><br />
<input type="reset" value="RESET" runat="server" />
</asp:panel>
</form>
</center>
</body>
</html>
|
|
|
|
|
|
|
|
jcm
