請教資料庫彈出視窗語法

Question

想請問各位前輩，如果想要想要寫一個 程式執行完畢後，彈出 '執行成功代碼為XXXXXX'     的視窗
可是不是寫在前端程式，而是寫在後端ORACLE資料庫的PROCEDURE，該如d何實現呢?是否有   RAISE_APPLICATION_ERROR(-20001,XERROR_MSG);   類似用法  
可是跳出視窗是執行成功使用的!!
不希望跑出錯誤的XX漢ora錯誤代碼
謝謝了

Answer 1

一是: 程式里写一个FUN和定义常量, 你的每一个SQL PROCEDURE 都返回一个代号, 根据代号读取常量,然后MESSAGEBOX这个常量.二是: 程式直接读取SQL PROCEDURE返回的VARCHAR,显示这个字符.

Answer 2

create or replace procedure test_proc(
Invar       in    varchar2,
errcode   out   varchar2,
errstr    out   varchar2
)
is
begin
  if Invar = '0' then
    errcode := '0';
    errstr := 'NoError';
  else
    errcode := '1';
    errstr := 'NotZero';
  end if;
end test_proc;
前台直接取Param弹出提示就是了么……

Answer 3

用try except来实现 try
   adocommand1.execute;//执行你的存储过程
  except
   on e:excetpion do
   begin
     //此处理错误再退出
     
   end
 end;
  //此显示成功执行
   showmessage('此过程执行成功');

Answer 4

create  proc ssb
@flag  int output
as
truncate table  ffinsert into ff
select *   from  dbo.stuinfo
 if @@rowcount>0--获取影响的行数，表示数据插入成功
begin
set @flag=0--执行成功
end
else
begin
set @flag=1--执行失败
endreturn @flag--过程的返回值GO
--调用存储过程，并返回值
declare @flag int 
exec ssb @flag  output
select   @flag--返回值