以下 AllRecord 是存储过程名,在VB中调用的这个过程, 不过,总共有10个这样的过程 Function AllRecord(fymc As String) As Double Dim cmd As ADODB.Command Dim rsp As New ADODB.Recordset Set cmd = New ADODB.Command Set cmd.ActiveConnection = conn With cmd .CommandText = "AllRecord" .CommandType = adCmdStoredProc .Parameters.Refresh .Parameters("@qsrq").Value = DTPicker1.Value .Parameters("@jsrq").Value = DTPicker2.Value .Parameters("@fymc").Value = fymc '.Parameters("@date2").Value = datestring2 End With Set rsp.Source = cmd rsp.CursorLocation = adUseClient rsp.CursorType = adOpenStatic rsp.LockType = adLockPessimistic rsp.Open If rsp.EOF Then AllRecord = 0 Else
If IsNull(rsp("fymc")) = False Then AllRecord = rsp("fymc") Else AllRecord = 0 End If End If End Function
不过,总共有10个这样的过程
Function AllRecord(fymc As String) As Double
Dim cmd As ADODB.Command
Dim rsp As New ADODB.Recordset
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = conn
With cmd
.CommandText = "AllRecord"
.CommandType = adCmdStoredProc
.Parameters.Refresh
.Parameters("@qsrq").Value = DTPicker1.Value
.Parameters("@jsrq").Value = DTPicker2.Value
.Parameters("@fymc").Value = fymc
'.Parameters("@date2").Value = datestring2
End With
Set rsp.Source = cmd
rsp.CursorLocation = adUseClient
rsp.CursorType = adOpenStatic
rsp.LockType = adLockPessimistic
rsp.Open
If rsp.EOF Then
AllRecord = 0
Else
If IsNull(rsp("fymc")) = False Then
AllRecord = rsp("fymc")
Else
AllRecord = 0
End If
End If
End Function