01.Dim sql As String = ""
02. sql = "INSERT INTO po1 (PO_ID,ID,NAME,Timeproduct,PRICE,MEMID,Firstname_m,Lastname_m,EMPID,Firstname_e,Lastname_e,COMMISSION,Employee_wage,Owner_wage,Date,Time) VALUES (@PO_ID,@ID,@NAME,@Timeproduct,@PRICE,@MEMID,@Firstname_m,@Lastname_m,@EMPID,@Firstname_e,@Lastname_e,@COMMISSION,@Employee_wage,@Owner_wage,@Date,@Time)"
03. dc = New SqlCommand(sql, sqlcon)
04. For r As Integer = 0 To dg2.RowCount - 1
05. With dc
06.
07. .Parameters.AddWithValue("PO_ID", (txtpo_id.Text))
08. .Parameters.AddWithValue("ID", dg2.Rows(r).Cells(9).Value)
09. .Parameters.AddWithValue("NAME", dg2.Rows(r).Cells(0).Value)
10. .Parameters.AddWithValue("Timeproduct", dg2.Rows(r).Cells(1).Value)
11. .Parameters.AddWithValue("PRICE", dg2.Rows(r).Cells(3).Value)
12. .Parameters.AddWithValue("MEMID", (txtMEMID.Text))
13. .Parameters.AddWithValue("Firstname_m", (txtFirstname_m.Text))
14. .Parameters.AddWithValue("Lastname_m", (txtLastname_m.Text))
15. .Parameters.AddWithValue("EMPID", (txtEMPID.Text))
16. .Parameters.AddWithValue("Firstname_e", dg2.Rows(r).Cells(2).Value)
17. .Parameters.AddWithValue("Lastname_e", (txtLastname_e.Text))
18. .Parameters.AddWithValue("COMMISSION", dg2.Rows(r).Cells(6).Value)
19. .Parameters.AddWithValue("Employee_wage", dg2.Rows(r).Cells(7).Value)
20. .Parameters.AddWithValue("Owner_wage", dg2.Rows(r).Cells(8).Value)
21. .Parameters.AddWithValue("Date", dg2.Rows(r).Cells(5).Value)
22. .Parameters.AddWithValue("Time", dg2.Rows(r).Cells(4).Value)
23.
24.
25. End With
26. MessageBox.Show("บันทึกข้อมูลสำเร็จ", "ร้านเฮอบัลสปา", MessageBoxButtons.OK)
27. dc.ExecuteNonQuery()
28. dc.Parameters.Clear()
