test

發文回覆瀏覽次數：822

推到 Plurk!

推到 Facebook!

dino
一般會員

發表：20
回覆：73
積分：23
註冊：2002-07-29

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-11-06 11:55:33

IP:61.219.xxx.xxx 未訂閱

資料庫:SQL Server 2000 Enterprise Edition

while not DBGrid1.DataSource.DataSet.Eof do
     begin
        ADOConnection1.BeginTrans;
        try
            dest_Query.Insert;
            dest_Query.FieldByName('CARGO_IN_NO').Value := DBGrid1.DataSource.DataSet.FieldByName('CARGO_IN_NO').Value;
            dest_Query.FieldByName('CARGO_IN_SN').Value := DBGrid1.DataSource.DataSet.FieldByName('CARGO_IN_SN').Value;
            ...
            dest_Query.FieldByName('RECEIVE_AREA').Value := DBGrid1.DataSource.DataSet.FieldByName('RECEIVE_AREA').Value;
            dest_Query.FieldByName('CARGO_SUM').Value := DBGrid1.DataSource.DataSet.FieldByName('CARGO_SUM').Value;
            dest_Query.Post;
            source_Query.Delete;
            Application.ProcessMessages;
            ADOConnection1.CommitTrans;
        except
            on E:Exception do
            begin
              ADOConnection1.RollbackTrans;
              if Pos('Attempt to insert duplicate key row',E.Message)>0 then //°²³]·í¸ê®Æ«½Æ®É¸ê®Æ®w¦^¶Çªº¿ù»~°T¦³¥H¤W¦r¦ê....
                 raise Exception.Create('·s¼Wªº¸ê®Æ¤w¸g¦s¦b')
              else
                 raise Exception.Create('¸ê®ÆÀx¦s¥¢±Ñ,¿ù»~°T®§¦p¤U:'#13 E.message);
              exit;
            end;
        end;
     end;

dino
一般會員

發表：20
回覆：73
積分：23
註冊：2002-07-29

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-11-06 12:00:53

IP:61.219.xxx.xxx 未訂閱

while not DBGrid1.DataSource.DataSet.Eof do
     begin
        ADOConnection1.BeginTrans;
        try
            dest_Query.Insert;
            dest_Query.FieldByName('CARGO_IN_NO').Value := DBGrid1.DataSource.DataSet.FieldByName('CARGO_IN_NO').Value;
            dest_Query.FieldByName('CARGO_IN_SN').Value := DBGrid1.DataSource.DataSet.FieldByName('CARGO_IN_SN').Value;
            ...
            dest_Query.FieldByName('RECEIVE_AREA').Value := DBGrid1.DataSource.DataSet.FieldByName('RECEIVE_AREA').Value;
            dest_Query.FieldByName('CARGO_SUM').Value := DBGrid1.DataSource.DataSet.FieldByName('CARGO_SUM').Value;
            dest_Query.Post;
            source_Query.Delete;
            Application.ProcessMessages;
            ADOConnection1.CommitTrans;
        except
            on E:Exception do
            begin
              ADOConnection1.RollbackTrans;
              if Pos('Attempt to insert duplicate key row',E.Message)>0 then //假設當資料重複時資料庫回傳的錯誤訊息有以上字串....
                 raise Exception.Create('新增的資料已經存在')
              else
                 raise Exception.Create('資料儲存失敗,錯誤訊息如下:'#13 E.message);
              exit;
            end;
        end;
     end;

系統時間：2024-05-01 8:32:36

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！