时间戳

首页 > 解决方案 > 使用过程输出重复项

sql - 使用过程输出重复项

问题描述

我正在学习中，目前正在做一些练习。

我正在尝试制作显示连续重复数的程序。

CREATE OR REPLACE PROCEDURE anzahl1(
    tabelle VARCHAR2,
    reihe VARCHAR2,
    wieviel OUT NUMBER
    )AS
    test VARCHAR2(4000);
BEGIN

    EXECUTE IMMEDIATE 'SELECT
        reihe,
        (COUNT(*)-1) AS Anzahl
    INTO     
        wieviel
    FROM 
        tabelle
    GROUP BY 
        reihe
    HAVING COUNT(*) > 1' using out wieviel;
    DBMS_OUTPUT.PUT_LINE(wieviel);

END;
/

我尝试了很多东西，但没有任何效果......

甚至我以前学校的老师给我的结果也没有用：

CREATE OR REPLACE PROCEDURE check_doppelte_Werte_p ( 
   p_tabellenname   IN     USER_TAB_COLUMNS.TABLE_NAME%TYPE, 
   p_spaltenname    IN     USER_TAB_COLUMNS.COLUMN_NAME%TYPE, 
   p_ergebnis       BOOLEAN 
) OUT     
IS 
   v_dummy           NUMBER := 1; 
   v_sql_anweisung   varchar2 (4000); 
BEGIN 
   v_sql_anweisung := 
         'SELECT   MAX(COUNT (' 
      || p_spaltenname 
      || ')) ' 
      || '  FROM   ' 
      || p_tabellenname 
      || '  GROUP BY ' 
      || p_spaltenname; 

   DBMS_OUTPUT.PUT_LINE (v_sql_anweisung); 

   EXECUTE IMMEDIATE v_sql_anweisung INTO   v_dummy; 

   IF v_dummy > 1 THEN  
     DBMS_OUTPUT.PUT_LINE(   'Die Tabelle ' 
                          || 'hat mindestens  ' 
                          || TO_CHAR (V_DUMMY) 
                          || ' doppelte Werte in der Spalte ' 
                          || p_spaltenname); 
     p_ergebnis := TRUE; 
  ELSE  
     p_ergebnis := FALSE; 
  END IF; 
EXCEPTION 
   -- Keine Werte gefunden, da  
   WHEN NO_DATA_FOUND 
   THEN 
      p_ergebnis := FALSE; 
 DBMS_OUTPUT.PUT_LINE ('Tabellenname oder Spaltenname sind nicht vorhan-
den!!!'); 
END;

你会做什么/改变？

标签： sqlplsqloutputprocedure

解决方案

您的代码不会替换动态 sql 中的变量。查询字符串已附加输入变量。

请尝试以下代码，

 CREATE OR REPLACE PROCEDURE anzahl1(
tabelle VARCHAR2,
reihe VARCHAR2,
wieviel OUT NUMBER
)AS
test VARCHAR2(4000);
lv_query VARCHAR2(4000);

BEGIN

lv_query := 'SELECT (COUNT(*)-1) cnt FROM '||tabelle ||' GROUP BY '||reihe||' HAVING COUNT(*) > 1';

EXECUTE IMMEDIATE lv_query into wieviel;

DBMS_OUTPUT.PUT_LINE(wieviel);

EXCEPTION 
     WHEN OTHERS THEN 
       DBMS_OUTPUT.PUT_LINE('ERROR '||SQLCODE||' '||SUBSTR(SQLERRM,1,200));

    END;
/

我创建表并填充如下记录，

   CREATE TABLE EMP(ID NUMBER(10),NAME VARCHAR2(40));

    INSERT INTO EMP VALUES (1, 'TEST');
    INSERT INTO EMP VALUES (1, 'TEST');
    INSERT INTO EMP VALUES (2, 'TEST2');

现在我调用存储过程来测试 ID 列的 EMP 表，

declare 
lv_cnt number(10);
begin
anzahl1('EMP','ID',lv_cnt);
dbms_output.put_line(lv_cnt);

end;

这给出了输出，

1

推荐阅读