又一小存储过程

<!--<br /> <br /> Code highlighting produced by Actipro CodeHighlighter (freeware)<br /> http://www.CodeHighlighter.com/<br /> <br /> -->create or replace PROCEDURE ug 
IS
  v_sql VARCHAR2(5000);
  t_count NUMBER;
  e_count NUMBER;
BEGIN
  --Huy Vanpull
  FOR c IN
    (SELECT * 
     FROM groups)
  LOOP
    v_sql := 'SELECT COUNT(*) FROM user_tables WHERE TABLE_NAME = ''EMAILS_'||c.id||'''';
    --dbms_output.put_line(v_sql);
    EXECUTE IMMEDIATE v_sql INTO t_count;
    --如果表是否存在
    IF t_count = 1 THEN
      --查出此表的EMAIL数量
      v_sql := 'SELECT COUNT(*) FROM EMAILS_'||c.id;
      EXECUTE IMMEDIATE v_sql INTO e_count;
      --如果查出的EMAIL不等组记录的数量
      IF e_count != c.email_count THEN
        v_sql := 'UPDATE GROUPS SET email_count = '||e_count||' WHERE id = '||c.id;
        dbms_output.put_line(v_sql);
        --更改组记录的数量
        --EXECUTE IMMEDIATE v_sql;
        COMMIT;
      END IF;
    ELSE
      dbms_output.put_line(c.id||':没有找到相应的表!');
    END IF;
  END LOOP;
END;