添加课程.aspx.vb

来自「本套软件适用于各大高校、培训机构等单位的教学管理软件。」· VB 代码 · 共 36 行

Imports System.Data
Imports System.Data.SqlClient
Partial Class StudentAdd_DB1
    Inherits System.Web.UI.Page

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click


        Dim strsql As String
        strsql = "insert into 课程表(课程号,课程名,学分,学时,上课时间,上课地点,开课学期,已选人数,限选人数,教师编号)  values( '" & Trim(TextBox1.Text) & "'  ,'" & (TextBox2.Text) & "','" & (TextBox3.Text) & "','" & (TextBox4.Text) & "','" & (TextBox5.Text) & "','" & (TextBox6.Text) & "','" & (TextBox7.Text) & "','" & (TextBox8.Text) & "','" & (TextBox9.Text) & "','" & (TextBox10.Text) & "')"
        Dim coon As New SqlConnection("Server=localhost;Database=选修课管理系统;Uid=sa;Pwd=;")
        Dim cmd As New SqlCommand(strsql, coon)
        coon.Open()
        cmd.ExecuteNonQuery()
        coon.Close()
        Label11.Text = "添加成功！"
        



    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
    End Sub
End Class