Oracle技术：Oracle数据库操作存储方法

会计考友

　插入： 　　1　CREATE　OR　REPLACE　Procedure　p_insert_t_stu　--存储过程名称
5 O; S) t0 d* O, ]; S　　2　　(
　　3　　　p_stuid　in　Number,
　　4　　　p_stuname　in　Nvarchar2,
5 P& a# ]4 g4 U　　5　　　p_stusex　in　Nvarchar2,
: d4 K! ?8 q( b! |/ \& X; x　　6　　　p_stuadd　in　Nvarchar2
, \. v0 T' M: x0 m# Y　　7　)
　　8　　as
　　9　　BEGIN
; Z* m6 n: l& R) n　　10　insert　into　t_stu
　　11　values
　　12　(p_stuid,p_stuname,p_stusex,p_stuadd);
2 G! R) |9 c# m5 ^　　13　commit;
" H- A+ U6 @9 V% b　　14　end;
　　删除：
　　1　CREATE　OR　REPLACE　Procedure　p_delete_t_stu　--存储过程名称
　　2　(
) d- \1 P- }" [' C7 O2 ]　　3　　　p_stuid　in　Number,
! u, I% M: e% @2 a: L. c　　4　　　p_msg　Out　Nvarchar2
( s8 i" w) R+ G  p3 j: f) [9 a　　5　)
$ o# i9 c8 e4 h- T( Z8 Z　　6　Is
　　7　flag　Integer　:=　1;
　　8　v_stuid　Number;

  r" A! [$ b' c' g- s　　9　Begin

会计考友

</p>　　10　Select　flag　Into　v_stuid　From　t_stu　Where　stuid=p_stuid;
7 B9 B! h' V3 T- ]; _( k& o- q　　11　Delete　t_stu
) E% y8 w' i6 H6 Y7 J/ T. O& O; X4 E　　12　Where
　　13　stuid=p_stuid;
　　14　commit;
　　15　If　flag=1　Then
　　16　　Begin
: L7 O+ i- d0 w: r$ b0 E　　17　　　　p_msg:='删除成功';　　18　　End;
　　19　End　If;
7 i+ U* }9 |; d6 O: q3 j5 A　　20　Exception　　21　　When　Others　Then
　　22　　　　p_msg:=Sqlerrm　||　','　||　'删除失败';
　　23　END;
0 u3 F2 g7 D' h7 l" Z. u' t" x　　修改：
　　1　CREATE　OR　REPLACE　Procedure　p_update_t_stu　--存储过程名称
　　2　(
& m( B& L  b* E+ i　　3　　　p_stuid　in　Number,
　　4　　　p_stuname　in　Nvarchar2,
4 M9 }8 f# j  u2 ?7 N　　5　　　p_stusex　in　Nvarchar2,
; p, E; {9 J$ u& ?　　6　　　p_stuadd　in　Nvarchar2
　　7　)
　　8　as
　　9　BEGIN
4 v+ C# T' X$ Q' V. N3 l. x　　10　Update　t_stu　Set　stuname=p_stuname,stusex=p_stusex,stuadd=p_stuadd
　　11　Where
　　12　stuid=p_stuid;
$ l4 k* t& e6 n; u　　13　commit;
　　14　end;