|
안녕하세요. 타락천사 입니다.
델파이 입문서가 없다고 해서 쓰고 있습니다.
보통 추가, 수정, 조회 쿼리문 이용시 다음 둘 중 하나를 이용 합니다.
다음 둘의 차이를 알아보겠습니다.
1번) Query1.SQL.Add('SELECT * FROM 테이블 WHERE ID = :pID');
Query1.ParamByName('pID').AsString := 'TEST';
2번) Query1.SQL.Add('SELECT * FROM 테이블 WHERE ID = 'TEST');
1. 처리 속도는 같습니다.
1번 방법은 쿼리문의 :pID 를 Replace 하는 시간이 더 걸리지만,
쿼리 조회에서 가장 많이 시간이 소요 되는 부분이 DB 에서 데이터 조회 하는 부분 입니다.
쿼리문 만드는 시간은 상대적으로 무시할 수 있습니다.
2. Prepare.
1번 방법은 Prepare 로 쿼리문 파싱 시간을 줄일 수 있습니다.
Prepare 은 DB side 에서 일어납니다. (application side 아님)
DB 가 쿼리문 파싱 하는 시간을 줄여 줍니다.
하지만, 1번의 이유로 속도 차이는 무시 할만 합니다..
ex)
Query1.Prepare;
for i := 0 to MyList.Count - 1 do
begin
Query1.ParamByName('pID').AsString := MyList.Strings[i];
Query1.Execute;
end;
Query1.Unprepare;
하지만, 개발 요구 사항이 다양하게 변할 수 있어서, 이전 프로젝트에 써본적이 없습니다.
3. SQL 예약어 사용
텍스트 안에 SQL 예약어인 ", ' [ ] #13#10 join from and" 등이 포함되어 있으면
2번의 방법으로는 쿼리문 에러 납니다.
반드시 1번의 방법으로 데이터 처리 해야 합니다.
4. Blob type
Blob type 의 필드에 데이타 파일 이나 이미지 파일을 을 업로드나 다운로드 하는 경우는
2번의 방법으로는 처리할 수 없습니다.
반드시 1번의 방법으로 데이터를 처리 해야 합니다.
5. 개발 편의성
개발 편의성은 2번의 방법이 좋습니다.
예제로 제가 개발한 서버 프로그램의 함수 입니다.
SQL Error 가 나면 DoCheckOpen(qryAsk, sQry) 에 beak point 를 걸어서
sQry 내용을 SQL 프로그램 에서 실행시켜 쿼리문의 오류를 찾아 냅니다..
** 소스 중에 SQL문을 코멘트로 남겨 둔 것은, DB 테이블 필드의 변경으로 에러가 날 경우 나,
DB 테이블 의 내용 확인을 위해서 입니다.
** 회사 프로그램 이라서 테이블 명과 필드명은 모두 삭제 했습니다.
procedure TfrmDataServer.DoGetUserList(AContext: TIdContext; const AData: string);
var
sSqlText, sQry: string;
sID: string;
MyUser: TUser;
begin
sID := AData;
MyUser := FUserList.IndexOf(AContext, sID);
if MyUser = nil then
begin
__DoSendData(AContext, '9000' + '0000' + '사용자를 찾을 수 없습니다.' + sID);
exit;
end;
{
SELECT ....
LEFT JOIN ... B
ON .....
LEFT JOIN ... C
ON ...
WHERE ...
ORDER BY ...
}
sSqlText :=
'SELECT ...'
+ ' LEFT JOIN ... B'
+ ' ON ...'
+ ' LEFT JOIN ... C'
+ ' ON ...'
+ ' WHERE ...'
+ ' ORDER BY ...';
sQry := Format(sSqlText, [gCompCode]);
if not DoCheckOpen(qryAsk, sQry) then
begin
MyUser.FCode := 9009;
MyUser.FText := gDBError;
MyUser.DoSendData;
exit;
end;
MyUser.FCode := 1010;
MyUser.FText := 'OK';
MyUser.FDataSet1 := qryAsk;
MyUser.DoSendData;
end;
.....
function DoCheckOpen(AQuery: TFDQuery; const AText: string): boolean;
begin
Result := true;
integer(gDBError) := 0;
try
AQuery.Close;
AQuery.SQL.Text := AText;
AQuery.Open;
AQuery.Last;
except
on E: exception do
begin
&nb
|
[angel] ParamByName vs SQL Text
