이상림 wrote:

> 질문 부분 소스

> JOB_TYPE1.Clear;

> ADOQ1.Active := False;

> ADOQ1.Close;

> ADOQ1.SQL.Clear;

> ADOQ1.SQL.Add('select distinct JOB_TYPE from CALL_CENTER4 order by JOB_TYPE');

> ADOQ1.Open;

> ADOQ1.First;

> while not ADOQ1.Eof do

> begin

> JOB_TYPE1.Items.add(ADOQ1.fieldbyname('JOB_TYPE').asstring);

> ADOQ1.Next;

> end;

>

> 질문 내용

> 위와 같이 소스를 해서 실행시켰는데요.

> 콤보박스에 distinct가 안먹는거 같아요. sql plus에서 위 sql문을 넣으면 잘되는데.

> 프로그램상에서는 distinct와는 무관하게 리스트 전체가 다 나오네요.(같은 이름의 것들이 나와요)

> 혹시 아시는분 없나요?

>

> 아참 그리고 아래 제 질문에 답변해 주신 님 정말 감사합니다. ^^;



별 차이 없지만 함 해보세여..

글구 DISTINCT 잘 먹는데여...^^*



JOB_TYPE1.Items.Clear;

with QrHouChk do

begin

ADOQ1.close;

ADOQ1.SQL.Clear;

ADOQ1.SQL.Add('SELECT DISTINCT JOB_TYPE FROM CALL_CENTER4 ORDER BY JOB_TYPE');

ADOQ1.open;

While not ADOQ1.Eof do

begin

JOB_TYPE1.Items.Add(FieldByName('JOB_TYPE').asString);

next;

end;

end;