자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------

수고 많으십니다.

 

dbgo의 ADO query를 하기의 loop에 사용시 약 20초 이상의 시간이 걸립니다.

ADOConnection의 트랜젝션 사용시 시간을 절약할 수 있다고 들었는데 구체적인 사용법을 몰라서 문의 드립니다

 

loop를 돌려 반복하면서 ADO query를 사용하여 조건을 검색하여 테이블을 만들어 가는 기능이며 넘 시간이 걸려서  loop의 query 값을 저장해 놓았다가 한꺼번에 처리 하는것이 transaction이라고 들었습니다.

 

하기의 소스  loop를 어떻게 Transaction으로 한꺼번에 처리하여 시간을 절약흘 수 있을지 고수님의 조언 부탁드립니다

 

소스의 Loop는 최종 1520번 반복합니다.

 

제가 사용한 소스는 하기와 같습니다.

 

 

 

 Level :=  FormTestDB.ADOConnection1.BeginTrans;   // Level은 1로 표시됨.
 try
   

    중간 생략

 

       for i:= 0 to cnt-1 do       // cnt = 520
        begin

          
            ADOQuery1.SQL.Clear;
            str := 'Select * from ' + TableName + ' order by num ASC';
            ADOQuery1.SQL.Add(str);
            ADOQuery1.Active := true;

 

             for j := 1 to 3 do
             begin

                Attr_id := j;
                inc(RecordNo);

                 ADOQuery1.SQL.Clear;
         
                   str:= 'INSERT INTO ' + TableName + '(num, Obis_Code, OBIS_A, OBIS_B, OBIS_C, OBIS_D, OBIS_E, OBIS_F, Class_Id, Attribute_Id, Version_No, Descript, Data_Type, Data_Size, Data ) Values(' +
                   IntToStr(RecordNo) + ', "' + obis_code + '", ' + IntToStr(ObisA) + ', ' + IntToStr(ObisB) + ', ' + IntToStr(ObisC) + ', ' + IntToStr(ObisD) + ', '  +
                   IntToStr(ObisE) + ', ' + IntToStr(ObisF) + ', '  + IntToStr(ClassId) + ', ' + IntToStr(Attr_id) + ', ' +  IntToStr(VerNo) + ', "' + desc + '", "' +
                   strDataType + '", ' + IntToStr( DataSize ) + ', "' + strData + '" )';

 

                  ADOQuery1.SQL.Add(str);
                  ADOQuery1.ExecSQL;
          
         end;
   
      end;

 

      ADOConnection1.CommitTrans;
 except
    ON E : Exception do  ADOConnection1.RollbackTrans;
 end;

 

감사합니다.

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 20051
공지 유용한 관련 사이트 관리자2 2014.03.20 58960
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102577
3279 rad studio xe2 설치 프로그램 실행시 설치프로그램 강제 종료 secret 마구 2013.04.30 0
3278 paserver오류 [1] secret 최종호 2013.05.02 1
3277 DB 관련 질문 입니다! [1] secret 탄돌이 2013.06.17 1
3276 JVL이라는 라이브러리 관련에러 [1] secret 관리자 2015.02.25 1
3275 제품관련 질문입니다. [1] secret 우와 2014.07.17 2
3274 델파이 프로그래밍언어 책 구입했는데요 [1] secret 나본좌 2012.04.10 2
3273 책 19쪽에 맨처음 하는 예제에서요 secret 나본좌 2012.04.11 2
3272 DB Query 문의 드립니다. [1] secret memc 2012.05.16 2
3271 html5 buider 문의 드립니다. secret 2012.12.14 2
3270 Component들이 보이지 않습니다. secret 변보언 2013.01.22 2
3269 기본 bpl (rtl160.bpl등) 배포시 jdbg파일도 같이 배포해야 하나요? [1] secret 한림대의료원정보기술센터 2013.06.11 2
3268 string.format 함수의 한글 자리수 문제 secret kidb 2014.03.04 2
3267 비콘 안드로이스 샘플소스로 실행했는데 안됩니다. [2] secret kim 2015.12.04 2
3266 비콘신호 수신간격 조정을 어디서 해야하나요? [2] secret kim 2015.12.04 2
3265 MessageDlg 관련 질문입니다. [1] secret 신산 2013.06.20 3
3264 [한미반도체] 64BIT PACKGE관련문의 secret 키루루 2014.08.20 3
3263 위험감지앱이 감지를 했을때만 화면표시를 할 수 있나요? [2] secret kim 2015.12.02 3
3262 ChannelManager을 이용한 콜백 문의 secret lespaul06 2015.02.04 3
3261 WebBrowser1 익스플로러 버젼 secret fanta 2015.01.31 3
3260 아래 질문에 대한 스크린샷 첨부입니다. [2] secret 조우상 2012.05.02 4