ORA-01000：最大打開的遊標超出

Question

用Delphi 7，BDE和Oracle

我執行SQL SELECT語句，然後通過各自的返回set的記錄步驟，並執行以下更新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側做，Oracle方面，或在我的代碼（使用標準TQuery和TDatabase組件的Im）

Answer 1

您關閉查詢的地方不正確，這意味着您對每行都是孤兒遊標。試試這個：

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;