调用的部分代码如下 Public Function GetDCheck(strCustomerID As String, strOrderNo As String) As Long Dim Cmd As New ADODB.Command With Cmd .ActiveConnection = mAdoConn .CommandType = adCmdStoredProc .CommandText = "DeliveryGetDCheck" .Parameters(1) = strCustomerID .Parameters(2) = strOrderNo .Execute GetDCheck = .Parameters(0) End With End Function
,锁我也看了,只有S 和IS 锁 ,我所做的工作都是查询没有其他操作
Public Function GetDCheck(strCustomerID As String, strOrderNo As String) As Long
Dim Cmd As New ADODB.Command With Cmd
.ActiveConnection = mAdoConn
.CommandType = adCmdStoredProc
.CommandText = "DeliveryGetDCheck"
.Parameters(1) = strCustomerID
.Parameters(2) = strOrderNo
.Execute
GetDCheck = .Parameters(0)
End With
End Function