Q&A
- 테이블 처리속도가 느려요
텍스트 파일을 테이블(DBF, Paradox, RDB...)로 이동하는 프로그램을
만들었는데, 처리속도가 상당히 느립니다.
텍스트 데이터가 약15,000건인데 5,000건 처리하는데 약2시간 정도가
걸리네요... 처리속도를 빠르게 하는 방법을 알려주시면 감사하겠습니다.
또 한가지 질문은 DBF의 N(Numeric) 필드 속성이 정수형이 맞습니까?
참고로 제가 코딩한 내용입니다.
procedure TForm_Conv.SB_ConvClick(Sender: TObject);
var
s : string;
f : textfile;
begin
assignfile(f, OpenDialog1.FileName);
reset(f);
while not seekeof(f) do
begin
readln(f,s);
if ((ord(s[1])=10) and (ord(s[2])=13)) then
begin
T_Dest.Append;
end
else
begin
with T_Dest do
begin
Append; Edit;
Fields[0].AsString := Copy(s, 1, Pos('|', s)-1);
System.Delete(s, 1, Pos('|', s));
Fields[1].AsString := Copy(s, 1, Pos('|', s)-1);
System.Delete(s, 1, Pos('|', s));
:
:
Post;
end;
end;
end;
closefile(f);
end;
만들었는데, 처리속도가 상당히 느립니다.
텍스트 데이터가 약15,000건인데 5,000건 처리하는데 약2시간 정도가
걸리네요... 처리속도를 빠르게 하는 방법을 알려주시면 감사하겠습니다.
또 한가지 질문은 DBF의 N(Numeric) 필드 속성이 정수형이 맞습니까?
참고로 제가 코딩한 내용입니다.
procedure TForm_Conv.SB_ConvClick(Sender: TObject);
var
s : string;
f : textfile;
begin
assignfile(f, OpenDialog1.FileName);
reset(f);
while not seekeof(f) do
begin
readln(f,s);
if ((ord(s[1])=10) and (ord(s[2])=13)) then
begin
T_Dest.Append;
end
else
begin
with T_Dest do
begin
Append; Edit;
Fields[0].AsString := Copy(s, 1, Pos('|', s)-1);
System.Delete(s, 1, Pos('|', s));
Fields[1].AsString := Copy(s, 1, Pos('|', s)-1);
System.Delete(s, 1, Pos('|', s));
:
:
Post;
end;
end;
end;
closefile(f);
end;
2
COMMENTS
-
-
김선일 wrote:
제가 아는 방법이 하나 있습니다.
도움이 될 건지는 모르겠습니다. 하지만 이건 분명합니다.
우리나라 데이터베이스 프로그래머들은 주로 이메소드를 사용합니다.
맹주씨가 현재 속도를 상향시키고 싶은 테이블에
table1.disablecontrols; //테이블과 연결 된 control를 일시 정지를 시키는 것
처리 할 이벤트들 값을 정의 맹주씨는 15000건 자료들이겠죠
처리 한 다음에
table1.enablecontrols; //테이블과 다시 연결
한번 천천히 시도 해보세요
안 되시면 연락하세요?
> 맹주형 wrote:
> > 텍스트 파일을 테이블(DBF, Paradox, RDB...)로 이동하는 프로그램을
> > 만들었는데, 처리속도가 상당히 느립니다.
> > 텍스트 데이터가 약15,000건인데 5,000건 처리하는데 약2시간 정도가
> > 걸리네요... 처리속도를 빠르게 하는 방법을 알려주시면 감사하겠습니다.
> >
> > 또 한가지 질문은 DBF의 N(Numeric) 필드 속성이 정수형이 맞습니까?
> >
> > 참고로 제가 코딩한 내용입니다.
> > procedure TForm_Conv.SB_ConvClick(Sender: TObject);
> > var
> > s : string;
> > f : textfile;
> > begin
> > assignfile(f, OpenDialog1.FileName);
> > reset(f);
> >
> > while not seekeof(f) do
> > begin
> > readln(f,s);
> > if ((ord(s[1])=10) and (ord(s[2])=13)) then
> > begin
> > T_Dest.Append;
> > end
> > else
> > begin
> > with T_Dest do
> > begin
> > Append; Edit;
> > Fields[0].AsString := Copy(s, 1, Pos('|', s)-1);
> > System.Delete(s, 1, Pos('|', s));
> > Fields[1].AsString := Copy(s, 1, Pos('|', s)-1);
> > System.Delete(s, 1, Pos('|', s));
> > :
> > :
> > Post;
> > end;
> > end;
> > end;
> > closefile(f);
> > end;
> >
(NOTICE) You must be logged in to comment on this post.
-
- 맹주형
- •
- 1999.10.04 02:40
- 2 COMMENTS
- /
- 0 LIKES
텍스트 파일을 테이블(DBF, Paradox, RDB...)로 이동하는 프로그램을 만들었는데, 처리속도가 상당히 느립니다. 텍스트 데이터가 약15,000건인데 5,000건 처리하는데 약2시간 정도가 걸리네요... 처리속도를 빠르게 하는 방법을 알려주시...-
김선일•1999.10.04 07:44맹주형 wrote: > 텍스트 파일을 테이블(DBF, Paradox, RDB...)로 이동하는 프로그램을 > 만들었는데, 처...
-
김선일•1999.10.04 07:49김선일 wrote: 제가 아는 방법이 하나 있습니다. 도움이 될 건지는 모르겠습니다. 하지만 이건 분...
-
-
- 김태호
- 1999.10.03 08:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 이현섭
- •
- 1999.10.03 03:13
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•1999.10.03 05:20이현섭 wrote: > 제가 궁금한 것은 하나의 2차원 배열을 프로시져의 파라미터로 넘기는 방법입니다. 여러...
-
-
- 김종환
- 1999.10.03 02:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 송수현
- •
- 1999.10.03 01:44
- 1 COMMENTS
- /
- 0 LIKES
-
꼴뚜기•1999.10.04 19:51송수현 wrote: > Alias의 Driver를 INTRBASE로 하면 Driver not known to system > > 이라고 나오는데 ...
-
- 임성룡
- •
- 1999.10.03 00:28
- 1 COMMENTS
- /
- 0 LIKES
-
김종환•1999.10.03 02:18임성룡 wrote: > 안녕하세요..성룡이입니다. > Edit박스안에 숫자가 들어가는데, 숫자가 한자리일 때는 ...
-
-
이규하•1999.10.03 09:16김현 wrote: > 하나의 DB 어플리 케이션에 여러개의 데이터 모듈이 포함되어도 상관없는지 > 알고 싶습니...
-
-
- 여언영
- 1999.10.02 21:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 정연섭
- •
- 1999.10.02 20:43
- 1 COMMENTS
- /
- 0 LIKES
-
김아무개•2000.06.22 07:06정연섭 wrote: > 양방향(읽고,쓰고)통신이 가능한 Serial 컴포넌트를 구합니다. > 혹시 좋은 컴포넌트 알...
-
- 진희
- 1999.10.02 20:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 이승연
- 1999.10.02 20:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 송아지
- •
- 1999.10.02 20:34
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.05 00:13송아지 wrote: > delphi 3에서, > tif image를 볼 수 있는 viewer 또는 component가 필요합니다. > view...
-
- 김정옥
- 1999.10.02 19:51
- 0 COMMENTS
- /
- 0 LIKES
-
- blueofsky
- •
- 1999.10.02 11:53
- 1 COMMENTS
- /
- 0 LIKES
-
이주흥•1999.10.02 22:40blueofsky wrote: > 안녕하세요... > 간단한 프로그램을 개발하고 있는중인데..... > main폼에서 1. sub...
-
- 꼴뚜기
- •
- 1999.10.02 06:08
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•1999.10.04 20:26꼴뚜기 wrote: > 안냐세여. 다시 찾아온 꼴뚜깁니다. 그래도 어물전 망신은 안시킴..-_-;; 익쌀익쌀.... ...
-
- 이숙현
- •
- 1999.10.02 03:59
- 1 COMMENTS
- /
- 0 LIKES
-
꼴뚜기•1999.10.02 06:53이숙현 wrote: > master/detail관계에서요 마스터의 디비그리드를 증가할때마다 디테일쪽에서 마스터의 pk...
-
- 김창훈
- •
- 1999.10.02 03:08
- 1 COMMENTS
- /
- 0 LIKES
-
김광섭•1999.10.02 18:40김창훈 wrote: > 부탁합니다.. > 인스톨쉴드에서 셋업프로그램을 만든후 윈98에서 설치할때 > 윈98의 시...
-
- 최재영
- •
- 1999.10.02 02:51
- 1 COMMENTS
- /
- 0 LIKES
-
유도삼•1999.10.04 20:32최재영 wrote: > Quick report에서 DetailBand만 외각선 모양으로 나오게 할려고 합니다. > 즉 record의 ...
> 텍스트 파일을 테이블(DBF, Paradox, RDB...)로 이동하는 프로그램을
> 만들었는데, 처리속도가 상당히 느립니다.
> 텍스트 데이터가 약15,000건인데 5,000건 처리하는데 약2시간 정도가
> 걸리네요... 처리속도를 빠르게 하는 방법을 알려주시면 감사하겠습니다.
>
> 또 한가지 질문은 DBF의 N(Numeric) 필드 속성이 정수형이 맞습니까?
>
> 참고로 제가 코딩한 내용입니다.
> procedure TForm_Conv.SB_ConvClick(Sender: TObject);
> var
> s : string;
> f : textfile;
> begin
> assignfile(f, OpenDialog1.FileName);
> reset(f);
>
> while not seekeof(f) do
> begin
> readln(f,s);
> if ((ord(s[1])=10) and (ord(s[2])=13)) then
> begin
> T_Dest.Append;
> end
> else
> begin
> with T_Dest do
> begin
> Append; Edit;
> Fields[0].AsString := Copy(s, 1, Pos('|', s)-1);
> System.Delete(s, 1, Pos('|', s));
> Fields[1].AsString := Copy(s, 1, Pos('|', s)-1);
> System.Delete(s, 1, Pos('|', s));
> :
> :
> Post;
> end;
> end;
> end;
> closefile(f);
> end;
>