Oracle存储过程是怎样的？

全部回答

2017-07-27

47 0

第一个存储过程，属性串替换函数,常用于数据订正过程中(使用oracle提供的replace函数会有问题)create or replace function sp_replace_property_value(v_ch varchar2,v_from varchar2,v_to varchar2) return varchar2/*creator:danchencreate_time:2008-4-19function:replace taobao' property name and property value id as groupv_ch 属性串;v_from 源属性; v_to 目标属性,目标属性可为空，则变成删除属性*/as--定义返回的返回的属性字符串result_v varchar2(200):='';--定义剩余属性字符串变量temp_v varchar2(200):='';--定义分号位置fenhao_address number;--定义临时属性对变量v_pv varchar2(20); begin if v_ch is null or v_from is null then return 'error'; end if; if instr(v_ch,':') = 0 or instr(v_from,':')= 0 then return 'error'; end if; temp_v := v_ch; loop fenhao_address := instr(temp_v,';'); if fenhao_address=0 then --没有找到分号,则为最后一组属性名：属性值 v_pv := temp_v; --检查属性是否是要替换的属性 if v_pv != v_from then result_v := result_v||';'||v_pv ; else if v_to is not null then result_v := result_v||';'||v_to; end if; end if; --跳出循环 exit; else --取出属性对 v_pv := substr(temp_v,1,instr(temp_v,';')-1); --检查属性是否是要替换的属性 if v_pv != v_from then result_v := result_v||';'||v_pv ; else if v_to is not null then result_v := result_v||';'||v_to; end if; end if; --得到剩余的属性对 temp_v := substr(temp_v,instr(temp_v,';')+1); end if; end loop; --对结果进行处理,去掉最左侧的分号 if substr(result_v,1,1)=';' then result_v := substr(result_v,2); end if; --返回结果 return result_v;end sp_replace_property_value; 第一个存储过程使用示例： SQL> select sp_replace_property_value('33392:118167;33393:107054;33391:118167','33393:107054','') from dual; SP_REPLACE_PROPERTY_VALUE('33392:118167;33393:107054;33391:118167','33393:107054 -------------------------------------------------------------------------------- 33392:118167;33391:118167 SQL> select sp_replace_property_value('33392:118167;33393:107054;33391:118167','33393:107054','33393:100') from dual; SP_REPLACE_PROPERTY_VALUE('33392:118167;33393:107054;33391:118167','33393:107054 -------------------------------------------------------------------------------- 33392:118167;33393:100;33391:118167。
。

提交

相关回答

A***

2017-07-27

Oracle存储过程返回结果集有

  1。返回数组 (作者:enhydraboy(乱舞的浮尘) )　　在oracle后台创建一个程序包或者存储过程　　connect scott/tiger;　　CREATE OR REPLACE PACKAGE ado_callpkg AS　　TYPE eid IS TABLE of NUMBER(4) INDEX BY BINARY_INTEGER;　　TYPE ename IS TABLE of VARCHAR2(40) INDEX BY BINARY_INTEGER;　　PROCEDURE getEmpNames (empid OUT eid,empname OUT ename);　　end ado_callpkg;　　CREATE OR REPLACE PACKAGE BODY ado_callpkg AS　　PROCEDURE getEmpNames (empid OUT eid,empname OUT ename) IS　　CURSOR c1 IS select employee_id,first_name||','||Middle_Initial||','||last_name as name from employee;　　cnt NUMBER DEFAULT 1;　　c c1%ROWTYPE;　　BEGIN　　open c1;　　LOOP 　　 FETCH c1 INTO c; 　　 empname(cnt):=c。
  name; 　　 empid(cnt):=c。employee_id; 　　 EXIT WHEN c1%NOTFOUND; -- process the data 　　 cnt :=cnt+1; 　　END LOOP;　　close c1;　　END;　　end ado_callpkg;　　2 前台vb程序调用　　 Dim cn As New ADODB。
  Connection　　 Dim rs As New ADODB。Recordset　　 Dim cmd As New ADODB。Command 　　 Dim str As String 　　 str = "{call ado_callpkg。
  getEmpNames({resultset 100,empid,empname})}" 　　 cn。Open "Provider=MSDAORA。1;Password=tiger;User ID=scott;Data Source=ORACLE;Persist Security Info=True" 　　 With cmd 　　。
  CommandText = str 　　。ActiveConnection = cn 　　。CommandType = adCmdText 　　End With 　　 rs。
  CursorLocation = adUseClient 　　 rs。Open cmd 　　 Do While Not rs。EOF 　　 Debug。Print rs。
  Fields(0)。Value & vbTab & rs。Fields(1)。Value 　　 rs。MoveNext 　　 Loop------------　　总结　　1 oracle的后台存储过程，应该通过一个类似数组并且带有数字索引的变量返回，有多少个列，就有对应多少个变量　　2 前台，调用的sql语句写法要注意，　　{call 。
   (,,。。。。,{resultset 　　,,,。。。})}　　注意的细节　　(1) 要自己指定一个数字，表示接受的行数大小，如果太小，而实际返回的记录大于这个数字，会出错　　(2) 如果有输入参数，应该在command中创建输入参数,对应的地方用?替代，如　　{call ado_callpkg。
  getEmpNames(?,{resultset 100,empid,empname})}　　(3) output和你存储函数的定义一致，参数名要一样，次序也一样，否则也会出错。。收起

Oracle存储过程是怎样的？

全部回答

相关回答

Oracle存储过程返回结果集有

类似问题换一批

热点推荐

热度TOP

热点搜索换一换

Oracle存储过程是怎样的？

全部回答

相关回答

Oracle存储过程返回结果集有

类似问题换一批

热点推荐

热度TOP

热点搜索 换一换

热点搜索换一换