초보에서벗어나자 wrote:

> 두개의 TEdit로 조회를 하려 합니다.

> 일반적으로 '전체'하면 모든 목록이 나오게요..

> 아님 '홍길동'에서 '홍'만 입력해두 근접한 데이타가 조회 되도록 하려 합니다.

> 아래는 제가 코딩한 건데요..

> 안되더라구요.

> 고수님들 좀, 봐주세요..

>

> if compedit.text = '전체' then

> begin

> with insert_qry do begin

> close;

> sql.Clear;

> sql.text := ' select b.code,b.swname,c.name '+

> ' from buy b, comp c '+

> ' where b.comp_code = c.code '+

> ' order by b.code ';

> open;

> end;

> end

>

> else

> with insert_qry do begin

> close;

> sql.Clear;

> sql.text := ' select b.code,b.swname,c.name '+

> ' from buy b, comp c '+

> ' where b.comp_code = c.code ';

> if compedit.text <> '' then

> sql.add('and c.name like ''%'+compedit.text+'%''');

> if swedit.text <> '' then

> sql.add('and b.swname like ''%'+swedit.text+'%''');

> open;

> end;

>

> 꾸벅!!부탁드립니다.



*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^



아래의 내용은 여기에 있는 내용를 토대로 저의 DB를 가지고 Test해서 제대로 결과가

나온 내용을 그대로 복사한 것입니다.

제가 Test한 바로는 위의 문장에서는 에러가 없군요. 그러나 결과를 보지 못하셨다면

데이타 쿼리난 데이타 소스등를 연결시 잘못 하신것이 아닌지... 정확한 에러메세지를 올리지 않아서 잘 모르겠습니다. 아래의 문장는 제가 분명히 Test하고 결과를 확인한 소스입니다.



if compedit.text = '전체' then

begin

with insert_qry do begin

close;

sql.Clear;

sql.text := ' select b.PostNo_01, b.PostNo_02,c.JusoCode, c.JusoName ,b.Juso'+

' from Juso b, JusoCode c '+

' where c.JusoName = b.Juso '+

' order by b.Juso ';

open;

end;

end



else

with insert_qry do begin

close;

sql.Clear;

sql.text := ' select b.PostNo_01, b.PostNo_02,c.JusoCode, c.JusoName '+

' from Juso b, JusoCode c '+

' where c.JusoName = b.Juso ';

if compedit.text <> '' then

sql.add('and c.JusoName like ''%'+compedit.text+'%''');

if swedit.text <> '' then

sql.add('and b.Juso like ''%'+swedit.text+'%''');

open;

end;



*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^