한국 델파이 개발자 모임 - Insert 속도가 이렇게 느린이유가 뭡니까?(DB:Access)

Insert 속도가 이렇게 느린이유가 뭡니까?(DB:Access)

Delphi 5와 Access를 묶어 작업하고 있습니다

먼저 Main 창에서 New 창을 띄워 새로운 레코드를 Insert하는 단순한 구성입니다

그런데 문제는 New 창에서 Insert한 후 Main 창을 Refresh하여도 일정시간이 지나야

Insert된 Data를 가져온다는 것입니다

Insert하는 시점에서 Main 창을 Refresh하여 Insert된 것을 반영하지 않으면

안돼는데 3~5초가 지나야 제대로 된 Data를 가져옵니다

제가 뭣인가 설정을 빼먹었나요?

아래 1) 은 ADO를 이용한 ADOQuery를 이용한 Source의 일부이며

아래 2) 는 BDE를 이용한 Query를 이용한 Source의 일부입니다

고수님들의 한수 지도바랍니다

아래 1) ADOQuery를 이용

MyQuery.Append;

MyQuery.FieldValues['Cust_No'] := Edit_CustNo.Text;

MyQuery.FieldValues['Bill_To'] := Edit_BillTo.Text;

MyQuery.FieldValues['Loc_Addr'] := Edit_LocAddr.Text;

MyQuery.FieldValues['Biz_Mode'] := StrToIntDef(Edit_BizMode.Text,0);

MyQuery.FieldValues['AR_Term'] := StrToIntDef(Edit_ARTerm.Text,0);

if(UpperCase(CBox_Contact.Text) = 'TRUE') then

MyQuery.FieldValues['Contact'] := true

else

MyQuery.FieldValues['Contact'] := false;

MyQuery.FieldValues['Shi'] := Edit_SHI.Text;

MyQuery.FieldValues['Our_Comment'] := Edit_Comment.Text;

MyQuery.Post;

아래 2)Query 이용

MyQuery.close;

MyQuery.sql.clear;

qryString := 'INSERT INTO TCom_Customer';

qryString := qryString + ' (Cust_No, Bill_To, Loc_Addr, Biz_Mode,';

qryString := qryString + ' AR_Term, Contact, Shi, Our_Comment)';

qryString := qryString + ' VALUES

(:pCustNo, :pBillTo, :pLocAddr, :pBizMode,';

qryString := qryString + ' :pARTerm, :pContact, :pShi, :pComment)';

MyQuery.sql.Add(qryString);

MyQuery.ParamByName('pCustNo').AsString := Edit_CustNo.Text;

MyQuery.ParamByName('pBillTo').AsString := Edit_BillTo.Text;

MyQuery.ParamByName('pLocAddr').AsString := Edit_LocAddr.Text;

MyQuery.ParamByName('pBizMode').AsInteger := StrToIntDef

(Edit_BizMode.Text,0);

MyQuery.ParamByName('pARTerm').AsInteger := StrToIntDef(Edit_ARTerm.Text,0);

if(UpperCase(CBox_Contact.Text) = 'TRUE') then

MyQuery.ParamByName('pContact').AsBoolean := true

else

MyQuery.ParamByName('pContact').AsBoolean := false;

MyQuery.ParamByName('pSHI').AsString := Edit_SHI.Text;

MyQuery.ParamByName('pComment').AsString := Edit_Comment.Text;

try

MyQuery.ExecSQL;

except

on E: Exception do

if not (E is ENoResultSet) then begin

raise;

MyQuery.close;

MyQuery.Free;

exit;

end

end;

MyQuery.close;

이 게시물을

3 COMMENTS

hobakpa • 2001.01.30 21:00

jbpark wrote:

> Delphi 5와 Access를 묶어 작업하고 있습니다

> 먼저 Main 창에서 New 창을 띄워 새로운 레코드를 Insert하는 단순한 구성입니다

> 그런데 문제는 New 창에서 Insert한 후 Main 창을 Refresh하여도 일정시간이 지나야

> Insert된 Data를 가져온다는 것입니다

>

> Insert하는 시점에서 Main 창을 Refresh하여 Insert된 것을 반영하지 않으면

> 안돼는데 3~5초가 지나야 제대로 된 Data를 가져옵니다

>

> 제가 뭣인가 설정을 빼먹었나요?

>

> 아래 1) 은 ADO를 이용한 ADOQuery를 이용한 Source의 일부이며

