유저가 Memo에 직접 쓰는 SQL문 이 아래와 같다고 합시다
select * from testdb
tsql := Memo1.Text;
if tsql <> '' then begin
try
with Qurry1 do begin
close;
sql.Clear;
sql.Add(' '+ tsql +' ');
Open;
end;
Except
Beep();
showmessage('SQL문이 적합하지 않습니다.!!');
Qurry1.close;
Exit;
end;
end else
begin
Beep();
end;
위처럼 하면 그리드에 조회된 내용이 나타납니다.
SQL문이 위 한줄처럼 간단하면 에러시 간단히 첵크 해 볼 수 있습니다.
그러나 문제는 SQL문이 복잡할때 입니다. 필드명이 많고 조인도 있고 SUM도 있고....
질문: SQL문에서 Error가 날 경우 그 부분을 알려주거나 Check할 수 있게 하는 방법
이 없을까요?
울회사 직원이 다른 회사에서는 그렇게 되어 어떤부분에서 에러가 나는지 금방
알 수 있었다고 우리것도 그것처럼 해 달라네요.... 쩝...
고수님들 보시고 가능하다면 가르쳐 주십시요.. 감사합니다.
그냥 쿼리 넣는거만 하면 되내요 저는;;
procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do begin
Close;
Sql.Clear;
sql.Text := Memo1.Text;
Open;
end;
end;
end.