chaxunkecheng.aspx.vb

教务选课系统 教务选课系统 教务选课系统


Imports System.Data
Imports System.Data.OleDb

Partial Class chaxunkecheng
    Inherits System.Web.UI.Page

   

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Label1.Text = Session("yonghuming")

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Session("yonghuming") = Label1.Text
        Response.Redirect("xuesheng.aspx")
    End Sub

    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged
        Dim MyCon As New OleDbConnection()
        Dim cmd As New OleDbCommand()
        Dim cmd1 As New OleDbCommand()
        Dim id1 As Integer
        Dim ke As String
        Dim reader1 As OleDbDataReader
        cmd.Connection = MyCon
        cmd1.Connection = MyCon
        cmd.CommandType = CommandType.Text
        cmd1.CommandType = CommandType.Text
        MyCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")
        MyCon.Open()
        id1 = GridView1.SelectedDataKey.Value
        ke = "select "
        cmd1.CommandText = "select * from kecheng where ID = " & id1 & " "

        reader1 = cmd1.ExecuteReader()
        If reader1.Read = True Then
            ke = reader1("课程名称")
        End If
        cmd.CommandText = "update xskc set kechm= '" & ke & "',班级='" & reader1("班级") & "',jiaoshiming='" & reader1("jiaoshiming") & "' where yonghuming = '" & Session("yonghuming") & " '"
        cmd.ExecuteNonQuery()
        cmd.Cancel()
        cmd1.Cancel()
        MyCon.Close()
        Response.Redirect("xuesheng.aspx")
        Session("yonghuming") = Label1.Text
    End Sub
End Class