ok添加学生.aspx.vb

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

Imports System.Data
Imports System.Data.SqlClient
Partial Class 学生添加
    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) & "','" & Trim(DropDownList1.SelectedItem.Text) & "','" & (TextBox4.Text) & "','" & Trim(TextBox5.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()
        Label6.Text = "添加成功！"
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
    End Sub
End Class