edtSearch(Edit)에 장비코드를 집어넣고 버튼을 누르면 해당하는 장비를
찾아서 상세정보를 얻는건데요.
버튼을 누르면 Debugger Excepion Notification. 에러가 뜨고여 한번더 에러
메시지가 뜬다음에 GBgrid에는 내가 원하는 값은 나오네요.
에러 메시지를 없애고 싶습니다. 어떻게 하면 될까요?
답변 부탁드립니다.
BDE-Paradox DB를 썼구요...
query문이 join으로 되어있어서 Updatesql컴포넌트를 썼습니다.


procedure TfrmEquip.Button6Click(Sender: TObject);
begin
        //장비화면의 찾기(검색) 버튼
with Query1 do begin
        DatabaseName := 'Equip';
        Query1.RequestLive := True;
        close;
        Sql.Clear;
        Sql.Add('select a.장비코드, a.장비명, a.규격1, a.규격2, a. 규격3, a.
              날짜, a.비용,  a.모델명, b1.거래처명, b2.거래처명, b3.거래처명,  
              c.부서코드명,  a.유지만료일, a.상태구분, a.비고 from 장비 a,
              거래처 b1, 거래처 b2, 거래처 b3, 부서 c');
        Sql.Add('where a.제조사 = b1.거래처코드');
        Sql.Add('and a.서비스사 = b2.거래처코드');
        Sql.Add('and a.거래처 = b3.거래처코드');
        Sql.Add('and a.부서 = c.부서코드');
        Sql.Add('and a.장비코드 Like "'+edtSearch.Text+'%" ');
        if Prepared = false then prepare;
        Query1.Open;
        end;
end;