안녕하십니까?



제가 ADOQuery를 이용하여 ActiveX 폼을 만들었습니다.



그런데 쿼리 실행도 다 되고 잘 되는데 아래와 같은 상황에서 에러 코드가 나옵니다.



원인을 알려 주십시요...



Function TActiveFormX.bSQL(sSQL: string; qSQL: TADOQuery): boolean;

begin

qSQL.Active := FALSE;



sSQL := Trim(sSQL);

Result := TRUE;

if Trim(sSQL) = '' Then Exit;



Screen.Cursor := crHourGlass;



try

qSQL.Close;

qSQL.SQL.Clear;

qSQL.SQL.Add(sSQL);



try

if (Copy(UpperCase(sSQL), 1, 1) = 'S') then qSQL.Open

else qSQL.ExecSQL;

except

Result := FALSE;

end;

finally

Screen.Cursor := crDefault;

end;



if (Result = FALSE) then //바로 요기...

ShowMessage(sSQL); // 꼭 Select 구문에서만 에러 코드가 나오더군요...

end;



위에서 정확한 Select 구문을 적고 쿼리를 오픈하게 되면 except 코드로 이동합니다.



도대체 그 원인을 알 수가 없습니다. 위의 코드는 쿼리 구문에서 에러가 발생하면 메시지박스를 출력하게 되어 있는데 아무런 문제도 없는 Select 구문이 계속해서 튀어나옵니다.



부디 고수님들의 답변 기다리겠습니다.



제 글에 답변 및 이메일을 보내 주신 분들에게 감사의 말씀을 올립니다.



감사합니다.