create or replace procedure SBGL_DELRECORD
(
v_tablename IN VARCHAR2 DEFAULT NULL, v_Fieldname IN VARCHAR2 DEFAULT NULL, v_FieldValue IN VARCHAR2 DEFAULT NULL, v_ischeck IN VARCHAR2 DEFAULT NULL, v_msgs out VARCHAR2
)
AS
v_sql VARCHAR2(2000);
begin
IF v_ischeck=-1 THEN
v_msgs:='该单据已经审核,不能删除!';
RETURN;
END IF;
v_sql := 'update '||v_tablename||' set del=1 where '||v_Fieldname||'='''||v_FieldValue||'''';
EXECUTE IMMEDIATE v_sql;
commit;
v_msgs:='删除单据成功!';
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
v_msgs := '删除单据出错!';
RETURN;
end SBGL_DELRECORD;
初用oracle写了个返回值的存储过程,怎么调用?求教。
(
v_tablename IN VARCHAR2 DEFAULT NULL, v_Fieldname IN VARCHAR2 DEFAULT NULL, v_FieldValue IN VARCHAR2 DEFAULT NULL, v_ischeck IN VARCHAR2 DEFAULT NULL, v_msgs out VARCHAR2
)
AS
v_sql VARCHAR2(2000);
begin
IF v_ischeck=-1 THEN
v_msgs:='该单据已经审核,不能删除!';
RETURN;
END IF;
v_sql := 'update '||v_tablename||' set del=1 where '||v_Fieldname||'='''||v_FieldValue||'''';
EXECUTE IMMEDIATE v_sql;
commit;
v_msgs:='删除单据成功!';
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
v_msgs := '删除单据出错!';
RETURN;
end SBGL_DELRECORD;
初用oracle写了个返回值的存储过程,怎么调用?求教。
解决方案 »
- DLL 的 ExitCode ??
- 安装 SQL2005问题
- 那样的画流程图的VCL控件(DELPHI用)?
- BCB如何调用Delphi的DLL函数?
- 各位大虾请帮帮忙,怎样设置注册表让程序开机时自动运行!
- 我想改变编辑框在UnEnable下的默认背景色,怎么做?不想要系统的那种灰色!
- 请问在COM自动化中,参数标识(in/out/RetVal/LCID/Optional/Has Default Value)各是什么意思?
- 我用pagecontrol动态增加、删除tabsheet页,但怎么在程序退出时保存当前情况,下次进入时还有我保留的页?
- 我如何使文字在DBedit 或者 edit 中居中
- ?请问:“哪里能下载CHARLIE CALVERT(或李维)的有关DELPHI的书
- 莫名的程序编译问题:variant or safe array index out of bounds
- 两个独立程序之间的参数传递
ADOStoredProc1.ExecProc