0

我想检查是否没有来自 SQL 查询的数据，那么不应该创建文件。

这是我的代码：

CREATE OR REPLACE PROCEDURE VR_AD_INTEGRATION_EXPORT AS
    l_v_file UTL_FILE.file_type
BEGIN
 l_v_file := UTL_FILE.fopen('integration', 'HRMtoAD1_'||to_char(sysdate,'YYYYMMDD')||'_'||to_char(sysdate,'HH24MISS'), 'w', 32767);
FOR x IN (SELECT * FROM (SELECT 
           decode(pid, NULL, RPAD(' ',7,' '), RPAD(user_id, 7, ' '))|| '' ||
           decode(name_last, NULL, RPAD(' ',50,' '), RPAD(name_last, 50, ' '))
           str FROM vr_ad_integration WHERE integrated = 'N') str WHERE rownum <= 1000 ORDER BY rownum)
LOOP
    BEGIN
        UTL_FILE.put_line(l_v_file, x.str);
    END;
END LOOP;
UTL_FILE.fflush(l_v_file);
UTL_FILE.fclose(l_v_file);
END VR_AD_INTEGRATION_EXPORT;

现在我可以在远程位置成功创建文件。但是，如果选择查询中没有数据怎么办？不应创建任何文件。如果我是正确的，我需要包含异常代码，但在这种情况下我不知道该怎么做。有什么建议吗？

干杯! :-)

4

2 回答 2

1

有几种方法可以实现这一点。一种是采用显式游标的更加程序化的方法，并且仅在获取记录后才打开文件。第二个是修改您的代码以在循环中包含一个计数，如果计数为零，则删除该文件。

这是第三种选择，它是前一种选择的变体。它测试文件的大小，如果为零，则使用 UTL_FILE.FREMOVE() 命令将其删除。注意需要将生成的文件名存储在一个变量中以供以后参考。

CREATE OR REPLACE PROCEDURE VR_AD_INTEGRATION_EXPORT AS
     l_v_file UTL_FILE.file_type;
     l_filename varchar2(128);  
     f_exists boolean;
     f_size pls_integer;
     f_blk_size pls_integer;
BEGIN  
    l_filename := 'HRMtoAD1_'||to_char(sysdate,'YYYYMMDD')||'_'||to_char(sysdate,'HH24MISS');
    l_v_file := UTL_FILE.fopen('integration',  l_filename , 'w', 32767); 
    FOR x IN (SELECT * FROM (SELECT
             decode(pid, NULL, RPAD(' ',7,' '), RPAD(user_id, 7, ' '))|| '' ||            decode(name_last, NULL, RPAD(' ',50,' '), RPAD(name_last, 50, ' '))
            str 
                 FROM vr_ad_integration 
                 WHERE integrated = 'N') str 
         WHERE rownum <= 1000 ORDER BY rownum) LOOP
     BEGIN
         UTL_FILE.put_line(l_v_file, x.str);
     END; 
    END LOOP; 
    utl_file.fgetattr('integration',  l_filename , f_exists, f_size, f_blk_size);
    if f_size > 0 then
        UTL_FILE.fflush(l_v_file); 
        UTL_FILE.fclose(l_v_file); 
    else
        UTL_FILE.fclose(l_v_file); 
        utl_file.fremove('integration',  l_filename);
    end if;
END VR_AD_INTEGRATION_EXPORT;

除了读写行之外，UTL_FILE 包中还有一些有用的功能。我建议您阅读文档以了解更多信息。

于 2012-07-30T08:02:48.663 回答
0

使用标志检查文件是否已创建，并且仅在第一次运行循环时创建一次。伪代码：

bool fileCreatedFlag = false;
for x in (SELECT ...):
    if(!fileCreatedFlag):
        l_v_file = fopen(...);
        fileCreatedFlag = true;

    put_line(...);

if(fileCreatedFlag):
    fflush;
    fclose;
于 2012-07-30T07:48:08.950 回答