Q&A

  • 우편번호 검색 프로그램인데요... 에러 하나만 잡아주세요!


왜... 입력창에 예를 들어 '역삼동' 치면 우편번호랑 주소랑 나오는 검색프로그램있잖아요... 그 프로그램을 여기서 다운받았는데요... 다 좋은데.. 근데 예를 들어

'개포2동' '역삼2동' 이렇게 숫자가 들어간 동을 치면 왜 아무것도 안나올까요? 그냥 '개포동' 치면 리스트가 나오는데... 내일 아침일찍 확인해 볼께요..내일 오후에 내야 하는데... 리스트에서 숫자들어간 동은 다 지울 수 없잖아요.. ^^ 도와주실 수 있어요?

자료를 다 올릴까 하다가 용량이 커서 귀찮으실까봐 소스 부분 가져와 봅니다...

가르쳐주세요... 궁금하네요... 어떻게 해야하는지..





procedure TForm1.Button1Click(Sender: TObject);

begin

with query1 do begin

close;

prepare;

params[0].asstring:=edit1.text;

open;

end;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

edit2.text:= query1.fieldbyname('zipcode').asstring;

edit3.text:= query1.fieldbyname('sido').asstring + ' ' +

query1.fieldbyname('gugun').asstring + ' ' +

query1.fieldbyname('dong').asstring + ' ' +

query1.fieldbyname('bunji').asstring ;

end;









4  COMMENTS
  • Profile
    김태용 2000.12.08 20:40


    > procedure TForm1.Button1Click(Sender: TObject);

    > begin

    > with query1 do begin

    > close;

    > prepare;

    //---------------------------------------------------------

    > params[0].asstring:=edit1.text;

    이부분을

    params[0].asstring:=edit1.text + '%';

    라고 바꾸시고 query에는 is 를 like로 바꾸세요

    그래도 안돼면 개포만 처도 비슷한거 다나오니까

    쓰시는데 지장없을 겁니다

    //---------------------------------------------------------

    > open;

    > end;

    > end;



  • Profile
    경섭 2000.12.09 08:23
    그런데 query 어디에 is 가 있어요? ^^;;





    김태용 wrote:

    >

    > > procedure TForm1.Button1Click(Sender: TObject);

    > > begin

    > > with query1 do begin

    > > close;

    > > prepare;

    > //---------------------------------------------------------

    > > params[0].asstring:=edit1.text;

    > 이부분을

    > params[0].asstring:=edit1.text + '%';

    > 라고 바꾸시고 query에는 is 를 like로 바꾸세요

    > 그래도 안돼면 개포만 처도 비슷한거 다나오니까

    > 쓰시는데 지장없을 겁니다

    > //---------------------------------------------------------

    > > open;

    > > end;

    > > end;

    >

  • Profile
    김태용 2000.12.09 17:22
    경섭 wrote:

    > 그런데 query 어디에 is 가 있어요? ^^;;

    >

    >

    > 김태용 wrote:

    > >

    > > > procedure TForm1.Button1Click(Sender: TObject);

    > > > begin

    > > > with query1 do begin

    > > > close;

    > > > prepare;

    > > //---------------------------------------------------------

    > > > params[0].asstring:=edit1.text;

    > > 이부분을

    > > params[0].asstring:=edit1.text + '%';

    > > 라고 바꾸시고 query에는 is 를 like로 바꾸세요

    > > 그래도 안돼면 개포만 처도 비슷한거 다나오니까

    > > 쓰시는데 지장없을 겁니다

    > > //---------------------------------------------------------

    > > > open;

    > > > end;

    > > > end;

    > >

    죄송합니다

    is가 아니라 =

    요즘 바빠서리 실수 했네요



  • Profile
    방기남 2000.12.08 18:22
    SQL..



    LIKE 아세요?



    아마 도움이 될지도..