module3.bas

以上所有操作应用程序及数据库均要对其进行合法性有效性验证及相关约束条件检查

Attribute VB_Name = "BorrowerInsert"
Public Sub EXECommand2()
With ADOCOMMAND2
    .Parameters.Refresh
    .Parameters.Append .CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, , Null)
    .Parameters.Append .CreateParameter("@door_no", adChar, adParamInput, 20, strNumber)
    .Parameters.Append .CreateParameter("@isbn", adChar, adParamInput, 20, strIsbn)
    .Parameters.Append .CreateParameter("@return_books", adChar, adParamInput, 10, strReturn)
    .Parameters.Append .CreateParameter("@ProductID", adInteger, adParamInputOutput, , Null)

End With
End Sub

Public Function EXECInsert2(ByVal 图书证 As String, ByVal isbn As String, ByVal returnDate As String)
With ADOCOMMAND2
    .ActiveConnection = Aconnection
    .Parameters("@door_no") = 图书证
    .Parameters("@isbn") = isbn
    .Parameters("@return_books") = returnDate
    .Parameters("@ProductID") = Null
    
    
    .CommandText = "AddBorrowBooks"
    .CommandType = adCmdStoredProc
    
    .Execute
    
    .ActiveConnection = Nothing
    
     If .Parameters("RETURN_VALUE") = 0 Then
        MISBN = .Parameters("@ProductID")
    Else
        MsgBox "unable to add new isbn", vbCritical
        MISBN = 0
    End If
    End With
End Function