运行时错误'-2147168242(8004d00e)' 没有活动事

m(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
         rs.Fields.Item(1).Value = Trim(str_Barcode) & strID
         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   
          rs1.Close
         rs.Close      电加热炉温度控制系统的设计
     End If
cnn.CommitTrans'---------------
    MsgBox "success"
  Else
     MsgBox "failure"
End If
Set rs = Nothing
Set rs1 = Nothing
cnn.Close
Set cnn = Nothing
exit sub

err_proc:
      cnn.RollbackTrans
      MsgBox "出现错误保存失败!,请重新操作", 48, "提示"
      Exit Sub
Set rs = Nothing
Set rs1 = Nothing
cnn.Close
Set cnn = Nothing
End Sub

Sub save_barcode()     Dim cnn As New ADODB.Connection     Dim rs As New ADODB.Recordset     Dim rs1 As New ADODB.Records

上一页  [1] [2] [3] [4] [5] 下一页