01.Private Sub AddParameters(ByVal sql As String)
02. command.Parameters.Clear()
03. command.CommandText = sql
04. command.Parameters.AddWithValue("id", SqlDbType.Int).Value = txtID.Text
05. command.Parameters.AddWithValue("title", SqlDbType.NVarChar).Value = ComboTitle.Text
06. command.Parameters.AddWithValue("name", SqlDbType.NVarChar).Value = txtName.Text
07. command.Parameters.AddWithValue("address", SqlDbType.NVarChar).Value = txtAddress.Text
08. command.Parameters.AddWithValue("tel", SqlDbType.NVarChar).Value = txtTel.Text
09.
10. If Not (PictureBox1.Image Is Nothing) Then
11. Dim memStream As New IO.MemoryStream()
12. PictureBox1.Image.Save(memStream, Drawing.Imaging.ImageFormat.Bmp)
13. Dim pic() As Byte = memStream.ToArray()
14. command.Parameters.AddWithValue("pic", SqlDbType.Image).Value = pic
15. End If
16. End Sub
17.
18. Private Sub ButtonSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSave.Click
19.
20.
21. sql = "INSERT INTO Customer(CusID, CusTitle, CusName, CusAddress, CusTel)" & _
22. "VALUES(@id, @title, @name, @address, @tel)"
23.
24. sql = "INSERT INTO Customer"
25. If Not (PictureBox1.Image Is Nothing) Then
26. sql &= "(CusID, CusTitle, CusName, CusAddress, CusTel, CusPic) "
27. sql &= "VALUES(@id, @title, @name, @address, @tel, @pic)"
28. Else
29. sql &= "(CusID, CusTitle, CusName, CusAddress, CusTel) "
30. sql &= "VALUES(@id, @title, @name, @address, @tel)"
31. End If
32.
33. AddParameters(sql)
34.
35. Dim result As Integer = command.ExecuteNonQuery()
36. If result = -1 Then
37. MessageBox.Show("เกิดข้อผิดพลาด ไม่สามารถเพิ่มข้อมูลได้")
38. Else
39. MessageBox.Show("บันทึกข้อมูลแล้ว")
40.
41.
42.
43. ButtonAdd.PerformClick()
44. End If
45. End Sub
