function check_actionata(p_actionata defect.actionata%type,
p_actype orders.actype%type,
p_return out varchar2) return number is
l_count number;
begin
if trim(p_actionata) is null then
p_return := null;
return 1;
end if;
if trim(p_actype) is null then
select count(ata)
into l_count
from ata
where trim(ata) = trim(p_actionata)
and not_for_defect is null;
else
select count(ata)
into l_count
from ata
where trim(actype) = trim(p_actype)
and trim(ata) = trim(p_actionata)
and not_for_defect is null;
end if;
if l_count = 0 then
p_return := zh_pub_function.get_message('DEFECT', -7);
return 0;
end if;
p_return := null;
return 1;
end check_actionata;
调用函数：
if dwo.name = 'ata' then
data = trim(data)
ls_actype = trim(ls_actype)
ls_return = trim(ls_return)
sqlca.check_actionata( data, ls_actype, ls_return)
messagebox('提示',sqlca.sqlerrtext)
if trim(ls_return) <>'' then
else
messagebox('提示',ls_return)
end if
end if
里面就是‘sql代码’那段，在我发的帖子里面有的。
function check_actionata(p_actionata defect.actionata%type,
p_actype orders.actype%type,
p_return out varchar2) return number is
l_count number;
begin
if trim(p_actionata) is null then
p_return := null;
return 1;
end if;
if trim(p_actype) is null then
select count(ata)
into l_count
from ata
where trim(ata) = trim(p_actionata)
and not_for_defect is null;
else
select count(ata)
into l_count
from ata
where trim(actype) = trim(p_actype)
and trim(ata) = trim(p_actionata)
and not_for_defect is null;
end if;
if l_count = 0 then
p_return := zh_pub_function.get_message('DEFECT', -7);
return 0;
end if;
p_return := null;
return 1;
end check_actionata;
在oracle10中写好了<em>存储</em><em>过程</em>，代码如下：
CREATE OR REPLACE Procedure Proc_Insert
(
sName in varchar2,
sAge in int,
sExeTime in varchar2
)
is
begin
Insert into T_TES
一个简单的<em>存储</em><em>过程</em>
create or re<em>pl</em>ace procedure my_proc as //如果存在就re<em>pl</em>ace掉（覆盖）
begin
dbms_output.put_line('Hello World!');
end my_proc; //结束
/
执行<em>存储</em><em>过程</em>可用exec或者execute，如exec procedure_name
重要的参
create or re<em>pl</em>ace procedure testPro(
i in number,
j in number
) is
var_sum number;
begin
var_sum:=i+j;
dbms_output.put_line(var_sum);
end testPro;
一个简单的<em>存储</em><em>过程</em>， 开始我是直接exec testPro(1,2) 但是这
<em>存储</em><em>过程</em>：
CREATE OR REPLACE PROCEDURE stu_proc(v_name IN VARCHAR2 DEFAULT '张三', v_id OUT NUMBER) AS
--声明语句段
BEGIN
--执行语句段
SELECT id INTO v_id FROM student where sname=v_name;
EXCEPTION
--
1、IN模式
IN模式是参数的默认模式，这种模式就是在程序运行的时候已经具有<em>值</em>，在程序体中<em>值</em>不会改变。
<em>错误</em>例子：
1 create or re<em>pl</em>ace procedure in_proc (
2 p_a in number , -- 形参， 这里的<em>值</em>是<em>调用</em>处传递的实参
3 p_b in number
4 )as
5...
今天在项目中执行<em>sql</em>时遇到一个问题，执行select wmsys.wm_concat(p_codes) codes from t_rel where id='123'这样一个语句时报这样的<em>错误</em>：numeric or value error: character string buffer too small(<em>数字</em>或<em>值</em><em>错误</em>：字符<em>缓冲区</em><em>太小</em>)经查明，wm_concat函数拼接的<em>字符串</em>不能超过4000字
认证考试软件Visual CertExam Suite v1.9.987注册信息
相关下载链接：[url=//download.csdn.net/download/barcellay/3918808?utm_source=bbsseo]//download.csdn.net/download/barcellay/3918808?utm_source=bbsseo[/url]
