ORA-01000: превышено максимальное количество открытых курсоров - PullRequest
Новая
       9

ORA-01000: превышено максимальное количество открытых курсоров

3 голосов
/ 28 апреля 2011

Использование Delphi 7, BDE и Oracle

Я выполняю оператор SQL select, а затем перебираю каждую из записей возвращенного набора и выполняю следующее обновление sql 

var
 AQuery: TQuery;
begin
 AQuery:= TQuery.Create(nil);
 AQuery.DatabaseName:= ADatabase.DatabaseName;
 with AQuery do
 begin
  SQL.Text:= 'UPDATE AP_Master SET CMCL_FORECAST_CLEARED=:AClearedDate WHERE ID=:AMasterId';
  ParamByName('AMasterId').AsString:= IntToStr(AId);
  ParamByName('AClearedDate').AsDateTime:= StrToDateTime(FormatDateTime('mm/dd/yyyy', AForeCastClearedDate));
  try
   ExecSql;
  except on E: Exception do
   begin
    raise Exception.create('Error Updating AP_Master Tables Forecast Cleared Date!' + E.Message);
   end;//except
  end; //try
 end; //with
 AQuery.Close;
 AQuery.Free;
end;

Это работает для первых 500 записей, но затем я получаю: ORA-01000: превышено максимальное количество открытых курсоров

Есть ли что-то, что мне нужно сделать на стороне BDE, оракула или в моем коде (я использую стандартные компоненты TQuery и TDatabase)

1 Ответ

3 голосов
/ 28 апреля 2011

Ваше закрытие запроса неуместно, это означает, что для каждой строки вы ставите курсоры-сироты.Попробуйте вместо этого: 

var
 AQuery: TQuery;
begin
  AQuery:= TQuery.Create(nil);
  try
    AQuery.DatabaseName:= ADatabase.DatabaseName;

    with AQuery do
    begin
      SQL.Text:= 'UPDATE AP_Master'#13 +
                 'SET CMCL_FORECAST_CLEARED = :AClearedDate'#13 +
                 'WHERE ID= :AMasterId';
      ParamByName('AMasterId').AsInteger := AId;
      // Note the date->string->date is not necessary; setting the param
      // AsDateTime with a TDateTime value will format it correctly for you.
      ParamByName('AClearedDate').AsDateTime:= AForeCastClearedDate;

      try // Protect open
        try
          ExecSql;
          except 
           on E: Exception do
             raise Exception.create('Error Updating AP_Master Tables' +
                                    ' Forecast Date Cleared' +
                                    E.Message);   
          end;//except
        end; // except try
      finally
        AQuery.Close;  // finally means it's closed every time always
      end; //finally try for opening
    end; //with
  finally
    AQuery.Free;  // finally here ensures free
  end;
end;
...