帮我转换一下，谢谢-CSDN论坛

⋅老朋友 ⋅LDAP读取扩展属性的问题 ⋅帮我转换一下，谢谢 更多帖子 关注空间博客 TTLOVEYOU3344 本版专家分：0 结帖率 98.73%:   我写了一个SQL server存储过程，但我不会ORACLE，现在需要把这个存储过程改成ORACLE，谢谢各位了
create procedure pr_ModifyHQSchedule--生成总部计划
@scheduleName varchar(50),
@scheduleType varchar(1),
@scheduleCreater varchar(38),
@yearMonth varchar(10),
@scheduleData varchar(100)
as
DECLARE @PointerPrev int
DECLARE @PointerCurr int
DECLARE @TId varchar(10)
declare @guid varchar(100)
declare @scheduleDay int
declare @tdate datetime
Set @PointerPrev=1
SET @scheduleDay=0--将具体日期初始化为0
---先处理主表T_HQ_Schedule的数据
set @guid=newid()
       if((select count(1) from T_HQ_Schedule
where HQ_Schedule_Name=@yearMonth)>0)
begin
delete from T_HQ_Schedule
   where HQ_Schedule_Date=@yearMonth
end
if((select count(1) from T_HQ_Schedule_Date_Record
where cast(year(Schedule_Date) as varchar(10))+cast(month(Schedule_Date) as varchar(10))=@yearMonth
)>0)
begin
delete from T_HQ_Schedule_Date_Record
where cast(year(Schedule_Date) as varchar(10))+cast(month(Schedule_Date) as varchar(10))=@yearMonth
end
insert into T_HQ_Schedule(HQ_Schedule_Guid,HQ_Schedule_Name,Schedule_Class,Record_Creator,
Is_Published,Record_CreatorDateTime,HQ_Schedule_Date)
values(@guid,@scheduleName,@scheduleType,@scheduleCreater,'N',getdate(),@yearMonth)
---处理明细表T_HQ_Schedule_Date_Record的数据
while (@PointerPrev < LEN(@scheduleData))
Begin
    Set @PointerCurr=CharIndex(',',@scheduleData,@PointerPrev)
    if(@PointerCurr>0)
    Begin
        set @TId=SUBSTRING(@scheduleData,@PointerPrev,@PointerCurr-@PointerPrev)
        ------
