</p> 10 Select flag Into v_stuid From t_stu Where stuid=p_stuid;
3 ?1 @9 Q |' N. ?$ | 11 Delete t_stu( D+ K, ]3 Z: H/ J9 U. J
12 Where
: n8 p7 R' T0 {1 U6 t 13 stuid=p_stuid;- ^: W( R, b3 l, U: f4 \
14 commit;5 e- \# C* S/ n7 U
15 If flag=1 Then9 b1 m4 W8 h" u
16 Begin
6 j& B+ s$ G% c 17 p_msg:='删除成功'; 18 End;( p9 T. l( v) a
19 End If;9 w9 _! J" V$ U- ^; m3 e- J7 i
20 Exception 21 When Others Then
# q3 E9 N. A5 G F. y 22 p_msg:=Sqlerrm || ',' || '删除失败';9 ]) W; W5 H4 p! k! V
23 END;; I( M& t s* W/ J7 |+ D
修改:" A; t& l* f# B Y/ F/ X
1 CREATE OR REPLACE Procedure p_update_t_stu --存储过程名称
% T4 g7 p& B7 p# P6 j- y9 M 2 (" X! b, \7 B+ d: j3 b) r
3 p_stuid in Number,. J, e: t. B1 |8 [* o; M
4 p_stuname in Nvarchar2,
( K1 m: |6 l$ h; |! f- A4 `2 L 5 p_stusex in Nvarchar2,
' t x) i, T% b& t% `9 `, `7 [3 E 6 p_stuadd in Nvarchar2
3 r+ f0 {3 x! S( `, H 7 )
0 V. E6 Z$ I7 f- {3 P1 I 8 as6 X: m4 t( i1 \9 }( v1 S! f
9 BEGIN+ h: b/ h( d3 I, d1 l" M6 M
10 Update t_stu Set stuname=p_stuname,stusex=p_stusex,stuadd=p_stuadd ]( z" p1 j, `% }- d1 T# q" m
11 Where- N5 L" z/ c v& q2 `, c$ b [+ q
12 stuid=p_stuid;! r$ v h1 ?; o7 v: m5 j1 K- b s
13 commit;
) v$ T) U1 G& I0 i& V9 E; K$ \ 14 end; |