> 아래 2) 는 BDE를 이용한 Query를 이용한 Source의 일부입니다

>

> 고수님들의 한수 지도바랍니다

>

> 아래 1) ADOQuery를 이용

> MyQuery.Append;

> MyQuery.FieldValues['Cust_No'] := Edit_CustNo.Text;

> MyQuery.FieldValues['Bill_To'] := Edit_BillTo.Text;

> MyQuery.FieldValues['Loc_Addr'] := Edit_LocAddr.Text;

> MyQuery.FieldValues['Biz_Mode'] := StrToIntDef(Edit_BizMode.Text,0);

> MyQuery.FieldValues['AR_Term'] := StrToIntDef(Edit_ARTerm.Text,0);

> if(UpperCase(CBox_Contact.Text) = 'TRUE') then

> MyQuery.FieldValues['Contact'] := true

> else

> MyQuery.FieldValues['Contact'] := false;

>

> MyQuery.FieldValues['Shi'] := Edit_SHI.Text;

> MyQuery.FieldValues['Our_Comment'] := Edit_Comment.Text;

> MyQuery.Post;

>

>

> 아래 2)Query 이용

>

> MyQuery.close;

> MyQuery.sql.clear;

> qryString := 'INSERT INTO TCom_Customer';

> qryString := qryString + ' (Cust_No, Bill_To, Loc_Addr, Biz_Mode,';

> qryString := qryString + ' AR_Term, Contact, Shi, Our_Comment)';

> qryString := qryString + ' VALUES

> (:pCustNo, :pBillTo, :pLocAddr, :pBizMode,';

> qryString := qryString + ' :pARTerm, :pContact, :pShi, :pComment)';

> MyQuery.sql.Add(qryString);

> MyQuery.ParamByName('pCustNo').AsString := Edit_CustNo.Text;

> MyQuery.ParamByName('pBillTo').AsString := Edit_BillTo.Text;

> MyQuery.ParamByName('pLocAddr').AsString := Edit_LocAddr.Text;

> MyQuery.ParamByName('pBizMode').AsInteger := StrToIntDef

> (Edit_BizMode.Text,0);

> MyQuery.ParamByName('pARTerm').AsInteger := StrToIntDef(Edit_ARTerm.Text,0);

>

> if(UpperCase(CBox_Contact.Text) = 'TRUE') then

> MyQuery.ParamByName('pContact').AsBoolean := true

> else

> MyQuery.ParamByName('pContact').AsBoolean := false;

> MyQuery.ParamByName('pSHI').AsString := Edit_SHI.Text;

> MyQuery.ParamByName('pComment').AsString := Edit_Comment.Text;

>

> try

> MyQuery.ExecSQL;

> except

> on E: Exception do

> if not (E is ENoResultSet) then begin

> raise;

> MyQuery.close;

> MyQuery.Free;

> exit;

> end

> end;

> MyQuery.close;

전 초보인데 도움이 되셨으면 합니다.

query1.DisableControls;

{요부분에 refresh할 것들을 써주시면 되지 않을듯 합니다.}

query1.EnableControls;

--레코드를 서버에서 한번 읽어서 뿌려준다면 예를 들어 레코드 20000건이라면 20000번

읽어서 그리드에 뿌려주는 일을 20000번 합니다. DisableControls;이란놈은 사용자 눈엔 보이지 않게 하면서 20000번을 내부적으로 읽어서 query1.EnableControls;요렇게 하면 한번에 보이죠. 제가 우편번호로 테스트 해
- 0
- 0
- 삭제
- 수정
- 댓글
jbpark • 2001.01.31 09:50

hobakpa wrote:

> jbpark wrote:

> > Delphi 5와 Access를 묶어 작업하고 있습니다

> > 먼저 Main 창에서 New 창을 띄워 새로운 레코드를 Insert하는 단순한 구성입니다

> > 그런데 문제는 New 창에서 Insert한 후 Main 창을 Refresh하여도 일정시간이 지나야

> > Insert된 Data를 가져온다는 것입니다

> >

> > Insert하는 시점에서 Main 창을 Refresh하여 Insert된 것을 반영하지 않으면

> > 안돼는데 3~5초가 지나야 제대로 된 Data를 가져옵니다

> >

> > 제가 뭣인가 설정을 빼먹었나요?

> >

> > 아래 1) 은 ADO를 이용한 ADOQuery를 이용한 Source의 일부이며

