工作单（oracle）

[chenxiuju]

为什么我在工作单中写入过程后，不管写入什么语句后，工作单都不响应？

[beckhambobo]

要在最后一行加一个"/"符号.

declare
...
begin
...
end;
/

[Fred_Mark]

同意，下午我也找了半天这个东东。：）
CREATE OR REPLACE FUNCTION CountCredits (
/* Returns the number of credits for which the student
identified by p_StudentID is currently registered */
p_StudentID IN students.ID%TYPE)
RETURN NUMBER AS

v_TotalCredits NUMBER; -- Total number of credits
v_CourseCredits NUMBER; -- Credits for one course
CURSOR c_RegisteredCourses IS
SELECT department, course
FROM registered_students
WHERE student_id = p_StudentID;
BEGIN
Debug.Reset;
Debug.Debug('Before loop, v_TotalCredits', v_TotalCredits);
FOR v_CourseRec IN c_RegisteredCourses LOOP
-- Determine the credits for this class.
SELECT num_credits
INTO v_CourseCredits
FROM classes
WHERE department = v_CourseRec.department
AND course = v_CourseRec.course;

Debug.Debug('Inside loop, v_CourseCredits', v_CourseCredits);
-- Add it to the total so far.
v_TotalCredits := v_TotalCredits + v_CourseCredits;
Debug.Debug('Inside loop, v_TotalCredits', v_TotalCredits);
END LOOP;

Debug.Debug('After loop, returning', v_TotalCredits);
RETURN v_TotalCredits;
END CountCredits;
/

[developer2002]

换一个第三方工具，会让你的开发工作事半功倍！
不用再讨论oracle的破工作单该如何用了。