사발우성 wrote:

>

> 변수를 다시 바꿔습니당.....ㅠ.ㅠ

>

> 하얀烏님 말씀대루 익스플러에서 확인하구 답이 나온것을 보고 다시 해봤는디엽

>

> ㅠ.ㅠ 실패했습니당......진짜루 왜글죠... 제생각엔 이상이 없는 것 같은 디....

>

> 글구엽 '''+inttostr(s)+''' 이부분 에러 안남당...ㅠ.ㅠ

>

> ㅠ.ㅠ 흐미 지가 오타를 빨리 하다 보니까 실수를

>

> and 제품명='''+combobox1.text+''' 이부분도 아님당..... 죄성엽..

>

> 왜 이런 일이.................. 제발 누가 갈켜 줘엽 ㅠ.ㅠ

> procedure TForm18.ComboBox5Click(Sender: TObject);

> var

> k:string;

> begin

> k:='2';

> with form1.Query7 do

> begin

> close;

> sql.Clear;

> sql.Add('select 제조번호 from 검사명세');

> sql.Add('where 조처결과='''+k+''' and 제품명='''+combobox1.text+'''');

> prepare;

> open;

> end;

> listbox1.Clear;

>

> form1.Query7.first ; ==> Query한 다음 커서를 맨처음으로 보낸다...

> while not form1.Query7.Eof do

> begin

> listbox1.Items.Add(form1.query7.fieldbyname('제조번호').asstring);

> form1.Query7.Next;

> end;

> end;

> !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



sql.Add('where 조처결과='''+k+''' and 제품명='''+combobox1.text+'''');

이부분에서

combobox1.text 값을 직접 받지말고 parameter로 받아서 써보세요

예를들어

sql.Add('where 조처결과 = :aa and 제품명 = :bb');

form1.Query7.parambyname('aa').asstring := k;

form1.Query7.parambyname('bb').asstring := trim(combobox1.text);

open;

가끔 직접 엑세스시 값을 제대로 쿼리에서 못받는경우가 있더군요

> !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!