adoquery.updatebatch儲存的問題 |
尚未結案
|
lisahsu7488
一般會員 發表:9 回覆:3 積分:2 註冊:2007-10-02 發送簡訊給我 |
各位大大,想請問一下
我想一次在dbgrid上key完所有的資料在按save鍵儲存 但是無法儲存,會出現附檔上的錯誤訊息,囧rz adoquery的locktype已設定為itbatchoptimistic 部份程式碼: BSQL := 'select act_id,buru_cd,bnk_id,case buru_flag when ''Y'' then ''是'' when ''N'' then'; BSQL := BSQL ' ''否'' end as buru_flag from acm08 where act_id =' quotedstr(act_id.Text) ; if dmbase1.sqlselect(bsql,'adqacm08') then begin dg1.Columns[0].FieldName := 'buru_cd'; dg1.Columns[1].FieldName := 'bnk_id'; dg1.Columns[2].FieldName := 'buru_flag'; dbedit1.DataField := 'bnk_id'; dbedit2.DataField := 'buru_cd'; dbg1.DataField := 'buru_flag'; end ; 按下save鍵要做的事 procedure Tfrmbase1.sbsaveClick(Sender: TObject); var i:integer; begin for i:=1 to dg1.DataSource.DataSet.RecordCount do begin dmbase1.AdqAcm08.Edit; dmbase1.AdqAcm08.FieldByName('act_id').AsString := act_id.text; dmbase1.AdqAcm08.FieldByName('bnk_id').AsString := dg1.Columns.items[1].Field.value; dmbase1.AdqAcm08.FieldByName('buru_cd').AsString := dg1.Columns.items[0].Field.value; dmbase1.AdqAcm08.FieldByName('buru_flag').AsString := dg1.Columns.items[2].Field.value; dmbase1.AdqAcm08.Post; end; dmbase1.AdqAcm08.UpdateBatch(arall); end; mudle的部份 function Tdmbase1.sqlselect(bSQL : string ;adq : string ) : Boolean; begin TADOQuery(FindComponent(adq)).Close; TADOQuery(FindComponent(adq)).SQL.Clear; TADOQuery(FindComponent(adq)).SQL.Text := bSQL; TADOQuery(FindComponent(adq)).Open; if (TADOQuery(Findcomponent(adq)).RecordCount = 0) then begin TADOQuery(Findcomponent(adq)).Close; TADOQuery(findComponent(adq)).SQL.Clear; result := false; end else begin result := true ; end; end; procedure Tdmbase1.sqltrans(bSQL : string ;adq : string ); begin TADOQuery(FindComponent(adq)).Close; TADOQuery(FindComponent(adq)).SQL.Clear; TADOQuery(FindComponent(adq)).SQL.Text := bSQL; TADOQuery(FindComponent(adq)).ExecSQL; end; 編輯記錄
lisahsu7488 重新編輯於 2009-06-15 13:58:15, 註解 無‧
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |