자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi ADO Query를 사용시 시간 걸리는 문제의 건
2020.01.14 22:35
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
수고 많으십니다.
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;
감사합니다.
댓글 0
Delphi ADO Query를 사용시 시간 걸리는 문제의 건
2020.01.14 22:35
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
수고 많으십니다.
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;
감사합니다.