全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2276
推到 Plurk!
推到 Facebook!

adoquery.updatebatch儲存的問題

尚未結案
lisahsu7488
一般會員


發表:9
回覆:3
積分:2
註冊:2007-10-02

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-06-15 13:55:43 IP:210.243.xxx.xxx 訂閱
各位大大,想請問一下
我想一次在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, 註解 無‧
系統時間:2024-03-29 14:45:43
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!