01.Private Sub saveProduct()
02. Dim sqlProduct As String
03. sb = New StringBuilder
04. sb.Append("INSERT INTO product (code,group_id,name_thai,name_eng,sell_price,glass,is_available,created,images)")
05. sb.Append(" VALUES (@code,@group_id,@name_thai,@name_eng,@sell_price,@glass,@is_available,@created,@images)")
06. sqlProduct = sb.ToString
07.
08. cmd = New SqlCommand
09.
10. With cmd
11. .CommandText = sqlProduct
12. .Connection = conn
13. .Parameters.Add("@code", SqlDbType.VarChar).Value = txtCode.Text.Trim
14. .Parameters.Add("@group_id", SqlDbType.SmallInt).Value = cboGroup.SelectedValue
15. .Parameters.Add("@name_thai", SqlDbType.VarChar).Value = txtNameThai.Text.Trim
16. .Parameters.Add("@name_eng", SqlDbType.VarChar).Value = txtNameEng.Text.Trim
17. .Parameters.Add("@sell_price", SqlDbType.Decimal).Value = txtSell_Price.Text.Trim
18. .Parameters.Add("@glass", SqlDbType.SmallInt).Value = cboGlass.SelectedValue
19. .Parameters.Add("@is_available", SqlDbType.TinyInt).Value = "1"
20. .Parameters.Add("@created", SqlDbType.DateTime).Value = DateTime.Now
21. .Parameters.Add("@images", SqlDbType.Image).Value = File.ReadAllBytes(getImage)
22. .ExecuteNonQuery()
23. End With
24. MsgBox("บันทึกข้อมูลเรียบร้อยแล้ว", MsgBoxStyle.Information, "แจ้งเตือน")
25. Call ShowProduct()
26. Call ClearTextboxProduct()
27.
28.
29.
30.
31. End Sub
Load balance : Server 02
