01.Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
02. Try
03. Conn.Open()
04. Trs = Conn.BeginTransaction(IsolationLevel.ReadCommitted)
05.
06. sql = "insert into SaleOrder (Cus_ID,SaleOrder_Date) values (@Cus_ID,@SaleOrder_Date)"
07. cmd = New SqlCommand(sql, Conn)
08. cmd.Parameters.AddWithValue("Cus_ID", TextBox1.Text)
09. cmd.Parameters.AddWithValue("SaleOrder_Date", Label16.Text)
10. With cmd
11. .Connection = Conn
12. .Transaction = Trs
13. .CommandType = CommandType.Text
14. .CommandText = sql
15. End With
16. cmd.ExecuteNonQuery()
17. Trs.Commit()
18.
19. Conn.Close()
20.
21. Conn.Open()
22.
23. sql = "select max(SaleOrder_ID) as maxID from SaleOrder "
24. cmd = New SqlCommand(sql, Conn)
25. Reader = cmd.ExecuteReader
26. Reader.Read()
27. Dim s_id As Integer
28. s_id = CInt(Reader("maxID"))
29.
30.
31. Conn.Close()
32.
33. Conn.Open()
34.
35.
36. Dim i As Integer
37. For i = 0 To DataGridView1.Rows.Count - 2
38. sql = "insert into LotSaleOrder (Product_ID,sale_amount,SaleOrder_ID) " & _
39. "values (@Product_ID,@sale_amount,@SaleOrder_ID) "
40. cmd = New SqlCommand(sql, Conn)
41.
42. cmd.Parameters.AddWithValue("@Product_ID", DataGridView1.Rows(i).Cells(1).Value)
43. cmd.Parameters.AddWithValue("@sale_amount", DataGridView1.Rows(i).Cells(3).Value)
44. cmd.Parameters.AddWithValue("@SaleOrder_ID", s_id)
45. cmd.Parameters.Clear()
46.
47. With cmd
48. .Connection = Conn
49. .Transaction = Trs
50. .CommandType = CommandType.Text
51. .CommandText = sql
52. End With
53.
54. cmd.ExecuteNonQuery()
55. Trs.Commit()
56. Next
57.
58. MessageBox.Show("บันทึกรายการเรียบร้อย")
59. Conn.Close()
60.
61. Catch ex As Exception
62. Trs.Rollback()
63. MessageBox.Show("เกิดข้อผิดพลาด")
64. Conn.Close()
65. End Try
66.
67.
68. End Sub
