用Command对象来执行存储过程太麻烦了,试试:
Set adoRs=adocn.Execute("sp_make_data '" & dtpStart.Value & "','" & dtpEnd.Value & "'")

解决方案 »

  1.   

    試一試這麼寫!    
      GCommand.ActiveConnection = GConnection
          With GCommand
                .CommandType = adCmdStoredProc
                .CommandText = StoredName
                .Parameters(1).Direction = adParamOutput 傳出參數
                .Parameters(2).Direction = adParamOutput
                .Parameters(3).Value = Action            傳入參數
                .Parameters(4).Value = Startdate
                .Parameters(5).Value = Enddate
          End With
          Set Rec = GCommand.Execute        Rec 為記錄集 
          Errnum = GCommand.Parameters(1).Value          獲得傳出參數
          Errmsg = GCommand.Parameters(2).Value
      

  2.   

    糟糕,仍然出现问题,提示expression转换成int的时候出错,救救~