Q&A
- 텍스트데이터를 SQL SERVER로 이전작업이 너무 느려요...
텍스트 데이터를 db로 옮기고자 하는데....
너무 느려서 도저히 몇 만건의 데이터를 넘길수 없습니다.
아래와 같이 코딩을 했는데요...
고수님들 부탁드립니다....
begin
assignfile(F,'c:dddddd.txt');
reset(F);
i := 0;
while i < 100000 do
begin
readln(F,S);
Table1.Append; Table1.Edit;
Table1.FieldByName('YJI_NO').asInteger := StrtoInt(Copy(S,1,8));
Table1.FieldByName('YJI_YEAR').asString := Copy(S,10,4);
Table1.FieldbyName('YJI_MONTH').asString := Copy(S,15,2);
....
Table1.Post;
Table1.Next;
i := i + 1;
end;
closefile(F);
end;
너무 느려서 도저히 몇 만건의 데이터를 넘길수 없습니다.
아래와 같이 코딩을 했는데요...
고수님들 부탁드립니다....
begin
assignfile(F,'c:dddddd.txt');
reset(F);
i := 0;
while i < 100000 do
begin
readln(F,S);
Table1.Append; Table1.Edit;
Table1.FieldByName('YJI_NO').asInteger := StrtoInt(Copy(S,1,8));
Table1.FieldByName('YJI_YEAR').asString := Copy(S,10,4);
Table1.FieldbyName('YJI_MONTH').asString := Copy(S,15,2);
....
Table1.Post;
Table1.Next;
i := i + 1;
end;
closefile(F);
end;
3
COMMENTS
-
-
그냥 텍스트파일을 이용하거나 엑셀파일로 변환한후
SQL의 DTS 를 이용해보십시오.
깨굴~
헬프미 wrote:
> 텍스트 데이터를 db로 옮기고자 하는데....
> 너무 느려서 도저히 몇 만건의 데이터를 넘길수 없습니다.
> 아래와 같이 코딩을 했는데요...
> 고수님들 부탁드립니다....
>
>
> begin
> assignfile(F,'c:dddddd.txt');
> reset(F);
> i := 0;
> while i < 100000 do
> begin
> readln(F,S);
> Table1.Append; Table1.Edit;
> Table1.FieldByName('YJI_NO').asInteger := StrtoInt(Copy(S,1,8));
> Table1.FieldByName('YJI_YEAR').asString := Copy(S,10,4);
> Table1.FieldbyName('YJI_MONTH').asString := Copy(S,15,2);
> ....
> Table1.Post;
> Table1.Next;
> i := i + 1;
> end;
> closefile(F);
> end;
-
밑에 소스중 어떤것이 문제인가요...
텍스트파일을 이용한건데 느리거든요...
Table1.Post시 오래걸리는데...줄일방법이 없을까요?
깨구락지 wrote:
> 그냥 텍스트파일을 이용하거나 엑셀파일로 변환한후
> SQL의 DTS 를 이용해보십시오.
>
> 깨굴~
>
> 헬프미 wrote:
> > 텍스트 데이터를 db로 옮기고자 하는데....
> > 너무 느려서 도저히 몇 만건의 데이터를 넘길수 없습니다.
> > 아래와 같이 코딩을 했는데요...
> > 고수님들 부탁드립니다....
> >
> >
> > begin
> > assignfile(F,'c:dddddd.txt');
> > reset(F);
> > i := 0;
> > while i < 100000 do
> > begin
> > readln(F,S);
> > Table1.Append; Table1.Edit;
> > Table1.FieldByName('YJI_NO').asInteger := StrtoInt(Copy(S,1,8));
> > Table1.FieldByName('YJI_YEAR').asString := Copy(S,10,4);
> > Table1.FieldbyName('YJI_MONTH').asString := Copy(S,15,2);
> > ....
> > Table1.Post;
> > Table1.Next;
> > i := i + 1;
> > end;
> > closefile(F);
> > end;
(NOTICE) You must be logged in to comment on this post.
-
-
-
- 성필
- •
- 2001.12.15 03:50
- 1 COMMENTS
- /
- 0 LIKES
-
parkisu•2001.12.15 04:08성필 wrote: > 안녕하세요. > 지금 libmysql.dll 파일을 이용해서 원격으로 mysql 서버에 접속하려고 합...
-
- 한반도
- •
- 2001.12.15 02:49
- 3 COMMENTS
- /
- 0 LIKES
-
김하늘•2001.12.17 23:40앞에분과 대답이 같네요... 사용자 DB를 구축하던가, 파일로 가지고 있던가 이게 가장 좋겠지요 onExecut...
-
한반도•2001.12.15 03:40AThread.Connection.Disconnect ; indy 첨이라..저런게 있더군요. ㅡㅡ^
-
티모니•2001.12.15 03:27누군가 서버에 접속을 했을때 발생하는 IP를 허가된 IP와 대조하면 해결되지 않나여? DB를 이용해서 하...
-
- 전짱
- •
- 2001.12.15 02:26
- 2 COMMENTS
- /
- 0 LIKES
-
OneShot•2001.12.15 23:52Insert into ... values ( ... ) 이 원하는 쿼리일텐데 values 에서 끝의 괄호가 빠졌네요.... 전짱...
-
초보•2001.12.15 05:40전짱 wrote: > db는 mySql 이구여.... > 이미 테이블은있는 상태....부탁드립니다... > 전 아무리 봐두 ...
-
- 바보
- •
- 2001.12.15 02:18
- 1 COMMENTS
- /
- 0 LIKES
-
kuma•2001.12.15 02:25리턴값을 확인해 보세요... 0: 메모리/리소스 부족 2: 파일을 찾지 못함 3: 경로가 잘못됨 11: 실행파...
-
- 박준영
- 2001.12.15 02:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자A
- 2001.12.15 01:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 음냐리..
- 2001.12.15 01:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 헬프미
- •
- 2001.12.15 01:36
- 3 COMMENTS
- /
- 0 LIKES
텍스트 데이터를 db로 옮기고자 하는데.... 너무 느려서 도저히 몇 만건의 데이터를 넘길수 없습니다. 아래와 같이 코딩을 했는데요... 고수님들 부탁드립니다.... begin assignfile(F,'c:dddddd.txt'); reset(F); i := 0; while i < 1000...-
지나가다가..•2001.12.16 02:31텍스트 데이터를 DB에 INSERT하는 부분이 문제가 있을겁니다. 코딩자체가 문제가 아니라 많은 양의 ...
-
깨구락지•2001.12.15 17:23그냥 텍스트파일을 이용하거나 엑셀파일로 변환한후 SQL의 DTS 를 이용해보십시오. 깨굴~ 헬프미 wr...
-
헬프미•2001.12.15 20:22밑에 소스중 어떤것이 문제인가요... 텍스트파일을 이용한건데 느리거든요... Table1.Post시 오래걸리는...
-
- 델파이초보
- •
- 2001.12.15 00:22
- 4 COMMENTS
- /
- 0 LIKES
-
Bulduki•2001.12.15 03:42안녕하십니까? 어떤 방법으로 하셨나요? 제가 Form1에서 Form2를 Show할때 해보니까 되는데요... ...
-
더초보•2001.12.15 00:27uses Unit1; 라구...해서 폼2에서 폼1을 사용하게 해주시면 됩니다...^^
-
델파이초보•2001.12.15 00:43그렇게 했답니다.제가 헤더파일에 선언해줬다고 썼는데요. 그래도 에러가 납니다. 더초보 wrote: > us...
-
parkisu•2001.12.15 04:13델파이초보 wrote: > 그렇게 했답니다.제가 헤더파일에 선언해줬다고 썼는데요. > 그래도 에러가 납니다....
-
- 장정호
- •
- 2001.12.14 23:31
- 2 COMMENTS
- /
- 0 LIKES
-
김영대•2001.12.15 04:00응용프로그램간의 데이타 교환방법은 여러가지가 있습니다. 그중 가장 많이 사용하는게. WM_COPYDATA 메...
-
버섯•2001.12.15 00:27장정호 wrote: > 안녕하세요... > > 델파이 초보 입니다.. > > 서로 다른 2개의 델파이 실행 프로그...
-
- 커피맨
- •
- 2001.12.15 02:09
- 3 COMMENTS
- /
- 0 LIKES
-
초보동생•2001.12.15 20:57초보인 제생각엔 DB 저장시 그냥 '200011' 이런식으로 입력하시고, 대신 MaskEdit를 사용하시면 더 편하지...
-
바보•2001.12.15 02:21커피맨 wrote: > 델파이 초보라 질문만 자주 올립니다 > 그렇지만 델파이 가족이라는(^^) 소속감으루 ......
-
주변머리•2001.12.15 09:54바보 wrote: > 커피맨 wrote: > > 델파이 초보라 질문만 자주 올립니다 > > 그렇지만 델파이 가족이라는...
-
- 눈길
- •
- 2001.12.14 22:50
- 1 COMMENTS
- /
- 0 LIKES
-
버섯•2001.12.15 00:32눈길 wrote: > 안녕하세요 > 델파이5.0을 쓰고 파라독스를 쓰고 있읍니다. > > C:성적관리Db에서 > ...
-
- 아마글래머
- •
- 2001.12.14 22:52
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자•2001.12.15 01:20아마글래머 wrote: > 윈도우에서 바탕화면을 클릭하거나 더블클릭했을때 일어나는 이벤트를 잡아내고 싶습...
-
- 박준영
- 2001.12.14 21:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 델맨
- 2001.12.14 21:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자A
- 2001.12.14 21:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자A
- 2001.12.14 21:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 최병련
- 2001.12.14 20:52
- 0 COMMENTS
- /
- 0 LIKES
코딩자체가 문제가 아니라
많은 양의 데이터를 한 건씩 DB에 INSERT하게 되면 무지 오래 걸리게 되져
예전에 한 100만건 넘게 넣어 본적이 있었는데 포기했음당... 한 3시간정도 후에...
ㅡ.ㅡ;;
우선 방법이 있습니다. 아주 쉬운걸루.... ^^
첫번째는 텍스트 데이터를 ',' 구분자를 갖는 CSV 파일 형식으로 컨버팅 시킵니다.
그리고 프로그램 상에서 해야 한다면.. 스토어드 프로시저를 작성하셔야 합니다.
델 프로그래밍 코딩으로는 명령이 안먹더라구염...
바로 BULK INSERT 명령을 사용하는겁니다.
대량의 데이터를 SQL 서버로 전송할때 사용합니다.
도움말은 쿼리 분석기에서 F1눌러서 헬프로 찾아보세염...
BULK INSERT는 텍스트 파일에서 데이터를 SQL 서버로 전송하기 때문에 텍스트 파일
형식으로 사용할때 유용하죠... 서버간에 데이터 전송도 됩니다... 그럼...
헬프미 wrote:
> 텍스트 데이터를 db로 옮기고자 하는데....
> 너무 느려서 도저히 몇 만건의 데이터를 넘길수 없습니다.
> 아래와 같이 코딩을 했는데요...
> 고수님들 부탁드립니다....
>
>
> begin
> assignfile(F,'c:dddddd.txt');
> reset(F);
> i := 0;
> while i < 100000 do
> begin
> readln(F,S);
> Table1.Append; Table1.Edit;
> Table1.FieldByName('YJI_NO').asInteger := StrtoInt(Copy(S,1,8));
> Table1.FieldByName('YJI_YEAR').asString := Copy(S,10,4);
> Table1.FieldbyName('YJI_MONTH').asString := Copy(S,15,2);
> ....
> Table1.Post;
> Table1.Next;
> i := i + 1;
> end;
> closefile(F);
> end;