各位大大,小弟有一問題: 我想在delphi使用oracle的order_header_s.nextval 但確發生的找不到max_oid這個欄位,可是我有設別名為max_oid了 真不知要在那才能用??? function TfrmEAIGet.setInitObjectID():integer; var iMaxOID: integer; begin tabSeq.close; try tabSeq.SQL.Text := 'select order_header_s.nextval as max_oid from dual'; if tabSeq.Parameters.ParamByName('max_oid').Value=null then begin iMaxOID := 1; end else begin iMaxOID := StrToInt(tabSeq.Parameters.ParamByName('max_oid').Value); end; finally tabSeq.open; end;

Hi ensin您好 應該不是用參數欄位吧?? 試試看改成如下:    

引言: 各位大大,小弟有一問題: 我想在delphi使用oracle的order_header_s.nextval 但確發生的找不到max_oid這個欄位,可是我有設別名為max_oid了 真不知要在那才能用???

function TfrmEAIGet.setInitObjectID():integer;
  var
    iMaxOID: integer;
begin
  tabSeq.close;
  try
    tabSeq.SQL.Text := 'select order_header_s.nextval as max_oid from dual';
    tabSeq.open;
    if tabSeq.FieldByName('max_oid').AsString='' then
      begin
        iMaxOID := 1;
      end
    else
      begin
        iMaxOID := tabSeq.FieldByName('max_oid').AsInteger;
      end;
  finally
    tabSeq.close;
  end;

發表人 - yachanga 於 2004/06/11 11:06:22

hi,yachanga 你好: 謝謝您目前可以使用了,可是還有一個問題就是它取得流水號之後並不會寫回oracle 例如:我己用delphi從1取到10了,那下一次應該是11 但是我用sql Plus 用select order_header_s.currval from dual 它的質還停在1,看起來好像是delphi並沒有寫回oracle的樣子, 我有把它加commit試看看,但也沒有用 是不是還要下什麼指令才能寫會oracle呢? function TfrmEAIGet.setInitObjectID():integer; var iMaxOID: integer; begin tabSeq.open; try //tabSeq.SQL.Text := 'select order_header_s.nextval as max_oid from dual'; if tabSeq.FieldByName('max_oid').AsString=Null then begin iMaxOID := 1; end else begin iMaxOID := tabSeq.FieldByName('max_oid').AsInteger; end; finally tabSeq.close; end; result := iMaxOID; end;

Hi ensin,    將該 Sequence Cache Size  設為 0 試試 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

引言: Hi ensin, 將該 Sequence Cache Size 設為 0 試試 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica"> 請問Sequence Cache Size 設為 0 是要在oracle設還是要在delphi設定呢? 還有要如何設定,

Hi ensin,    Setup In Oracle !!     ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.