Qlik Community

Qlik Brasil

Group community for Brazil users. discussion only in Portuguese.

Highlighted
mvaugusto
Contributor

Inserir dados no banco

//Como realizar um insert no banco de dados

//insert data base

//Aba de rotinas

//---------------------------------------------------

SUB CriarLinhasParaInsert

  //Limpando variáveis utizadas para seguir índice e criar script de inserção

  LET linha = 1;

  LET dados = '';

  //Criando índice de linhas a serem processadas

  Linhas: LOAD Concat(DISTINCT linha, ',', linha) as linhas Resident tabela;

  LET linhas = FieldValue('linhas',1);

  DROP Table Linhas;

ENDSUB

//***************************************************************************************************

NULLASVALUE *;

SET nulldisplay = 'null';

//***************************************************************************************************

SUB InserirLinhas

  //Percorrendo cada linha do índice criado anteriormente

  FOR Each linha in $(linhas)

  //Lendo cada linha concatenada de acordo com o índice

  LET dados = Replace(Peek('campo',$(linha)-1,'tabela'), Chr(39) & 'null' & Chr(39), 'null');

  //Inserindo a linha na base

  SQL $(linhaDados)

  VALUES (

  $(dados)

  );

  SQL Commit;

  LET vInsertAtual = '$(linha)' & ' / ' & NoOfRows('tabela') & ' - ' & '$(vTabela)';

  TRACE $(vInsertAtual);

  NEXT

  DROP Table tabela;

ENDSUB

//=========================================================================

//Aba da tabela

//***************************************************************************************************

LET linha = 1;

LET dados = '';

LET linhaDados = '';

LET vTabela = 'F02478.QV_STG_RF_BDV02_CAIXA';

//***************************************************************************************************

LET linhaDados = 'INSERT INTO F02478.QV_STG_RF_BDV02_CAIXA

  (

  "REFERENCIA RF",

  "DATA CAIXA",

  "PATROCINADORA / PLANO",

  COMPROMISSADA,

  COMPROMISSADA1,

  JUROS,

  RECEBIMENTO,

  PAGAMENTOS,

  PRÉVIA,

  Patrimônio,

  ITAPOA,

  filename

  )';

tabela:

LOAD

  RowNo() as linha,

  Chr(39) & [REFERENCIA RF] & Chr(39) & ',' &

  Chr(39) & [DATA CAIXA] & Chr(39) & ',' &

  Chr(39) & [PATROCINADORA / PLANO] & Chr(39) & ',' &

  Chr(39) & COMPROMISSADA & Chr(39) & ',' &

  Chr(39) & COMPROMISSADA1 & Chr(39) & ',' &

  Chr(39) & JUROS & Chr(39) & ',' &

  Chr(39) & RECEBIMENTO & Chr(39) & ',' &

  Chr(39) & PAGAMENTOS & Chr(39) & ',' &

  Chr(39) & PRÉVIA & Chr(39) & ',' &

  Chr(39) & Patrimônio & Chr(39) & ',' &

  Chr(39) & ITAPOA & Chr(39) & ',' &

  Chr(39) & filename()   & Chr(39) as campo

FROM

[$(vDiretorio)$(vArquivo)]

(ooxml, embedded labels, header is 4 lines, table is CAIXA)

WHERE len([REFERENCIA RF]) > 0

;

   

CALL CriarLinhasParaInsert;

 

CALL InserirLinhas;

   

//***************************************************************************************************

Tags (1)