우편번호 검색하는건데요....
동이름만 쓰면 검색 되는데요... 동이름 뒤에 1동 형식으로 붙이면 되지 않는데
알려주시면 정말 감사 하겠습니다.
예)마포동, 오치동 하면 검색이 되는데...
마포1동, 오치1동 하면 검색이 않되거든요...
소스를 붙여 드리겠습니다. 고수님들의 조언 부탁드립니다.
procedure Tcode.Button1Click(Sender: TObject);
begin
with query1 do begin
close;
prepare;
sql.Clear;
sql.add('select * from zip');
sql.add('where dong like"' + edit1.Text + '"');
open;
end;
end;
procedure Tcode.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;
procedure Tcode.Button3Click(Sender: TObject);
begin
close;
end;
end.
답변 부탁드립니다.
select *
from zip
where dong like 마포%;
이렇게 되어야 하죠.
결론)
edit1.Text 뒤에 %를 붙이세요 ^^
my msm id : aha99@hanmir.com
-
이희환 wrote:
> 우편번호 검색하는건데요....
> 동이름만 쓰면 검색 되는데요... 동이름 뒤에 1동 형식으로 붙이면 되지 않는데
> 알려주시면 정말 감사 하겠습니다.
> 예)마포동, 오치동 하면 검색이 되는데...
> 마포1동, 오치1동 하면 검색이 않되거든요...
> 소스를 붙여 드리겠습니다. 고수님들의 조언 부탁드립니다.
> procedure Tcode.Button1Click(Sender: TObject);
> begin
> with query1 do begin
> close;
> prepare;
> sql.Clear;
> sql.add('select * from zip');
> sql.add('where dong like"' + edit1.Text + '"');
> open;
> end;
> end;
>
> procedure Tcode.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;
>
> procedure Tcode.Button3Click(Sender: TObject);
> begin
> close;
> end;
>
> end.
> 답변 부탁드립니다.