안녕하세요
초보입니다.
델파이7.0 에서 오라클 프로시져를 실핼후 그 결과값이
한개의 변수가 아닌
SELECT의 결과문을
커셔로 받아 바로 DB그리드(혹은 SPREED)에 연결하여 뿌리는 방법좀 알려주세요
상세하게요

고수님들!!


본문=============
    PROCEDURE USP_CALL_MULTIBOM_TREE
    (
        search_date_mode IN VARCHAR2,
        search_date IN VARCHAR2,
        par_class_ids IN VARCHAR2,
        par_object_ids IN VARCHAR2,
        par_object_pos IN VARCHAR2,
        return_cursor OUT REF_CURSOR_TYPE
    ) IS
        sPar_object_pos     VARCHAR2(1000);
        nAssyPos            NUMBER := 0;
        nPos                PLS_INTEGER := 0;
        nMaxLevel           NUMBER := 0;
        str_sql             VARCHAR2(32767);
    BEGIN
        --DBMS_OUTPUT.Enable(1000000);

        new_seq_no := 0;

        COMMIT;
        
        PKG_MULTIBOM.USP_GET_MULTIBOM_TREE(search_date_mode, search_date, 1, par_class_ids, par_object_ids, par_object_pos);

        SELECT MAX(nLevel) INTO nMaxLevel FROM MULTIBOM##@PDM_CON;

        sPar_object_pos := par_object_pos;
        
        str_sql := 'SELECT nLevel, part_object_id, part_class_id, part_state, link_object_id, link_class_id, link_state, seq_no as no';
        FOR i IN 1..nMaxLevel LOOP
            str_sql := str_sql||', (SELECT nLevel FROM MULTIBOM##@PDM_CON WHERE seq_no = t.seq_no AND nLevel='||i||') AS LVL'||i;
        END LOOP;
        
        str_sql := str_sql||', pfm, part_no, part_name, revision as rev';
        
        LOOP
            IF sPar_object_pos IS NULL THEN
                EXIT;
            END IF;

            nPos := instr(sPar_object_pos,',');
            
            IF nPos <> 0 THEN
               nAssyPos := SUBSTR(sPar_object_pos, 1, nPos-1);
               sPar_object_pos := SUBSTR(sPar_object_pos, nPos+1);
            ELSE
               nAssyPos        := sPar_object_pos;
               sPar_object_pos := '';
            END IF;
            
            str_sql := str_sql||', (SELECT qty FROM MULTIBOM_QTY##@PDM_CON WHERE seq_no=t.seq_no AND assy_idx='||nAssyPos||') AS QTY'||nAssyPos;
        END LOOP;

        str_sql := str_sql||', part_eo_no as eono, part_effective_from as eodate FROM     MULTIBOM##@PDM_CON t ORDER BY seq_no ASC';
        OPEN return_cursor FOR str_sql;
        --CLOSE return_cursor;
        COMMIT;

    END USP_CALL_MULTIBOM_TREE;



=========================

참고로 VB.NET에서는 된다고 알고 있는데요!!