1000,v_SerialNo,v_ServiceID,v_SMContent,v_SendTarget,v_Priority,v_RCompleteTimeBegin,v_RComp

leteTimeEnd,v_RCompleteHourBegin,v_RCompleteHourEnd,v_RequestTime,v_RoadBy,v_SendTargetDesc,

v_FeeValue,v_Pad1,v_Pad2,v_Pad3,v_Pad4,v_Pad5,v_Count})}"
  cmd.CommandType = adCmdText
  cmd.Parameters.Append .CreateParameter("v_NowByMinute", adInteger, adParamInput, , 900)
     
  Rs.CursorType = adOpenStatic
  Rs.LockType = adLockReadOnly
  Set Rs.Source = cmd
  Rs.Open  
  While Not Rs.EOF
      MsgBox "SendSM data:SerialNo: " & Rs("v_SerialNo") & ",SMContent: " & Rs

("v_SMContent") & ",Count: " & Rs("v_Count")
      '对结果集的处理在这里增加代码
      Rs.MoveNext
   Wend
   Rs.Close  
   set Rs=nothing
   set cmd=nothing
End Sub

上一页  [1] [2] [3] [4] [5] [6] [7]