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;