oracle 存储过程报错

Posted 2023-04-05

create or replace procedure Pro_sjcj

IS

begin
syear number;
smonth number;
sday number;
smachinecode varchar2(30);

SELECT year,month,day,machinecode INTO syear,smonth,sday,smachinecode FROM TS_VOLTAGE_MACHINEVOLTAGE where day=NEW.day;
IF syear=NEW.year AND smonth=NEW.month AND sday=NEW.day AND smachinecode=NEW.machinecode THEN rollback;
else
insert into TS_VOLTAGE_MACHINEVOLTAGE (year,month,day,)

select to_number(to_char(sysdate,'yyyy')),to_number(to_char(sysdate,'mm')),to_number(to_char(sysdate,'dd')),'6KV' from dual;

END IF;

commit;

end Pro_sjcj;

错误：
行号= 4 列号= 8 错误文本= PLS-00103: 出现符号 "NUMBER"在需要下列之一时： := . ( @ % ;
行号= 9 列号= 1 错误文本= PLS-00103: 出现符号 "SELECT"在需要下列之一时： begin function package pragma procedure subtype type use <an identifier> <a double-quoted delimited-identifier>

oracle 存储过程的基本语法

1.基本结构
CREATE OR REPLACE PROCEDURE 存储过程名字
(
参数1 IN NUMBER,
参数2 IN NUMBER
) IS
变量1 INTEGER :=0;
变量2 DATE;
BEGIN

END 存储过程名字

2.SELECT INTO STATEMENT
将select查询的结果存入到变量中，可以同时将多个列存储多个变量中，必须有一条
记录，否则抛出异常(如果没有记录抛出NO_DATA_FOUND)
例子：
BEGIN
SELECT col1,col2 into 变量1,变量2 FROM typestruct where xxx;
EXCEPTION
WHEN NO_DATA_FOUND THEN
xxxx;
END;
...

3.IF 判断
IF V_TEST=1 THEN
BEGIN
do something
END;
END IF;

4.while 循环
WHILE V_TEST=1 LOOP
BEGIN
XXXX
END;
END LOOP;

5.变量赋值
V_TEST := 123;

6.用for in 使用cursor
...
IS
CURSOR cur IS SELECT * FROM xxx;
BEGIN
FOR cur_result in cur LOOP
BEGIN
V_SUM :=cur_result.列名1+cur_result.列名2
END;
END LOOP;
END;

7.带参数的cursor
CURSOR C_USER(C_ID NUMBER) IS SELECT NAME FROM USER WHERE TYPEID=C_ID;
OPEN C_USER(变量值);
LOOP
FETCH C_USER INTO V_NAME;
EXIT FETCH C_USER%NOTFOUND;
do something
END LOOP;
CLOSE C_USER;

8.用pl/sql developer debug
连接数据库后建立一个Test WINDOW
在窗口输入调用SP的代码,F9开始debug,CTRL+N单步调试 参考技术A 目前的错误
第一:select前加BEGIN。。。或者前面IS后的BEGIN放到这里也可以
第二:声明变量时，后面NUMBER类型要定义长度 如
syear number(10);

ORACLE的存储过程执行报错

ORACLE的数据库，

存储过程的创建语句如下
create /*or replace */procedure cgl_3g_pd as
begin
drop table cgl_3g;
create table cgl_3g as
select a.serial_number 号码,
(select h.product_name from crm_ucr_cen1.td_b_product@dblnk_ngbss h where a.product_id=h.product_id)product,
to_char(a.in_date,'yyyymmdd') in_date,
a.develop_staff_id 发展人编号,
(select b.staff_name from crm_ucr_cen1.td_m_staff@dblnk_ngbss b where a.develop_staff_id=b.staff_id)develop_staff,
a.develop_depart_id 发展部门编号,
(select c.depart_name from crm_ucr_cen1.td_m_depart@dblnk_ngbss c where a.develop_depart_id=c.depart_id)develop_depart,
(select d.depart_name from crm_ucr_cen1.td_m_depart@dblnk_ngbss d where a.open_depart_id=d.depart_id)open_depart
from crm_ucr_crm1.tf_f_user@dblnk_ngbss a
where (a.serial_number like '186%'or a.serial_number like '145%')
and a.remove_tag='0'
and to_char(a.in_date,'yyyymmdd')>='20091001'
order by a.in_date;
commit;
end;

创建时可以通过，执行时会报错，在PL/SQL下执行exec CGL_3G_PD 报‘ORA-00900:无效的SQL语句’
用GOLDEN下执行exec CGL_3G_PD 报:
ORA-06550: 第 1 行, 第 18 列:
PLS-00905: 对象 ZHDSS.CGL_3G_PD 无效
ORA-06550: 第 1 行, 第 18 列:
PL/SQL: Statement ignored

到底是什么原因，求解答

DROP ,CREATE 等DDL语句要动态执行
execute immediate 'drop table cgl_3g';
execute immediate 'create ....';
还有
(select h.product_name from crm_ucr_cen1.td_b_product@dblnk_ngbss h where a.product_id=h.product_id)product,
你要保证像这样的子查询都是返回1行的 参考技术A ZHDSS.CGL_3G_PD?哪里来的？程序中没出现过啊
你试试 select CGL_3G_PD from dual 看看