01.Protected Sub Btn_Add_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_Add.Click
02. If Trim(txt_A_memberID.Text) = "" Then
03. lbl_A_memberID.Visible = True
04. txt_A_memberID.Focus()
05. Return
06. End If
07. Dim connStr As String = ConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString.ToString()
08. Dim conn As New SqlConnection(connStr)
09. Dim cmd As New SqlCommand()
10. cmd.CommandText = "INSERT INTO Table_บุคลากร(A_memberID,A_membernameL,A_Agency,A_memberTel,A_Date,A_FileName)" & _
11. " VALUES(@A_memberID,@A_membernameL,@A_Agency,@A_memberTel,@A_Date,@A_FileName) "
12.
13. cmd.Parameters.Add("@A_memberID", SqlDbType.VarChar).Value = txt_A_memberID.Text
14. cmd.Parameters.Add("@A_membernameL", SqlDbType.VarChar).Value = txt_A_membernameL.Text
15. cmd.Parameters.Add("@A_Agency", SqlDbType.VarChar).Value = txt_A_memberAgency.Text
16. cmd.Parameters.Add("@A_memberTel", SqlDbType.VarChar).Value = txt_A_memberTel.Text
17. cmd.Parameters.Add("@A_Date", SqlDbType.DateTime).Value = DateTime.Now
18.
19. Response.Redirect("ข้อมูลบุคลากร.aspx")
20.
21. If Me.FileUpload1.HasFile Then
22. Me.FileUpload1.SaveAs(Server.MapPath("Picture/" & FileUpload1.FileName))
23. cmd.Parameters.Add("@A_FileName", SqlDbType.VarChar).Value = "Picture/" & FileUpload1.PostedFile.FileName
24. End If
25.
26.
27.
28. cmd.Connection = conn
29. conn.Open()
30. cmd.ExecuteNonQuery()
31. conn.Close()
32.
33.
34.
35. GetData()
36. End Sub
