📄 ok添加老师.aspx.vb
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -