Delphi程式碰到在執行SELECT時報出ORA-01000: maximum open cursors exceeded
信息來,有知道這問題應該怎麽處理的嗎？
急........

查一下Oracle语法有没有问题！

語法當然是沒有問題的了.
因這語句是放在一個FOR循環里做的.前面一部執行是OK的,但到後面就出現這種狀況了.
問題是程式原來是沒問題的.後來程式增了些功能後,就出現這問題了.但增加的功能又跟這個部分沒關系的.

报错的是oracle而不是delphi.

说了半天，你连程序都不放上来。
怎么解决问题！

Sorry!
程式裏是循環調用這個function的,一開始不會報錯,而是循環N次後報這錯誤的.
function TPTR_FRM.Generate_Hs_Commodity(isn, item: string; var hs_commodity_str: string): boolean;
var
strList: TStringList;
v_kpcount: integer;
v_partNum, v_Kpsn: string; // v_itemNm,
v_hardRev, v_firmRev, v_date_Code, v_supplier_id, v_family, v_part_category, v_description: string;
vmsg: string;
v_ExtraInfo: WideString;
begin
try
result := false;
vMsg := '';
strList := TstringList.Create;
Application.ProcessMessages;
with OraQuery2 do
begin
Close;
Sql.Clear;
UnPrepare;
Sql.Add('SELECT A.MO, A.ISN, A.KPSN, A.KPITEM, A.BIOS,A.PCBA, B.CUSTITEM,B.ITEMNM, C.KPCOUNT FROM MOKP_D A, ITEM B, MOKP C '
+ ' WHERE A.ISN=:ISN AND A.KPITEM=:ITEM AND B.ITEM(+)=A.KPITEM AND C.MO(+)=A.MO AND C.KPITEM(+)=A.KPITEM');
ParamByName('ISN').AsString := isn;
ParamByName('ITEM').AsString := item;
try
LogToFile2.WriteToLogFile('SELECT A.MO, A.ISN, A.KPSN, A.KPITEM, A.BIOS,A.PCBA, B.CUSTITEM,B.ITEMNM, C.KPCOUNT FROM MOKP_D A, ITEM B, MOKP C '
+ ' WHERE A.ISN=' + isn + ' AND A.KPITEM=' + item + ' AND B.ITEM(+)=A.KPITEM AND C.MO(+)=A.MO AND C.KPITEM(+)=A.KPITEM');
PrePare;
Open; //執行到這裏報出來的錯誤
except
on E: exception do
begin
LogToFile2.WriteToLogFile('MOKP_D A, ITEM B, MOKP C: ' + E.Message);
StrList.free;
exit;
end;
end;
v_kpsn := FieldByName('KPSN').AsString;
v_partnum := FieldByName('CUSTITEM').AsString;
v_description := FieldByName('ITEMNM').AsString;
v_kpcount := FieldByName('KPCOUNT').AsInteger;
v_ExtraInfo := '';
// v_ExtraInfo := FieldByName('ITEMSP').AsString; B.ITEMSP
LogToFile2.WriteToLogFile('v_kpsn=' + FieldByName('KPSN').AsString + ' v_partnum=' + FieldByName('CUSTITEM').AsString +
' v_description=' + FieldByName('ITEMNM').AsString + ' v_kpcount=' + inttostr(FieldByName('KPCOUNT').AsInteger));
if v_kpcount = 0 then
begin
Close;
Sql.Clear;
Unprepare;
Sql.Add('select * from mokp where mo=(select mo from isn where isn=:ISN) and kpbc=(select kpbc from mokp_d where isn=:ISN and kpitem=:KPITEM ) and kpcount>0 ');
ParamByName('ISN').AsString := isn;
ParamByName('KPITEM').AsString := item;
try
Prepare;
Open;
if RecordCount > 1 then
begin
v_kpcount := FieldByName('KPCOUNT').AsInteger;
end
else
begin
v_kpcount := 1;
end;
except
on E: exception do
begin
LogToFile2.WriteToLogFile('mokp: ' + E.Message);
v_Kpcount := 1;
end;
end;
end;
end;
v_date_Code := ''; //暫時為空
with OraQuery2 do
begin
Close;
UnPrepare;
Sql.Clear;
Sql.Add('SELECT ATTRID,ATTRINFO FROM MODEL_D WHERE MODELID=:ITEM');
ParamByName('ITEM').AsString := item;
try
LogToFile2.WriteToLogFile('SELECT ATTRID,ATTRINFO FROM MODEL_D WHERE MODELID=' + item);
Prepare;
Open;
First;
while not Eof do
begin
LogToFile2.WriteToLogFile('Query is not null');
if FieldByName('ATTRID').AsString = 'HPKP_H/W' then
v_hardRev := FieldByName('ATTRINFO').AsString
else if FieldByName('ATTRID').AsString = 'HPKP_F/W' then
v_firmRev := FieldByName('ATTRINFO').AsString
else if FieldByName('ATTRID').AsString = 'HPKP_VENDOR' then
v_supplier_id := FieldByName('ATTRINFO').AsString
else if FieldByName('ATTRID').AsString = 'HPKP_KIND' then
v_part_category := FieldByName('ATTRINFO').AsString
else if FieldByName('ATTRID').AsString = 'HPKP_DESC' then
v_description := FieldByName('ATTRINFO').AsString
else if FieldByName('ATTRID').AsString = 'HPKP_FAMILY' then
v_family := FieldByName('ATTRINFO').AsString;
Next;
end;
except
on E: exception do
begin
LogToFile2.WriteToLogFile('MODEL_D: ' + E.Message);
v_hardRev := '';
v_FirmRev := '';
v_date_Code := '';
v_supplier_id := '';
v_part_category := '';
end;
end;
end;
//------------------------------------------------------------------------------
// if G_Series = 'OXFORD' then
// begin
with OraQuery2 do
begin
// GET HW,FW FROM ISN_WAREINFO
Close;
UnPrepare;
Sql.Clear;
Sql.Add('SELECT * FROM ISN_WAREINFO WHERE ISN=:ISN');
ParamByName('ISN').AsString := ISN;
try
LogToFile2.WriteToLogFile('SELECT * FROM ISN_WAREINFO WHERE ISN=' + ISN);
Prepare;
Open;
if not IsEmpty then
begin
if FieldByName('HW').AsString <> '' then
begin
v_hardRev := FieldByName('HW').AsString;
end;
if FieldByName('FW').AsString <> '' then
begin
v_firmRev := FieldByName('FW').AsString;
end;
end;
except
on e: exception do
begin
LogToFile2.WriteToLogFile('ISN_WAREINFO: ' + E.Message);
v_hardRev := '';
v_FirmRev := '';
end;
end;
end;
// end;

//------------------------------------------------------------------------------
with strList do
begin
Clear;
if v_partNum <> '' then
begin
Add('CM');
Add('HW');
Add(v_partNum);
Add(item); //update 9.12
Add(v_kpsn);
Add(v_date_code);
Add(v_hardRev);
Add(v_firmRev);
Add(v_supplier_id);
Add('');
Add('I');
Add(IntToStr(v_kpcount));
Add(''); // 14,15 item exchange 2005.9.28
Add(v_family);
Add(v_part_category);
Add(v_description);
Add(v_ExtraInfo); // Ver3.5 :Add ExtraInformation 2005.9.28
end;
end;

hs_Commodity_str := GenerateStr(strList);
LogToFile2.WriteToLogFile('hs_Commodity_str=' + hs_Commodity_str);
Application.ProcessMessages;
result := true;
StrList.free;
except
on E: exception do
begin
LogToFile2.WriteToLogFile('hs_Commodity_str Error: ' + E.Message);
end;
end;
end;

我知道是oracle報出來的錯誤呀.
我是想知道這個問題在Delphi中如何來優化執行SELECT語句時不報這錯誤.
或者如何來Free.