62,041
社区成员
发帖
与我相关
我的任务
分享
Public StrCurSchool As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
If Not Page.IsPostBack Then
Dim StrCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("../data.mdb")
Dim Sb As StringBuilder = New StringBuilder("Select ID,(TeacherID & '-' & Name ) as Name from [Schools]")
Dim Cn As OleDbConnection = New OleDbConnection(StrCon)
Dim Ds As DataSet = New DataSet()
Dim Da As OleDbDataAdapter = New OleDbDataAdapter(Sb.ToString(), Cn)
Da.Fill(Ds, "Schools")
Cn.Close()
RbLstTeachers.DataTextField = "Name"
RbLstTeachers.DataValueField = "ID"
RbLstTeachers.DataSource = Ds.Tables(0).DefaultView
RbLstTeachers.DataBind()
End If
End Sub
Protected Sub RbLstTeachers_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
StrCurSchool = RbLstTeachers.SelectedValue
End Sub
Protected Sub BtnAddStudents_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Response.Write(StrCurSchool)
Response.End()
End Sub