D�vida com Delphi + Unidac (ORA-01000: m�ximo de cursores abertos excedido)

06/05/2019

Bom dia,

Estou tendo um problema com ORA-01000 utilizando os componentes do UniDac.

Tenho uma ferramenta que aplica atualiza��es de estrutura no banco de dados Oracle, ou seja, a ferramenta pode executar comandos de INSERT/UPDATE/DELETE e CREATE/ALTER/DROP em uma �nica atualiza��o.

Em alguns casos est� ocorrendo o erro "ORA-01000: m�ximo de cursores abertos excedido" durante a atualiza��o, geralmente para resolver � alterado a configura��o do banco aumentando a quantidade de cursores.

Existe alguma maneira de gerenciar isso via c�digo, abrindo e encerrando os cursores para n�o chegar no limite?

Eu utilizo o TUniQuery da seguinte maneira:

var
  vQuery: TUniQuery;
begin
  vQuery: TUniQuery.Create(Self);
  try
    vQuery.Connection := MinhaConexao;
    vQuery.SQL.Text := 'Meu comando SQL';
    vQuery.Open; //ou .Execute;
  finally
    vQuery.Close;
    FreeAndNil(vQuery);
  end;
end;

Andr� Wurges

Curtir t�pico + 0

Responder

Posts

13/08/2019

Anderson Gon�alves

var
  vQuery: TUniQuery;
begin
  vQuery: TUniQuery.Create(Self);
  try
    vQuery.Connection := MinhaConexao;
    vQuery.SQL.Text := 'Meu comando SQL';
    vQuery.Open; //ou .Execute;
  finally
    vQuery.Close;
    FreeAndNil(vQuery);
  end;
end;

Bom pela l�gica voc� est� criando uma Query ali em cima mas n�o est� destuindo ela no final voc� est� somente liberando da mem�ria, ai voc� cria outra, outra, outra e etc...

Outra coisa... quando for passar a instru��o sql fecha a query e limpa a propriedade sql antes.

vQuery.Close;
vQuery.SQL.Clear;

Assim � mais garantido que voc� vai fazer o procedimento com ela fechada de certeza, dentro do finally pode ocorrer algum desvio no c�digo e n�o passar por l�, eu gosto de usar muito � o except para verificar erros e evitar mensagens em ingl�s ao usu�rio se ocorrer esses erros.

Espero ter ajudado.

Responder

Gostei + 0