Ler linhas de arq .TXT e apresentar nos campos do FORMS ?

[franklin_kunioshi]

Preciso apresentar as linhas lidas de um arquivo TXT nos campos do meu FORMS como faço.

Selecionar tudo

PROCEDURE PROC_TXT_FIDELIDADE IS
 
   V_NOME_ARQ   VARCHAR2(255);
   IN_FILE  Text_IO.File_Type;
   LINEBUF  VARCHAR2(80);

BEGIN
   V_NOME_ARQ := 'C:\TEXTO.TXT';
   IN_FILE := TEXT_IO.FOPEN(V_NOME_ARQ,'R') ;
    LOOP
       BEGIN
          TEXT_IO.GET_LINE(IN_FILE,LINEBUF);
          GO_BLOCK('CARTAO_FIDELIDADE_POLCOM');
         LAST_RECORD;
         CREATE_RECORD;
         :CARTAO_FIDELIDADE_POLCOM.FK_CFID_AD_CARTAO := LINEBUF;
          EXCEPTION
          WHEN OTHERS THEN
         EXIT;
         END;
    END LOOP;
    First_Record;
  TEXT_IO.FCLOSE(IN_FILE);
END;

tenho 7 campos ... preciso que se leia as linhas dos campos e enviem para cada forms..


No momento como o código está ele lê todos mais insere somente a ultima linha lida. [/code]

[Trevisolli]

Tópico duplicado.

Favor continuar no tópico: http://glufke.net/oracle/viewtopic.php?t=2754.