PLSQL 过程需要大量时间来执行
Posted
技术标签:
【中文标题】PLSQL 过程需要大量时间来执行【英文标题】：PLSQL Procedure taking lot of time to execute 【发布时间】：2015-01-15 22:01:22 【问题描述】：我有一个 Oracle PLSQL 过程，它有一个父游标和 2 个子游标（在正文中创建），参考父游标值。
当我直接运行 SQL 语句时，它会立即返回结果。但是，当我将它们放入 PLSQL 程序时，它会无休止地运行。
CREATE OR REPLACE PROCEDURE SENDTASKREMINDER
AS
l_html VARCHAR2(32767);
r_html VARCHAR2(32767);
l_exst NUMBER;
ownerId NUMBER;
CURSOR OwnerCursor IS SELECT DISTINCT TASK_OWNER_ID FROM TASKS
WHERE to_char(TASK_START_DATE, 'DD-MON-YY') >= to_char(SYSDATE, 'DD-MON-YY') AND to_char(TASK_DUE_DATE, 'DD-MON-YY') <= to_char(SYSDATE, 'DD-MON-YY')
UNION
SELECT DISTINCT TASK_OWNER_ID FROM TASKS
WHERE to_char(TASK_START_DATE, 'DD-MON-YY') > to_char(SYSDATE, 'DD-MON-YY');
BEGIN
l_html := '<html>
<head>
<title>Task Reminder</title>
</head>
<body>';
r_html := l_html;
/* Get Pending Tasks */
OPEN OwnerCursor;
LOOP
FETCH OwnerCursor INTO ownerId;
r_html := l_html;
SELECT COUNT(*) INTO l_exst FROM TASKS
WHERE TASK_OWNER_ID = ownerId AND to_char(TASK_START_DATE, 'DD-MON-YY') >= to_char(SYSDATE, 'DD-MON-YY') AND to_char(TASK_DUE_DATE, 'DD-MON-YY') <= to_char(SYSDATE, 'DD-MON-YY');
IF l_exst > 0
THEN
r_html := r_html || '<h1>Your current pending tasks</h1><table><tr><th>Task Name</th><th>Description</th><th>Due Date</th></tr>';
FOR PendingCursor IN (SELECT PK_TASK_ID, TASK_NAME, TASK_DESCRIPTION, TASK_START_DATE, TASK_DUE_DATE FROM TASKS
WHERE TASK_OWNER_ID = ownerId AND to_char(TASK_START_DATE, 'DD-MON-YY') >= to_char(SYSDATE, 'DD-MON-YY') AND to_char(TASK_DUE_DATE, 'DD-MON-YY') <= to_char(SYSDATE, 'DD-MON-YY'))
LOOP
r_html := r_html || '<tr><td>' || PendingCursor.TASK_NAME || '</td><td>' || PendingCursor.TASK_DESCRIPTION || '</td><td>' || PendingCursor.TASK_DUE_DATE ||'</td></tr>';
END LOOP;
r_html := r_html || '</table>';
END IF;
SELECT COUNT(*) INTO l_exst FROM TASKS
WHERE TASK_OWNER_ID = ownerId AND to_char(TASK_START_DATE, 'DD-MON-YY') > to_char(SYSDATE, 'DD-MON-YY') ;
IF l_exst > 0
THEN
r_html := r_html || '<h1>Your future tasks</h1><table><tr><th>Task Name</th><th>Description</th><th>Due Date</th></tr>';
FOR FutureCursor IN (SELECT PK_TASK_ID, TASK_NAME, TASK_DESCRIPTION, TASK_START_DATE, TASK_DUE_DATE FROM TASKS
WHERE TASK_OWNER_ID = ownerId AND to_char(TASK_START_DATE, 'DD-MON-YY') > to_char(SYSDATE, 'DD-MON-YY') )
LOOP
r_html := r_html || '<tr><td>' || FutureCursor.TASK_NAME || '</td><td>' || FutureCursor.TASK_DESCRIPTION || '</td><td>' || FutureCursor.TASK_DUE_DATE ||'</td></tr>';
END LOOP;
r_html := r_html || '</table>';
END IF;
r_html := r_html || '</body></html>';
send_mail(p_to => 'XXX.XXX@xxx.com',
p_from => 'fromemail@xxx.com',
p_subject => 'Your Pending and Future tasks for OwnerId' || ownerId,
p_text_msg => 'text msg is not yet created',
p_html_msg => r_html,
p_smtp_host => 'localhost');
END LOOP;
CLOSE OwnerCursor;
END;
/
这里是否创建了任何无休止的循环。 PLSQL 中没有错误。在粘贴到这里之前，我已经编辑了这个文件。所以，如果发现编译错误，那是我的编辑造成的。实际过程没有任何编译错误。
提前感谢您的帮助。
【问题讨论】：
【参考方案1】：您在获取后忘记了EXIT：
FETCH Ownercursor into ownerId;
EXIT WHEN Ownercursor%NOTFOUND;
【讨论】：
如果您很难理解简单的循环和退出，您也可以考虑使用 for 循环。对于初学者来说，它们更容易理解。 非常感谢。现在它很快。 我现在有另一个问题。它正在发送大约 1000 多封相同内容的电子邮件。我的表中只有 2 个 task_owners 将为其发送提醒电子邮件。因此，应该只有 2 封电子邮件发送给我（使用我的 id 进行测试）。但是，我收到了 1000 多封重复的电子邮件。知道为什么吗？【参考方案2】：我没有看到任何无休止的循环。您是否在独立过程中测试了对 send_mail 的调用？它可能挂在那里。
你的 where 子句还有另一个逻辑缺陷。您使用错误的 TO_CHAR 函数。这个：
AND to_char(TASK_START_DATE, 'DD-MON-YY') >= to_char(SYSDATE, 'DD-MON-YY') AND to_char(TASK_DUE_DATE, 'DD-MON-YY') <= to_char(SYSDATE, 'DD-MON-YY'))
在逻辑上不等同于：
TASK_START_DATE >= SYSDATE AND TASK_DUE_DATE <= SYSDATE))
例如，如果 TASK_START_DATE 是 01-APR-15 并且 TASK_DUE_DATE 是 30-MAY-15 并且今天是 01-JUN-15，那么您的表达式将评估为 TRUE，因为“JUN”按字母顺序位于“APR”和“ 5 月”。
【讨论】：
【参考方案3】：哇。从哪儿开始。 Diederikh 和 Scott 讨论了几个明显的问题，但仔细观察代码，有很多没有意义的地方。
首先，“当前”任务的开始日期是过去还是现在，截止日期是未来还是现在？ “未来”任务的开始日期是否在未来？如果是这样，那么您的比较都是错误的。根据您的逻辑，“当前”任务的开始日期在未来或现在，截止日期在过去或现在。
其次，有五个（！）地方有查询要出去并打到数据库。没有理由不能使用初始光标读取您需要的所有内容。然后根据需要进行分析和处理。
还有很多其他地方我会提出建议。我不想列出所有这些，所以我只包含代码。您可以接受或不接受我的小建议，但请务必验证您的日期逻辑，并且不要比您绝对必须更频繁地访问数据库。执行一次磁盘访问所需的时间可以执行数千行代码。它仍然没有我希望的生产代码那么完美，但它足以让你开始。而且，虽然我无权访问您的表格，但它应该可以工作。
create or replace PROCEDURE SENDTASKREMINDER AS
l_html VARCHAR2(100);
r_html VARCHAR2(32767);
C_header varchar2( 40 ) := '<h1>Your current pending tasks</h1>';
F_header varchar2( 32 ) := '<h1>Your future tasks</h1>';
EndHeader varchar2( 80 ) := '<table><tr><th>Task Name</th><th>Description</th><th>Due Date</th></tr>';
EndFooter varchar2( 32 ) := '</table></body></html>';
PrevOwnerId int := -1; -- Must not be a valid OwnerID
C_count int := 0;
F_count int := 0;
l_today date := Trunc( SysDate );
CURSOR OwnerCursor IS
SELECT TASK_OWNER_ID, PK_TASK_ID, TASK_NAME, TASK_DESCRIPTION, TASK_START_DATE, TASK_DUE_DATE
FROM TASKS
WHERE (TASK_START_DATE <= l_today and TASK_DUE_DATE >= l_today)
or TASK_START_DATE > l_today
order by TASK_OWNER_ID, TASK_START_DATE; -- So first the Current then Future tasks
BEGIN
l_html := '<html><head><title>Task Reminder</title></head><body>';
/* Get all Tasks */
for OwnerRec in OwnerCursor LOOP
if OwnerRec.TASK_OWNER_ID != PrevOwnerId then
-- This is the first record for this owner. Unless it's also the first record of the loop,
-- close the html and send the email.
if C_count > 0 or F_count > 0 then
r_html := r_html || EndFooter;
end if;
send_mail(p_to => 'XXX.XXX@xxx.com',
p_from => 'fromemail@xxx.com',
p_subject => 'Your Pending and Future tasks for OwnerId' || ownerId,
p_text_msg => 'text msg is not yet created',
p_html_msg => r_html,
p_smtp_host => 'localhost');
r_html := l_html;
PrevOwnerId := OwnerRec.TASK_OWNER_ID;
C_count := 0;
F_count := 0;
end if;
if OwnerRec.TASK_START_DATE <= l_today then
if C_count = 0 then
-- This is the first Current entry, write the header
r_html := r_html || C_header || EndHeader;
end if;
C_count := c_count + 1;
else
if F_count = 0 then
-- This is the first Future entry. See if there were any Current entries
if C_count > 0 then
-- There was, so terminate the Current table
r_html := r_html || '</table>';
C_count := 0;
end if;
-- Write the header
r_html := r_html || F_header || EndHeader;
end if;
F_count := F_count + 1;
end if;
-- Whether Current or Future, write the task particulars
r_html := r_html || '<tr><td>' || OwnerRec.TASK_NAME || '</td><td>' || OwnerRec.TASK_DESCRIPTION || '</td><td>' || OwnerRec.TASK_DUE_DATE ||'</td></tr>';
END LOOP;
-- The last owner has not completed processing. But maybe there were no tasks at all...
if C_count > 0 or F_count > 0 then
r_html := r_html || EndFooter;
send_mail(p_to => 'XXX.XXX@xxx.com',
p_from => 'fromemail@xxx.com',
p_subject => 'Your Pending and Future tasks for OwnerId' || ownerId,
p_text_msg => 'text msg is not yet created',
p_html_msg => r_html,
p_smtp_host => 'localhost');
dbms_output.put_line( r_html );
end if;
END;
【讨论】：
以上是关于PLSQL 过程需要大量时间来执行的主要内容，如果未能解决你的问题，请参考以下文章