0

我已将单行提取到 rowType 变量中。这一行有 80 列。所以，我不想在我的程序中硬编码列名并从数据字典中获取列名。

请有人告诉我，我怎样才能访问单独的列值？？？？？？以下是我的代码。

DECLARE
fetchedRow EMP%ROWTYPE;
TYPE columnNameList IS TABLE OF USER_TAB_COLUMNS.column_name%TYPE;
CURSOR empCursor IS select column_name from USER_TAB_COLUMNS where table_name = 'EMP';
empColumnNames columnNameList;
colName varchar2(100);
BEGIN
    -- Fetching column names of EMP from data dictionary
    OPEN  empCursor;
    FETCH empCursor BULK COLLECT INTO empColumnNames;
    CLOSE empCursor;
    DBMS_OUTPUT.PUT_LINE('Columns fetched');

BEGIN
    SELECT * into fetchedRow from EMP where EMP_ID = 1234;
END;

colName := 'fetchedRow.'||empColumnNames(1);   --- colName will have fetchedRow.EMP_ID
DBMS_OUTPUT.PUT_LINE('Going to Compare'||colName);

--stuck here
     if colName = 1234 then  -- Want to compare value of fetchedRow.EMP_ID with 1234
        DBMS_OUTPUT.PUT_LINE('Matching');
    else
    DBMS_OUTPUT.PUT_LINE('Not-Matching');
    END IF;  
EXCEPTION
    WHEN OTHERS THEN
        DBMS_OUTPUT.PUT_LINE('Error'||SQLERRM);

END;
4

1 回答 1

0

您需要使用动态 SQL 以这种方式访问​​字段，但一个小技巧是将当前行放置到 SQL 语句可访问的某个位置，例如包头。

汤姆凯特一如既往的好，看这里。

可以在此处找到带有实时示例的 SQL 小提琴。

一些用于说明的代码：

声明包头

create or replace package TmpRowAccess as 

  CurRow emp%rowtype;

end;

获取行时 - 将其获取到包变量中

SELECT * into TmpRowAccess.CurRow from EMP where rownum = 1;

访问字段值的构造

  declare 
    vRes char(1);
    vParam number := 1234;
  begin

    execute immediate 
      '
        begin 
          if(:1 = TmpRowAccess.CurRow.'|| colName ||') then 
            :2 := ''Y''; 
          else 
            :2 := ''N''; 
          end if; 
        end;
      '
      using in vParam, out vRes;

    if(vRes = 'Y') then 
      DBMS_OUTPUT.PUT_LINE('Matching');
    else
      DBMS_OUTPUT.PUT_LINE('Not-Matching');
    end if;

  end;
于 2013-04-16T08:34:40.160 回答