01.Private Sub BT1_Click(sender As Object, e As EventArgs) Handles BT1.Click
02. If System.IO.File.Exists(Me.OpenFileDialog1.FileName) = False Then
03. MessageBox.Show("File Not Found", "Error")
04. Exit Sub
05. Else
06. Dim strConn As String = "Data Source=DATABASE\SQLEXPRESS;Initial Catalog=GPS;Persist Security Info=True;User ID=sa;Password=Password@2017"
07.
08. Dim Conn As New SqlConnection(strConn)
09. Dim SqlString As String
10.
11. SqlString = "INSERT INTO db_IVMS(iv0,iv1,iv2,iv3,iv4,iv5,iv6,iv7,iv8,iv9) " &
12. " VALUES(@num,@detail, @edit,@regis,@date,@time,@gps,@name,@pic1,@pic2)"
13.
14. Dim cmd As SqlCommand = New SqlCommand(SqlString, Conn)
15. Dim ImgName As SqlParameter = New SqlParameter("@num",
16. System.Data.SqlDbType.Int, 100)
17. Dim imgpic As SqlParameter = New SqlParameter("@detail",
18. System.Data.SqlDbType.VarChar, 10000)
19. Dim edit As SqlParameter = New SqlParameter("@edit",
20. System.Data.SqlDbType.VarChar, 10000)
21. Dim regis As SqlParameter = New SqlParameter("@regis",
22. System.Data.SqlDbType.VarChar, 100)
23. Dim date1 As SqlParameter = New SqlParameter("@date",
24. System.Data.SqlDbType.VarChar, 100)
25. Dim time1 As SqlParameter = New SqlParameter("@time",
26. System.Data.SqlDbType.VarChar, 100)
27. Dim gps As SqlParameter = New SqlParameter("@gps",
28. System.Data.SqlDbType.VarChar, 100)
29. Dim name As SqlParameter = New SqlParameter("@name",
30. System.Data.SqlDbType.VarChar, 100)
31.
32.
33. cmd.Parameters.Add("@num", SqlDbType.Int).Value = IV0.Text
34. cmd.Parameters.Add("@detail", SqlDbType.VarChar).Value = IV1.Text
35. cmd.Parameters.Add("@edit", SqlDbType.VarChar).Value = IV2.Text
36. cmd.Parameters.Add("@regis", SqlDbType.VarChar).Value = IV3.Text
37. cmd.Parameters.Add("@date", SqlDbType.VarChar).Value = IV4.Text
38. cmd.Parameters.Add("@time", SqlDbType.VarChar).Value = IV5.Text
39. cmd.Parameters.Add("@gps", SqlDbType.VarChar).Value = IV6.Text
40. cmd.Parameters.Add("@name", SqlDbType.VarChar).Value = IV7.Text
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58. Dim Img As SqlParameter = New SqlParameter("@pic1",
59. System.Data.SqlDbType.Image)
60. Dim img2 As SqlParameter = New SqlParameter("@pic2",
61. System.Data.SqlDbType.Image)
62. Img.Value = fsImage
63. img2.Value = fsImage
64. cmd.Parameters.Add(Img)
65. cmd.Parameters.Add(img2)
66. Try
67. Conn.Open()
68. cmd.ExecuteNonQuery()
69. Conn.Close()
70. MessageBox.Show("Save Image Complete", "Success")
71. Catch ex As Exception
72. MessageBox.Show(ex.Message.ToString(), "Error")
73. Exit Sub
74. End Try
75. End If
76.
77.
78. End Sub