> > 아래 2) 는 BDE를 이용한 Query를 이용한 Source의 일부입니다

> >

> > 고수님들의 한수 지도바랍니다

> >

> > 아래 1) ADOQuery를 이용

> > MyQuery.Append;

> > MyQuery.FieldValues['Cust_No'] := Edit_CustNo.Text;

> > MyQuery.FieldValues['Bill_To'] := Edit_BillTo.Text;

> > MyQuery.FieldValues['Loc_Addr'] := Edit_LocAddr.Text;

> > MyQuery.FieldValues['Biz_Mode'] := StrToIntDef(Edit_BizMode.Text,0);

> > MyQuery.FieldValues['AR_Term'] := StrToIntDef(Edit_ARTerm.Text,0);

> > if(UpperCase(CBox_Contact.Text) = 'TRUE') then

> > MyQuery.FieldValues['Contact'] := true

> > else

> > MyQuery.FieldValues['Contact'] := false;

> >

> > MyQuery.FieldValues['Shi'] := Edit_SHI.Text;

> > MyQuery.FieldValues['Our_Comment'] := Edit_Comment.Text;

> > MyQuery.Post;

> >

> >

> > 아래 2)Query 이용

> >

> > MyQuery.close;

> > MyQuery.sql.clear;

> > qryString := 'INSERT INTO TCom_Customer';

> > qryString := qryString + ' (Cust_No, Bill_To, Loc_Addr, Biz_Mode,';

> > qryString := qryString + ' AR_Term, Contact, Shi, Our_Comment)';

> > qryString := qryString + ' VALUES

