为什么我调用存储过程,对5天以内的收款汇总的时候很快,但是天数越多就越慢啊,还不如本机的快啊?

解决方案 »

  1.   

    以下 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
      

  2.   

    SQL的问题似乎解决了,现在对VB进行调试,如果成功就结帖了,谢谢大家!