01.Dim i As Integer = ListView_sale.Items.Count - 1
02. For j As Integer = 0 To i
03. Dim product_id As String = ListView_sale.Items(j).SubItems(1).Text
04. Dim product_amount As Integer = ListView_sale.Items(j).SubItems(4).Text
05. Dim product_total As Double = ListView_sale.Items(j).SubItems(5).Text
06. sql = "insert into sale_detail(sale_id,product_id,sale_detailProduct_amount,sale_detailProduct_total) values (@a1,@a2,@a3,@a4)"
07. cmd = New SqlClient.SqlCommand(sql, cn)
08. cmd.Parameters.Clear()
09. cmd.Parameters.AddWithValue("a1", sale_max)
10. cmd.Parameters.AddWithValue("a2", product_id)
11. cmd.Parameters.AddWithValue("a3", product_amount)
12. cmd.Parameters.AddWithValue("a4", product_total)
13. Next
14. If cmd.ExecuteNonQuery = 0 Then
15. msg_error("ไม่สามารถบันทึกข้อมูลได้")
16. Return
17. Else
18. msg_ok("บันทึกข้อมูลสำเร็จ")
19. End If
Load balance : Server 05
