et cnn.ConnectionString = "Provider=SQLOLEDB;" _ & "server=127.0.0.1;" _ & "User ID=sa;" _ & "Password =qwe;" _ & "DNS=d;" _ & "Initial Catalog =c" cnn.Open If MsgBox(StrConv("是否打印？", vbWide), _ vbQuestion + vbYesNo) = vbYes Then On Error GoTo err_proc cnn.BeginTrans sql = "select * from Tb_BarCode_save where left(bar_code,len(bar_code)-4)='" & str_Barcode & "'" rs.Open sql, cnn, 3, 2 If rs.RecordCount = 0 Then rs.AddNew rs.Fields.Item(1).Value = Trim(str_Barcode) & "0001" rs.Fields.Item(2).Value = Trim(str_pack_number) rs.Fields.Item(3).Value = Trim(str_tex_index) rs.Fields.Item(4).Value = Trim(str_tex_employee_id) rs.Fields.Item(7).Value = Trim(str_tex_order_no) rs.Fields.Item(8).Value = str_print_time rs.Fields.Item(9).Value = Trim(str_tex_mcode) rs.Fields.Item(10).Value = Trim(str_tex_custums_code) rs.Fields.Item(11).Value = Trim(str_print_man) rs.Update ' rs.Close Else sql = "select Max(right(bar_code,4)) from Tb_BarCode_save where left (bar_code,len(bar_code)-4)='" & str_Barcode & "'" rs1.Open sql, cnn, 3, 2 strID = Format(CStr(CInt(rs1(0)) + 1), "0000") rs.AddNew
上一页 [1] [2] [3] [4] [5] 下一页