> > (:pCustNo, :pBillTo, :pLocAddr, :pBizMode,';

> > qryString := qryString + ' :pARTerm, :pContact, :pShi, :pComment)';

> > MyQuery.sql.Add(qryString);

> > MyQuery.ParamByName('pCustNo').AsString := Edit_CustNo.Text;

> > MyQuery.ParamByName('pBillTo').AsString := Edit_BillTo.Text;

> > MyQuery.ParamByName('pLocAddr').AsString := Edit_LocAddr.Text;

> > MyQuery.ParamByName('pBizMode').AsInteger := StrToIntDef

> > (Edit_BizMode.Text,0);

> > MyQuery.ParamByName('pARTerm').AsInteger := StrToIntDef(Edit_ARTerm.Text,0);

> >

> > if(UpperCase(CBox_Contact.Text) = 'TRUE') then

> > MyQuery.ParamByName('pContact').AsBoolean := true

> > else

> > MyQuery.ParamByName('pContact').AsBoolean := false;

> > MyQuery.ParamByName('pSHI').AsString := Edit_SHI.Text;

> > MyQuery.ParamByName('pComment').AsString := Edit_Comment.Text;

> >

> > try

> > MyQuery.ExecSQL;

> > except

> > on E: Exception do

> > if not (E is ENoResultSet) then begin

> > raise;

> > MyQuery.close;

> > MyQuery.Free;

> > exit;

> > end

> > end;

> > MyQuery.close;

> 전 초보인데 도움이 되셨으면 합니다.

>

> query1.DisableControls;

> {요부분에 refresh할 것들을 써주시면 되지 않을듯 합니다.}

> query1.EnableControls;

>

>

> --레코드를 서버에서 한번 읽어서 뿌려준다면 예를 들어 레코드 20000건이라면 20000번

> 읽어서 그리드에 뿌려주는 일을 20000번 합니다. DisableControls;이란놈은 사용자 눈엔 보이지 않게 하면서 20000번을 내부적으로 읽어서 query1.EnableControls;요렇게 하면 한번에 보이죠. 제가 우편번호로 테스트 해
- 0
- 0
- 삭제
- 수정
- 댓글
성더기 • 2001.01.31 22:05

database 컴포넌트를 사용하시고 트랜잭셔처리를 해서 Commit를 사용하면

어떨지 싶습니다.
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 전기봉
- 2001.01.30 20:32
- 0 COMMENTS
- /
- 0 LIKES
아웃룩 연락처 편집과 같은 기능 구현...
- 이흥주
- 2001.01.30 20:31
- 0 COMMENTS
- /
- 0 LIKES
packet capture방법..?
- 스위밍
- 2001.01.30 20:15
- 0 COMMENTS
- /
- 0 LIKES
stored proc.에서 file을 생성?
- 델피언77
- •
- 2001.01.30 20:02
- 1 COMMENTS
- /
- 0 LIKES
indy 에서 writestream 을 사용하고 싶은데요...^^
- 빙구
  
  •
  
  2001.02.01 18:10
  
  procedure TForm1.Button1Click(Sender: TObject); var datastr: TStringStream; begin datastr ...
- 채신옥
- •
- 2001.01.30 19:47
- 1 COMMENTS
- /
- 0 LIKES
다른 exe 파일 실행하기
- 정창주
  
  •
  
  2001.01.30 20:03
  
  WinExec(실행파일명, 윈도우스타일) 이걸로 하면 될꺼에여! 채신옥 wrote: > 제가 비베를 이용해...
- 박재만
- •
- 2001.01.30 19:34
- 1 COMMENTS
- /
- 0 LIKES
크리스탈레포트 도와주세요
- 갱민이
  
  •
  
  2001.02.01 03:40
  
  박재만 wrote: > 안녕하세요. > 크리스탈 레포트를 이용한 출력을 할려고 합니다. > 크리스탈 레포트에 ...
- hnc
- 2001.01.30 19:31
- 0 COMMENTS
- /
- 0 LIKES
FORMAT 함수에 대한질문
- DB왕초보
- •
- 2001.01.30 19:12
- 1 COMMENTS
- /
- 0 LIKES
MSAccess DB에 관하여
- hobakpa
  
  •
  
  2001.01.30 20:50
  
  DB왕초보 wrote: > 새해 복 많이 받으시고요. > 현재 만들어진 paradox를 MS-Access의 DB로 옮기고 싶은...
- 정창주
- 2001.01.30 19:09
- 0 COMMENTS
- /
- 0 LIKES
멀티미디어적인 인스톨 화면을 어떻게 구현하나여?
- aha
- •
- 2001.01.30 19:01
- 1 COMMENTS
- /
- 0 LIKES
interbase 설치에 대해...
- 봄봄
  
  •
  
  2001.01.30 21:00
  
  > 1. 6.0(6.1)은 client와 server가 따로 있던데, 로컬로 사용하려면 어떤것을 설치해야 하나요? 로컬로...
- 나야
- •
- 2001.01.30 18:54
- 1 COMMENTS
- /
- 0 LIKES
qrexpred.dcu 가 없데는대요.....
- 갱민이
  
  •
  
  2001.02.01 03:44
  
  델파이의 메인 메뉴 중에 Tool --- Environment Options --- Library탭에서 Library Path에서 ...을 클릭...
- 김범수
- •
- 2001.01.30 18:47
- 1 COMMENTS
- /
- 0 LIKES
dbgrid sort하는 방법?
- 아폴론
  
  •
  
  2001.01.30 19:28
  
  김범수 wrote: > dbgrid 의 내용을 코드순으로 소트하고 싶은데 방법을 가르쳐 주십시요. > database des...
- 김광철
- 2001.01.30 18:32
- 0 COMMENTS
- /
- 0 LIKES
다른 프로그램의 Caption에 내용 입력하기.
- jbpark
- •
- 2001.01.30 16:55
- 3 COMMENTS
- /
- 0 LIKES
Insert 속도가 이렇게 느린이유가 뭡니까?(DB:Access)

Delphi 5와 Access를 묶어 작업하고 있습니다 먼저 Main 창에서 New 창을 띄워 새로운 레코드를 Insert하는 단순한 구성입니다 그런데 문제는 New 창에서 Insert한 후 Main 창을 Refresh하여도 일정시간이 지나야 Insert된 Data를 가져온...
- hobakpa
  
  •
  
  2001.01.30 21:00
  
  jbpark wrote: > Delphi 5와 Access를 묶어 작업하고 있습니다 > 먼저 Main 창에서 New 창을 띄워 새로운...
- jbpark
  
  •
  
  2001.01.31 09:50
  
  hobakpa wrote: > jbpark wrote: > > Delphi 5와 Access를 묶어 작업하고 있습니다 > > 먼저 Main 창에...
- 성더기
  
  •
  
  2001.01.31 22:05
  
  database 컴포넌트를 사용하시고 트랜잭셔처리를 해서 Commit를 사용하면 어떨지 싶습니다.
- 궁금이
- •
- 2001.01.30 09:26
- 1 COMMENTS
- /
- 0 LIKES
날짜구분기호가 뭘루 설정되어 있는지 알려면???
- ^-_-^
  
  •
  
  2001.01.30 12:51
  
  DateSeparatoer 로 확인,설정을 할수 있습니다. blue blood. 궁금이 wrote: > 자기 시스템에 날짜...
- 장용기
- 2001.01.30 09:16
- 0 COMMENTS
- /
- 0 LIKES
Coolbar의 band들의 위치를 어떻게 저장하죠?
- 우진회
- •
- 2001.01.30 09:02
- 2 COMMENTS
- /
- 0 LIKES
[왕초보]누구나 대답할수 있는 질문2
- cyberia
  
  •
  
  2001.01.30 10:57
  
  일단 ixa := StoToInt(edtFirst.Text); 문장은 StoToInt가 아니라 StrToInt입니다. 따라서, ixa := St...
- 우진회
  
  •
  
  2001.01.30 12:30
  
  ixa := StoToInt(edtFirst.Text); 문장은 StoToInt가 아니라 StrToInt입니다. 따라서, ixa := StrToInt(e...
- won
- 2001.01.30 09:30
- 0 COMMENTS
- /
- 0 LIKES
인터베이스6 라이센스 확인, 등록 어떻게 합니까?
- 정일준
- 2001.01.30 19:06
- 0 COMMENTS
- /
- 0 LIKES
Receivetext 핸들링
- 김정균
- •
- 2001.01.30 07:38
- 1 COMMENTS
- /
- 0 LIKES
오라클연동시 리턴값을 받는 방법좀...
- ^-_-^
  
  •
  
  2001.01.30 12:58
  
  yo` 흠!! try..except 문을 사용하면 되지 않을까 하는군요!! try //작업코드.... except o...

jbpark
2001/01/30 16:55
Views459

Likes0

Comments3

Reports0
Tag List
수정
삭제
목록으로

←First Page

1984 1985 1986 1987 1988 1989 1990 1991 1992 1993

Last Page→