새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

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

안녕하세요.

txt반출하는 속도가 너무 안나서 조언을 듣고자 문의드립니다.

 

DB에 있는 고객별 로우데이타를 조회화면에서 txt로 저장하는 프로그램을 만들고 있습니다.

건수가 대략 30만건되어 FDMEMTable을 이용하여 cxGrid와 연결하여 조회는 되었는데요.

cxGrid에서 직접 txt로 반출을 하면 자료가 많다보니 에러가 발생하더군요.

그래서 FDMEMTable 데이타를 직접읽어 TXT로 반출을 했는데 대략 40분정도가 소요됩니다.

40분이나 되다보니 어쩔수 없이 사용자에게 요청올때마다 쿼리로 뽑아주고 있습니다.

 

txt반출속도를 빠르게 하는 방법이 있을까요?

아래는 txt로 반출하는 샘플코드입니다.

속도개선에 대한 의견이 있으시면 주저없이 댓글해주세요

감사합니다. ^^

 

-----------------------------------------------------------------------

 

   if not CDS3.Active then
     Exit;

   try
      AssignFile(TxtF, 'C:\통계조회.txt');
      Rewrite(TxtF);
      StrData :=  '가입매장브랜드'+'|'+
                  '가입매장코드'+'|'+
                  '가입매장명'+'|'+
                  '고객번호'+'|'+
                  '문자수신여부'+'|'+
                  '발송매장브랜드'+'|'+
                  '발송매장'+'|'+
                  '발송매장명'+'|'+
                  '발송유무'+'|'+
                  '약관동의'+'|'+
                  '개인정보동의'+'|'+
                  '마케팅동의'+'|'+
                  '적립포인트'+'|'+
                  '포인트사용유무'+'|'+
                  '사용포인트'+'|'+
                  '내용';
      WriteLn(TxtF, StrData);

      i := 0;
      iNa := 0;
      with CDS3 do
      begin
         CDS3.First;
         while not eof do
         begin

           StrData := FieldByName('가입매장브랜드').AsString+'|'+
                      FieldByName('가입매장코드').AsString+'|'+
                      FieldByName('가입매장명').AsString+'|'+
                      FieldByName('고객번호').AsString+'|'+
                      FieldByName('문자수신여부').AsString+'|'+
                      FieldByName('발송매장브랜드').AsString+'|'+
                      FieldByName('발송매장').AsString+'|'+
                      FieldByName('발송매장명').AsString+'|'+
                      FieldByName('발송유무').AsString+'|'+
                      FieldByName('약관동의').AsString+'|'+
                      FieldByName('개인정보동의').AsString+'|'+
                      FieldByName('마케팅동의').AsString+'|'+
                      FieldByName('적립포인트').AsString+'|'+
                      FieldByName('포인트사용유무').AsString+'|'+
                      FieldByName('사용포인트').AsString+'|'+
                      FieldByName('내용').AsString;
           WriteLn(TxtF, StrData);
           next;
         end;
      end;

      CloseFile(TxtF);

      ShowMessage(pChar('C:통계조회.txt 로 저장되었습니다.'));
   except on E: Exception do
      begin
         ShowMessage('TXT파일이 저장되지 않았습니다.');
      end;
   end;
 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2019.4~2019.7 관리자 2015.01.22 6410
공지 유용한 관련 사이트 관리자2 2014.03.20 43749
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 85023
295 delphi 10.2.3 +Xcode 10 + IOS 12 환경에서 빌드시 왜 에라메세지가 뜨는지요? [1] file 화이부동 2018.09.26 241
294 listview Data 뿌려주거나 클릭 시 EvalError 발생. [4] file 엔달 2018.09.27 147
293 C++Builder 최신업데이트(30831)불구 Kinvey 푸시 토큰을 받지 못합니다. 개성산전 2018.10.01 82
292 IOS 12 대응에 관해서 [1] 돌팅 2018.10.01 274
291 FireDAC사용 쿼리하는 동안 진행중 표시 어떻게..? [2] 공감 2018.10.01 140
290 TMS FMX ZBar Reader 사용하신분 계시나요? 생각 2018.10.04 50
289 delphi 베를린 android database 에러 질문합니다. [4] devdev 2018.10.05 114
288 이미 존재하는 데이터 타입이나 클래스에 Helper가 존재하는지 체크방법 [3] 100jk 2018.10.05 57
287 여러 Package 작성시 특정 유닛을 공유하는 방법 100jk 2018.10.05 39
286 앱에서 글자가 위아래 잘려 보이는 현상 해결 방안 문의 [8] file 지병철 2018.10.05 291
285 안드로이드 API Level 26 문제 [1] 토끼왕 2018.10.06 164
284 앱스토어 심사거부건 도움 부탁합니다. [1] 돌팅 2018.10.06 265
283 RAD Studio 사용 중 [1] file 초코코초 2018.10.08 94
282 델파이 10.2 사용중인데 알람이 자꾸 뜹니다. [3] 테리 2018.10.12 140
281 빌더 오늘 갑자기 이상한 곳으로 링크되고 실행하기 어려울 정도로 나타납니다. [1] file 개성산전 2018.10.12 102
280 No provisioning profile found for the selected build configuration 에라가 나는데요? [3] file 화이부동 2018.10.12 114
279 폼을 가로로 고정하는법 [2] 100jk 2018.10.15 114
» FireDAC. FDMEMTable의 txt 반출관련 속도개선 문의드립니다. [4] 오바라미 2018.10.16 86
277 [DCC Error] E2597 c:\program files (x86)\embarcadero\studio 문의 [1] file lcarus76 2018.10.17 124
276 android socket error [2] devdev 2018.10.17 103



광고 모듈이 설치되어 있지 않아 실행을 중단합니다..