1 2
| Dim qrPart As String
qrPart = "Insert into `Part` (Part_Paper,Part_Ink_Front,Part_Ink_Reverse,Part_PlateChanges,Part_Perf_Margin,Part_Perf_Vert,Part_Perf_Horiz,Part_FilesHoles,Part_SellingUnit,Part_TotalNoPlate,Part_BoxQty) values ('" & Txt1Part_Paper.Text & "','" & Txt1Part_Ink_Front.Text & "','" & Txt1Part_Ink_Reverse.Text & "'," & Txt1Part_PlateChange.Text & "," & Txt1Part_Perf_Margin.Text & "," & Txt1Part_Perf_Vert.Text & "," & Txt1Part_Perf_Horiz.Text & ",'" & Txt1Part_Files.Text & "','" & Txt1Part_Selling.Text & "','" & Txt1Part_TotalNo.Text & "'," & Txt1Part_BoxQty.Text & ");" |
Partager