Imports System.Data.SqlClient '添加參考命名空間
Public Class Tadd
Dim connstr As String = ("Data Source= LAPTOP-IVGA33CA;Initial Catalog=JXGL;Integrated Security=True") '建立連接
Dim conn As New SqlClient.SqlConnection(connstr)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim insertsql As String = "insert into T(t#,tnametssex,tbirthin,titleof,trsection,tel)"
Dim cmd As New SqlClient.SqlCommand(insertsql, conn)
'檢查添加的教師號是否存在
Dim sqlstring As String = "select * from T where t#='" & TextBox1.Text & "' "
conn.Open()
Dim com2 As New SqlClient.SqlCommand(sqlstring, conn)
Dim read1 As SqlDataReader = com2.ExecuteReader
If read1.Read() Then
MsgBox("該教師號已存在！", MsgBoxStyle.Information, "提示！")
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.Text = "男"
DateTimePicker1.Value = "1965/12/31"
ComboBox2.Text = ""
ComboBox3.Text = ""
TextBox3.Text = ""
ElseIf TextBox1.Text = "" Then
MsgBox("請輸入教師號！", MsgBoxStyle.Information, "提示！")
ElseIf TextBox2.Text = "" Then
MsgBox("請輸入姓名！", MsgBoxStyle.Information, "提示！")
Else
'添加新教師的資訊
conn.Close()
cmd.Parameters.Add("@T#", SqlDbType.VarChar).Value = TextBox1.Text
cmd.Parameters.Add("@tname", SqlDbType.VarChar).Value = TextBox2.Text
cmd.Parameters.Add("@tsex", SqlDbType.VarChar).Value = ComboBox1.Text
cmd.Parameters.Add("@tbirthin", SqlDbType.VarChar).Value = DateTimePicker1.Value
cmd.Parameters.Add("@titleof", SqlDbType.VarChar).Value = ComboBox2.Text
cmd.Parameters.Add("@trsection", SqlDbType.VarChar).Value = ComboBox3.Text
cmd.Parameters.Add("@tel", SqlDbType.VarChar).Value = TextBox3.Text
conn.Open()
cmd.ExecuteNonQuery()
MsgBox("教師資訊添加成功！", MsgBoxStyle.Information, "提示!")
End If
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.Text = "男"
DateTimePicker1.Value = "1965/12/31"
ComboBox2.Text = ""
ComboBox3.Text = ""
TextBox3.Text = ""
conn.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
End Sub
End Class
uj5u.com熱心網友回復：
搜索Button1_Click，多個函數uj5u.com熱心網友回復：
你代碼最后一段，多出了一組Button1_Click的定義。uj5u.com熱心網友回復：
最后一個 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 刪掉轉載請註明出處，本文鏈接：https://www.uj5u.com/net/32884.html
標籤：VB.NET
上一篇：c#列印機的問題 黑底白色