PL / SQL gán kết quả truy vấn cho CLOB

Lưu ý phần này trong mã của bạn:

WHILE cursor1%NOTFOUND

Vòng lặp của bạn sẽ không bao giờ được thực thi đối với tập dữ liệu không trống. Sử dụng cái này thay thế:

WHILE cursor1%FOUND

Hoặc tốt hơn nữa là sử dụng con trỏ ngầm:

FOR cursor1 in
        (SELECT rec,
               d_id,
               customer,
               wife,
               date_rec,
               special_h,
               g_amount,
               credit_amount,
               a_number,
               a__name
          FROM  (your query here))
LOOP
v_clob :=
               v_clob
            || cursor1.rec
            || ','
            || cursor1.d_id
            || ','
            || cursor1.customer
            || ','
            || cursor1.wife
            || ','
            || cursor1.date_rec
            || ','
            || cursor1.special_h
            || ','
            || cursor1.g_amount
            || ','
            || cursor1.credit_amount
            || ','
            || cursor1.a_number
            || ','
            || cursor1.a__name
            || UTL_TCP.crlf;
END LOOP;