Devart Forums

Code: Select all

"DECLARE \
 -- data a excluir  \
 day DATE := null; \
 nrec     INTEGER := 0;  \
 -- Cursor para identificar o rowid (endereco unico) a ser limpo na tabela  \
 -- Rowid seria um endereco unico que localiza o registro na instancia dados  \
 CURSOR CV_LIMPEZA IS \
     SELECT ROWID      \
     FROM SAM.HST_HOL_15MIN \
     WHERE DATAHORA >= day \
     AND   DATAHORA <= day +1 ; \
 -- Estou criando uma especie de array aqui  \
 TYPE TP_ROWID IS TABLE OF CHAR(18);  \
 RY_ROWID      TP_ROWID; \
BEGIN  \
  day := TO_DATE(&DTDEL , \'YYYY-MM-DD\'); \
  -- Abrindo cursor \
  OPEN CV_LIMPEZA; \
  -- Loop de limpeza principal  \
  LOOP \
     -- Carregando no array 50000 registros (enderecos rowid) \
     FETCH  CV_LIMPEZA BULK COLLECT INTO RY_ROWID LIMIT 50000; \
     -- Se chegou ao final do cursor, sai do LOOP    \
     EXIT WHEN CV_LIMPEZA%NOTFOUND;  \
     -- Comando FORALL para limpeza massiva dos registros  \
	 BEGIN  \
	   FORALL I IN 1..RY_ROWID.COUNT \
			 DELETE FROM SAM.HST_HOL_15MIN WHERE ROWID = RY_ROWID(I); \
		nrec := nrec + SQL%ROWCOUNT;  \
	 EXCEPTION   \
	   WHEN OTHERS THEN \
		   ROLLBACK;  \
		   RAISE;  \
	 END;  \
     COMMIT; \
   END LOOP; \
   -- Fechando o cursor \
   CLOSE CV_LIMPEZA; \
   --DBMS_OUTPUT.PUT_LINE(nrec|| ' registros excluidos.'); \
END;"

Code: Select all

...
OraScript -> MacroByName("DTDEL") -> Value = "2017-10-18";
OraScript -> Execute();
...
OraSQL -> MacroByName("DTDEL") -> Value = "2017-10-18";
OraSQL -> Execute();

Code: Select all

...
OraSQL -> ParamByName("DTDEL") -> Value = "2017-10-18";
OraSQL -> Execute();