ok添加老师.aspx.vb

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

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





    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strsql As String
        strsql = "insert into 老师表(教师编号,姓名,性别,年龄,密码,职称,电子邮箱,个人主页)  values( '" & Trim(TextBox1.Text) & "'  ,'" & (TextBox2.Text) & "','" & Trim(DropDownList1.SelectedItem.Text) & "','" & (TextBox3.Text) & "','" & Trim(TextBox4.Text) & "' ,'" & Trim(TextBox5.Text) & "','" & Trim(TextBox6.Text) & "' ,'" & Trim(TextBox7.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()
        Label9.Text = "添加成功！"
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
    End Sub



End Class