|
bsp; v_Priority out tPriority,
v_RCompleteTimeBegin out tRCompleteTimeBegin,
v_RCompleteTimeEnd out tRCompleteTimeEnd,
v_RCompleteHourBegin out tRCompleteHourBegin,
v_RCompleteHourEnd out tRCompleteHourEnd,
v_RequestTime out tRequestTime,
v_RoadBy out tRoadBy,
v_SendTargetDesc out tSendTargetDesc,
v_FeeValue out tFeeValue,
v_Pad1 out tPad1,
v_Pad2 out tPad2,
v_Pad3 out tPad3,
v_Pad4 out tPad4,
v_Pad5 out tPad5,
v_Count out tcount)
is
cursor sendsm_cur is
select * from sm_send_sm_list
where RCompleteHourBegin<=v_NowByMinute and
RCompleteHourEnd>=v_NowByMinute and (RCompleteTimeBegin is null or
RCompleteTimeBegin<=sysdate)
and (RCompleteTimeEnd is null or RCompleteTimeEnd>=sysdate-1)
and RowNum<1001;
smcount number default 1;
begin
for sm in sendsm_cur
loop
v_SerialNo(smcount):=sm.SerialNo;
v_ServiceID(smcount):=sm.ServiceID;
v_SMContent(smcount):=sm.SMContent;
v_SendTarget(smcount):=sm.SendTarget;
v_Priority(smcount):=sm.Priority;
v_RCompleteTimeBegin(smcount):=sm.RCompleteTimeBegin;
v_RCompleteTimeEnd(smcount):=sm.RCompleteTimeEnd;
v_RCompleteHourBegin(smcount):=sm.RCompleteHourBegin;
v_RCompleteHourEnd(smcount):=sm.RCompleteHourEnd;
v_RequestTime(smcount):=sm.RequestTime;
v_RoadBy(smcount):=sm.RoadBy;
v_SendTargetDesc(smcount):=sm.SendTargetDesc;
v_FeeValue(smcount):=sm.FeeValue;
v_Pad1(smcount):=sm.Pad1;
v_Pad2(smcount):=sm.Pad2;
v_Pad3(smcount):=sm.Pad3;
v_Pad4(smcount):=sm.Pad4;
v_Pad5(smcount):=sm.Pad5;
if smcount=1 then
select count(*)
into v_Count(smcount)
from sm_send_sm_list
where RCompleteHourBegin<=v_NowByMinute and
RCompleteHourEnd>=v_NowByMinute and (RCompleteTimeBegin is null or
RCompleteTimeBegin<=sysdate)
and (RCompleteTimeEnd is null or RCompleteTimeEnd>=sysdate-1)
and RowNum<1001;
end if;
smcount:= smcount + 1;
end loop;
end;
end;
/
二.使用VB调用OW_SMP_Package.GetSendSM存储过程:
Sub GetSendSM()
Dim cmd as New ADODB.Command
Dim rs as New ADODB.RecordSet
cmd.ActiveConnection = GetConnection''''获得数据库连接
cmd.CommandText = "{call ow_smp_package.GetSendSM(?,{resultset
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]
没有相关教程
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