set @scheduleDay=@scheduleDay+1
set @tdate = cast( substring(@yearMonth,1,4)+'-'+substring(@yearMonth,5,len(@yearMonth) - 4)+'-'
+ cast(@scheduleDay as varchar(10) as datetime)
insert into T_HQ_Schedule_Date_Record(HQ_Schedule_Date_Guid,HQ_Schedule_Guid,Schedule_Date,
Schedule_Content,Record_Creator,Record_Creator,Record_CreatorDateTime)
values(newid(),@guid,@tdate,@TId,@scheduleCreater,getdate())
        SET @PointerPrev = @PointerCurr+1
    End
    else
        Break
End
--处理最后一个,因为最后一个后面没有逗号,所以在循环中跳出,需另外再处理
set @scheduleDay=@scheduleDay+1
set @TId=SUBSTRING(@scheduleData,@PointerPrev,LEN(@scheduleData)-@PointerPrev+1)
set @tdate = cast( substring(@yearMonth,1,4)+'-'+substring(@yearMonth,5,len(@yearMonth) - 4)+'-'
+ cast(@scheduleDay as varchar(10) as datetime)
insert into T_HQ_Schedule_Date_Record(HQ_Schedule_Date_Guid,HQ_Schedule_Guid,Schedule_Date,
Schedule_Content,Record_Creator,Record_Creator,Record_CreatorDateTime)
values(newid(),@guid,@tdate,@TId,@scheduleCreater,getdate())

0 2009-10-23 14:44:10

回复数 9 只看楼主引用举报楼主

⋅有没有合肥的，对Oracle有兴趣的在校学生？ ⋅Dave Oracle 学习手册 v1.2 有目录版下载 ⋅求合租 更多帖子 关注空间博客 Dave 本版专家分：28237 黄花 2009年12月 Oracle大版内专家分月排行榜第二: 头看晕了...帮顶..

0 2009-10-23 14:50:58

只看TA 引用举报 #1 得分 2

⋅python使用eval计算布尔值的问题 ⋅使用BufferedWriter文件为什么会被清空？ ⋅大家好，请问有python经验，想学习一下java，有什么推荐的书籍吗？ 更多帖子 关注空间博客 wh62592855 本版专家分：8388: 会ORACLE 但不会MS SQL 呵呵

0 2009-10-23 15:02:48

只看TA 引用举报 #2 得分 2

⋅oracle管理问题 ⋅急!!!!!在线等~~~Oracle数据库中分区表和分表的区别 ⋅如何替换指定字符串某一位字符？ 更多帖子 关注空间博客 sxx_tt 本版专家分：539: @scheduleName varchar(50),
@scheduleType varchar(1),
@scheduleCreater varchar(38),
@yearMonth varchar(10),
@scheduleData varchar(100)
是输入参数？

0 2009-10-23 15:13:38

只看TA 引用举报 #3 得分 2

⋅新年快樂 ⋅仲秋快乐 ^_^ ⋅查询优化 更多帖子 关注空间博客 shiyiwan 本版专家分：16992 蓝花 2013年10月 Oracle大版内专家分月排行榜第三 2009年10月 Oracle大版内专家分月排行榜第三 2009年9月 Oracle大版内专家分月排行榜第三

create or replace procedure pr_ModifyHQSchedule(

   v_scheduleName       in varchar2(50), 

   v_scheduleType       in varchar2(1), 

   v_scheduleCreater    in varchar2(38), 

   v_yearMonth          in varchar2(10), 

   v_scheduleData       in varchar(100)

) 

as 

   v_PointerPrev     number         := 1;

   v_PointerCurr     number         := 0; 

   v_TId             varchar2(10) ;

   v_guid            varchar2(100)  := sys_guid();

   v_scheduleDay     number         := 0;

   v_tdate           date;



---先处理主表T_HQ_Schedule的数据 

begin



   delete from T_HQ_Schedule 

   where HQ_Schedule_Date   = v_yearMonth;



   delete from T_HQ_Schedule_Date_Record 

   where to_char(Schedule_Date,'yyyymm')   = v_yearMonth;



   insert into T_HQ_Schedule(HQ_Schedule_Guid,HQ_Schedule_Name,Schedule_Class,

                             Record_Creator,Is_Published,

                             Record_CreatorDateTime,HQ_Schedule_Date) 

   values(v_guid,v_scheduleName,v_scheduleType,v_scheduleCreater,'N',

          sysdate,v_yearMonth);



---处理明细表T_HQ_Schedule_Date_Record的数据 

   while v_PointerPrev < length(v_scheduleData) loop 

      v_PointerCurr  := INSTR(v_scheduleData,',',v_PointerPrev); 

      if v_PointerCurr > 0 then

         v_TId          := SUBSTR(v_scheduleData,v_PointerPrev,v_PointerCurr-v_PointerPrev); 

         v_scheduleDay  := v_scheduleDay + 1; 

         v_tdate        := to_date(v_yearMonth||lpad(v_scheduleDay,2,'0'),'yyyymmdd');

         insert into T_HQ_Schedule_Date_Record(HQ_Schedule_Date_Guid,HQ_Schedule_Guid,

                                               Schedule_Date, Schedule_Content,

                                               Record_Creator,Record_Creator,

                                               Record_CreatorDateTime)

         values(sys_guid(),v_guid,v_tdate,v_TId,v_scheduleCreater,sysdate); 



         v_PointerPrev  := v_PointerCurr + 1;

      end if;

   end loop;



--处理最后一个,因为最后一个后面没有逗号,所以在循环中跳出,需另外再处理 

   v_scheduleDay  := v_scheduleDay + 1;

   v_TId          := SUBSTR(v_scheduleData,v_PointerPrev,v_PointerCurr-v_PointerPrev+1); 

   v_tdate        := to_date(v_yearMonth||lpad(v_scheduleDay,2,'0'),'yyyymmdd');



   insert into T_HQ_Schedule_Date_Record(HQ_Schedule_Date_Guid,HQ_Schedule_Guid,

                                               Schedule_Date, Schedule_Content,

                                               Record_Creator,Record_Creator,

                                               Record_CreatorDateTime)

         values(sys_guid(),v_guid,v_tdate,v_TId,v_scheduleCreater,sysdate); 



exception

   when others then

      raise;

end pr_ModifyHQSchedule;

0 2009-10-23 15:15:01

只看TA 引用举报 #4 得分 50

⋅python使用eval计算布尔值的问题 ⋅使用BufferedWriter文件为什么会被清空？ ⋅大家好，请问有python经验，想学习一下java，有什么推荐的书籍吗？ 更多帖子 关注空间博客 wh62592855 本版专家分：8388: 引用 4 楼 shiyiwan 的回复:
SQL codecreateorreplaceprocedure pr_ModifyHQSchedule(
   v_scheduleNameinvarchar2(50),
   v_scheduleTypeinvarchar2(1),
   v_scheduleCreaterinvarchar2(38),
   v_yearMonthinvarchar2(10),
   v_schedu¡

我刚才在博客给你发了个消息你看一下

0 2009-10-23 15:16:56

只看TA 引用举报 #5    得分 7

⋅sql server 游标带变量怎么写 ⋅游标中带变量，怎么写？ ⋅获取网站在线会员数据，求高人指点，谢谢 更多帖子 关注空间博客 fyqwork 本版专家分：19: 语法其本上差不多，oracle参数前不用加@
  给个简单的例子希望对lz有帮助：
PROCEDURE sp_u_provideMaterialHead(smainbillheadid in out varchar2) is
  begin
    update t_drm_providematerialhead
       set MainBillState = '3'
     where Trim(mainbillheadid) = Trim(smainbillheadid);
  exception
    when others then
      smainbillheadid := sqlerrm;
      rollback;
  end sp_u_provideMaterialHead;

0 2009-10-23 15:22:41

只看TA 引用举报 #6    得分 7

⋅【欢乐的小猪】东方一声巨响

⋅发砖 [熊熊大叔]再来领砖

⋅发砖 [熊熊大叔]来领砖

更多帖子

关注空间博客

小灰狼W

本版专家分：59164

版主

优秀版主 2016年8月优秀大版主
2015年7月优秀大版主
2015年8月优秀大版主
2015年9月优秀小版主
2015年9月优秀大版主
2015年5月优秀小版主
2015年2月论坛优秀版主
2014年11月论坛优秀版主

红花 2016年1月 Oracle大版内专家分月排行榜第一
2015年6月 Oracle大版内专家分月排行榜第一
2015年4月 Oracle大版内专家分月排行榜第一
2015年3月 Oracle大版内专家分月排行榜第一
2015年2月 Oracle大版内专家分月排行榜第一
2014年6月 Oracle大版内专家分月排行榜第一
2009年11月 Oracle大版内专家分月排行榜第一
2009年10月 Oracle大版内专家分月排行榜第一

黄花 2015年9月 Oracle大版内专家分月排行榜第二
2015年7月 Oracle大版内专家分月排行榜第二
2015年1月 Oracle大版内专家分月排行榜第二
2014年12月 Oracle大版内专家分月排行榜第二
2014年11月 Oracle大版内专家分月排行榜第二
2014年8月 Oracle大版内专家分月排行榜第二
2014年7月 Oracle大版内专家分月排行榜第二
2014年5月 Oracle大版内专家分月排行榜第二
2010年1月 Oracle大版内专家分月排行榜第二
2009年9月 Oracle大版内专家分月排行榜第二

蓝花 2015年12月 Oracle大版内专家分月排行榜第三
2014年10月 Oracle大版内专家分月排行榜第三
2014年9月 Oracle大版内专家分月排行榜第三
2010年5月 Oracle大版内专家分月排行榜第三
2009年12月 Oracle大版内专家分月排行榜第三
2009年8月 Oracle大版内专家分月排行榜第三

..慢了一步``
把我的结果也发出来吧
那个newid()不知道是干什么用的函数，所以没转换

create procedure pr_ModifyHQSchedule--生成总部计划 

(p_scheduleName varchar2, 

 p_scheduleType varchar2, 

 p_scheduleCreater varchar2, 

 p_yearMonth varchar2, 

 p_scheduleData varchar2 )

as 

DECLARE 

 v_PointerPrev number ;

 v_PointerCurr number; 

 v_TId varchar2(10) ;

 v_guid varchar2(100) ;

 v_scheduleDay number;

 v_tdate date;

 v_count number;

begin

 v_PointerPrev:=1; 

 scheduleDay:=0;--将具体日期初始化为0 

---先处理主表T_HQ_Schedule的数据 

v_guid:=newid() 

 select count(1) into v_count from T_HQ_Schedule 

where HQ_Schedule_Name=p_yearMonth;

if v_count>0 then 

  delete from T_HQ_Schedule 

    where HQ_Schedule_Date=p_yearMonth ;

end if;

 select count(1) into v_count from T_HQ_Schedule_Date_Record 

    where to_char(Schedule_Date,'yyyymm')=p_yearMonth ;

if v_count>0 then  

delete from T_HQ_Schedule_Date_Record 

where to_char(Schedule_Date,'yyyymm')=p_yearMonth ;

end if;

insert into T_HQ_Schedule(HQ_Schedule_Guid,HQ_Schedule_Name,Schedule_Class,Record_Creator, 

Is_Published,Record_CreatorDateTime,HQ_Schedule_Date) 

values(v_guid,p_scheduleName,p_scheduleType,p_scheduleCreater,'N',sysdate,p_yearMonth) ;

---处理明细表T_HQ_Schedule_Date_Record的数据 

while (v_PointerPrev < LENGTH(p_scheduleData)) 

loop

    v_PointerCurr:=instr(p_scheduleData,',',v_PointerPrev) 

    if(v_PointerCurr>0) 

    then

        v_TId:=SUBSTR(p_scheduleData,v_PointerPrev,v_PointerCurr-v_PointerPrev) ;

        ------ 

 v_scheduleDay:=v_scheduleDay+1 ;

 tdate = cast( p_yearmonth||'-'||scheduleDay,'yyyymm-dd'); 

insert into T_HQ_Schedule_Date_Record(HQ_Schedule_Date_Guid,HQ_Schedule_Guid,Schedule_Date, 

Schedule_Content,Record_Creator,Record_Creator,Record_CreatorDateTime) 

values(newid(),v_guid,v_tdate,v_TId,p_scheduleCreater,sysdate); 

     v_PointerPrev := v_PointerCurr+1 ;

    

    else 

        exit; end if;

End loop;

--处理最后一个,因为最后一个后面没有逗号,所以在循环中跳出,需另外再处理 

v_scheduleDay:=v_scheduleDay+1 ;

v_TId:=SUBSTR(p_scheduleData,v_PointerPrev,LENGTH(p_scheduleData)-v_PointerPrev+1) ;

v_tdate = to_date( p_yearMonth||'-'||scheduleDay ,'yyyymm-dd') ;

insert into T_HQ_Schedule_Date_Record(HQ_Schedule_Date_Guid,HQ_Schedule_Guid,Schedule_Date, 

Schedule_Content,Record_Creator,Record_Creator,Record_CreatorDateTime) 

values(newid(),v_guid,v_tdate,v_TId,p_scheduleCreater,sysdate);

0 2009-10-23 15:30:03

只看TA 引用举报 #7 得分 0

⋅【欢乐的小猪】东方一声巨响

⋅发砖 [熊熊大叔]再来领砖

⋅发砖 [熊熊大叔]来领砖

更多帖子

关注空间博客

小灰狼W

本版专家分：59164

版主

优秀版主 2016年8月优秀大版主
2015年7月优秀大版主
2015年8月优秀大版主
2015年9月优秀小版主
2015年9月优秀大版主
2015年5月优秀小版主
2015年2月论坛优秀版主
2014年11月论坛优秀版主

红花 2016年1月 Oracle大版内专家分月排行榜第一
2015年6月 Oracle大版内专家分月排行榜第一
2015年4月 Oracle大版内专家分月排行榜第一
2015年3月 Oracle大版内专家分月排行榜第一
2015年2月 Oracle大版内专家分月排行榜第一
2014年6月 Oracle大版内专家分月排行榜第一
2009年11月 Oracle大版内专家分月排行榜第一
2009年10月 Oracle大版内专家分月排行榜第一

黄花 2015年9月 Oracle大版内专家分月排行榜第二
2015年7月 Oracle大版内专家分月排行榜第二
2015年1月 Oracle大版内专家分月排行榜第二
2014年12月 Oracle大版内专家分月排行榜第二
2014年11月 Oracle大版内专家分月排行榜第二
2014年8月 Oracle大版内专家分月排行榜第二
2014年7月 Oracle大版内专家分月排行榜第二
2014年5月 Oracle大版内专家分月排行榜第二
2010年1月 Oracle大版内专家分月排行榜第二
2009年9月 Oracle大版内专家分月排行榜第二

蓝花 2015年12月 Oracle大版内专家分月排行榜第三
2014年10月 Oracle大版内专家分月排行榜第三
2014年9月 Oracle大版内专家分月排行榜第三
2010年5月 Oracle大版内专家分月排行榜第三
2009年12月 Oracle大版内专家分月排行榜第三
2009年8月 Oracle大版内专家分月排行榜第三: 过程头部as后的declare忘了去掉了

0 2009-10-23 15:30:48

只看TA 引用举报 #8 得分 0

⋅oracle管理问题 ⋅急!!!!!在线等~~~Oracle数据库中分区表和分表的区别 ⋅如何替换指定字符串某一位字符？ 更多帖子 关注空间博客 sxx_tt 本版专家分：539

 create sequence gid

minvalue 1

maxvalue 99999999999999999999999999

start with 1

increment by 1

cache 20;



create or replace procedure pr_ModifyHQSchedule--生成总部计划 

(     scheduleName varchar2, 

      scheduleType varchar2, 

      scheduleCreater varchar2, 

      yearMonth varchar2, 

      scheduleData varchar2

) 

as 

PointerPrev int(100); 

PointerCurr int(100); 

TId varchar2(10); 

guid varchar2(100);--该处理解为取序列号，用之前先定义一个序列gid 

scheduleDay int(100); 

tdate date

PointerPrev number(10) :=1 

scheduleDay number(10) :=0--将具体日期初始化为0 

v_count number(10);

---先处理主表T_HQ_Schedule的数据 

begin

     select gid.nextval into guid from dual;

     select count(1) into v_count from T_HQ_Schedule 

     where HQ_Schedule_Name= yearMonth;

     

      if v_count >0 then

         begin 

               delete from T_HQ_Schedule 

               where HQ_Schedule_Date=@yearMonth 

         exception

                  when others then

                       dbms_output.put_line(sqlcode||':'||sqlerrm);

         end;

      end if;

      

      select count(1) into v_count from T_HQ_Schedule_Date_Record 

      where extract(year from Schedule_Date)||extract(month from Schedule_Date)= yearMonth

      

      if v_count >0 then 

         begin 

               delete from T_HQ_Schedule_Date_Record 

               where extract(year from Schedule_Date)||extract(month from Schedule_Date)= yearMonth 

         end;

      end if;

      

      insert into T_HQ_Schedule

      (   HQ_Schedule_Guid,

          HQ_Schedule_Name,

          Schedule_Class,

          Record_Creator, 

          Is_Published,

          Record_CreatorDateTime,

          HQ_Schedule_Date

      ) 

      values(guid,scheduleName,scheduleType,scheduleCreater,'N',sysdate,yearMonth);

      

      

      ---处理明细表T_HQ_Schedule_Date_Record的数据 

    while PointerPrev < length(scheduleData) loop 

          Begin 

                PointerCurr := instr(scheduleData,',',PointerPrev);

                if PointerCurr>0 then 

                   Begin 

                        TId := substr(scheduleData,PointerPrev,PointerCurr-PointerPrev);

                    ------ 

                        scheduleDay := scheduleDay+1;

                         

                        tdate := to_date(substr(yearMonth,1,4)||'-'||substr(yearMonth,5,len(yearMonth) - 4)||'-' 

                                 ||extract(day from scheduleDay),'yyyy-mm-dd'); 

                                 

                         insert into T_HQ_Schedule_Date_Record

                         (HQ_Schedule_Date_Guid,HQ_Schedule_Guid,Schedule_Date, 

                         Schedule_Content,Record_Creator,Record_Creator,Record_CreatorDateTime) 

                         values(gid.nextval,guid,tdate,TId,scheduleCreater,sysdate);

                         

                         PointerPrev := PointerCurr+1 ;

                   End;

                end if; 

          end;

     end loop;

exception

         when others then

              dbms_output.put_line(sqlcode||':'||sqlerrm);

End;

0 2009-10-23 15:41:48

只看TA 引用举报 #9 得分 0

帮我转换一下，谢谢 [问题点数：70分，结帖人TTLOVEYOU3344]