01.Protected Sub btnInsert_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnInsert.Click
02. If txtName.Text = "" Then
03. lblStatus.Text = "กรุณาใส่รายละเอียดให้ครบ"
04. Else
05. Dim strConnection As SqlConnection = New SqlConnection("Data Source=WDB-PR0168\SQLEXPRESS;Initial Catalog=ESD_001;Integrated Security=True")
06. strConnection.Open()
07. Dim _Update As String = DateTime.Now
08. Dim Data_insert As String = "INSERT INTO Data_Mini_QST (Fixture_Name,Type,Lacation,Image1,Image2,Image3,Image4,File_Data,Status,Update_) VALUES ('" & txtName.Text & "','" & DropDownList_Type.SelectedItem.Text & "','" & DropDownList_Location.SelectedItem.Text & "','" & "~/Pic_Mini_QST/" + FileUpload1.FileName.ToString & "','" & "~/Pic_Mini_QST/" + FileUpload2.FileName.ToString & "','" & "~/Pic_Mini_QST/" + FileUpload3.FileName.ToString & "','" & "~/Pic_Mini_QST/" + FileUpload4.FileName.ToString & "','" & FileUpload_File.FileName.ToString & "','" & "0" & "','" & _Update & "')"
09. Dim Query_ As New SqlCommand(Data_insert)
10. Query_.Connection = strConnection
11. Query_.ExecuteNonQuery()
12. Query_.Connection.Close()
13. copyimage1()
14. copyimage2()
15. copyimage3()
16. copyimage4()
17. Response.Redirect("Frm_Mini_QST.aspx")
18. End If
19. End Sub
20.
21. Sub copyimage1()
22.
23. Dim imagefolder As String = "Pic_Mini_QST"
24. Dim savepath As String
25. Dim savefile As String
26. savepath = Path.Combine(Request.PhysicalApplicationPath, imagefolder)
27. savefile = Path.Combine(savepath, FileUpload1.FileName)
28. FileUpload1.SaveAs(savefile)
29.
30. End Sub
31.
32. Sub copyimage2()
33. Dim imagefolder As String = "Pic_Mini_QST"
34. Dim savepath As String
35. Dim savefile As String
36. savepath = Path.Combine(Request.PhysicalApplicationPath, imagefolder)
37. savefile = Path.Combine(savepath, FileUpload2.FileName)
38. FileUpload2.SaveAs(savefile)
39. End Sub
40.
41. Sub copyimage3()
42. Dim imagefolder As String = "Pic_Mini_QST"
43. Dim savepath As String
44. Dim savefile As String
45. savepath = Path.Combine(Request.PhysicalApplicationPath, imagefolder)
46. savefile = Path.Combine(savepath, FileUpload3.FileName)
47. FileUpload3.SaveAs(savefile)
48. End Sub
49. Sub copyimage4()
50. Dim imagefolder As String = "Pic_Mini_QST"
51. Dim savepath As String
52. Dim savefile As String
53. savepath = Path.Combine(Request.PhysicalApplicationPath, imagefolder)
54. savefile = Path.Combine(savepath, FileUpload4.FileName)
55. FileUpload4.SaveAs(savefile)
56. End Sub
