Question

ORACLE中的存储过程错误解析，求解，求大神指导

CREATE OR REPLACE PROCEDURE D_TXN -- 固定存储过程名称
(
CALLER1 IN NVARCHAR-- 调用批次号，引用时必填参数
)
AS
TXNNUM VARCHAR;
TXNTYPE CHAR;
BEGIN
SELECT TXNNUM INTO TXNNUM FROM TXN_DEL@DBLINK_POST
WHERE CALLER:=CALLER1;--读取待删除单号
SELECT TXNTYPE INTO TXNTYPE FROM TXN_DEL@DBLINK_POST WHERE CALLER:=CALLER1; --读取待删除单据类型
IF TXNTYPE1:='PO'
BEGIN
DELETE PODTL WHERE PONUM:=TXNNUM
DELETE PO WHERE PONUM:=TXNNUM
END
EXCEPTION
WHEN OTHERS THEN
ROLLBACK
END IF
END
错误提示：

Answer 1

CREATE OR REPLACE PROCEDURE D_TXN -- 固定存储过程名称
(
CALLER1 IN NVARCHAR-- 调用批次号，引用时必填参数
)
AS
TXNNUM VARCHAR;
TXNTYPE CHAR;
BEGIN
SELECT TXNNUM INTO TXNNUM FROM TXN_DEL@DBLINK_POST
WHERE CALLER=CALLER1;--读取待删除单号
SELECT TXNTYPE INTO TXNTYPE FROM TXN_DEL@DBLINK_POST WHERE CALLER=CALLER1; --读取待删除单据类型
IF TXNTYPE1='PO'
THEN
DELETE FROM PODTL WHERE PONUM=TXNNUM;
COMMMIT;
DELETE FROM PO WHERE PONUM:=TXNNUM;
COMMIT;

EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
END IF;
END;

给你改了一下，上边人家说的那些我就不说了，好多用分号的地方没用。IF 和 THEN 是一对，IF后不要接BEGIN，DELETE语法是对，但最好用标准写法DELETE FROM 表名 WHERE 条件，DELETE后必须提交，否则你所做的一切不生效，题外话，UPDATE后也要提交，和DELETE一样，还有，因为BEGIN给你去掉了一个，所有BEGIN那里就不需要再END了。你再看看吧还有没有问题，有问题就再问

追问

还有两个错 分别是exception 和end if地方
错误信息：
PROCEDURE MOCKMIS.D_TXN 编译错误
错误：PLS-00103: Encountered the symbol "EXCEPTION" when expecting one of the following:
文本：EXCEPTION
错误：PLS-00103: Encountered the symbol "IF" when expecting one of the following:
文本：END IF;
初学者完全不懂啊， 多谢指导

追答

要不exception
when others then

rollback;这段不要也行，你看还有错误没，这个本来就是抛出异常的

Answer 2

WHERE CALLER:=CALLER1; 等号左边没有冒号

WHERE CALLER:=CALLER1 同上

IF TXNTYPE1:='PO' 同上

DELETE PODTL WHERE PONUM:=TXNNUM
DELETE PO WHERE PONUM:=TXNNUM
同上

Answer 3

这里所有用:=的语句应该用=,不应该用:=,:=的意思是赋值(例如TXNNUM:='5'),而你这里是比较

Answer 4

就是判断和赋值的符号没区分开

Answer 5

晕，你不能什么地方都用:=啊
:=是赋值的意思。不是比较。