한국 델파이 개발자 모임 - 우편번화 찾는 프로그램입니다. 그런데 한 번은 되는데.....

우편번화 찾는 프로그램입니다. 그런데 한 번은 되는데.....

한 번은 되는데, 두번째는 안되는군요, 분명히 고쳐야 할 부분이 있는것 같은데

어딘지 모르겠어요, 우편번호 찾는 프로그램인데,바꿔야 될 부분이 어딜까요

알려주세요..............

procedure TZipcode.Button1Click(Sender: TObject);

var

str : string;

begin

str := 'select zipcode,sido,gugun,dong from zipcode where dong = :dong';

with ADOdataset1 do

begin

commandtext := str;

parameters.ParamByName('dong').value := edit1.text;

open;

while not ADOdataset1.Eof do

begin

with Listview1.Items.Add do

begin

Caption := ADOdataset1.FieldByname('zipcode').value;

SubItems.Add(ADOdataset1.FieldByname('sido').value);

SubItems.Add(ADOdataset1.FieldByname('gugun').value);

SubItems.Add(ADOdataset1.FieldByname('dong').value);

adodataset1.next;

end;

end;

end;

end;

이 게시물을

4 COMMENTS

문현 • 2001.11.15 17:20

Jane wrote:

> 한 번은 되는데, 두번째는 안되는군요, 분명히 고쳐야 할 부분이 있는것 같은데

> 어딘지 모르겠어요, 우편번호 찾는 프로그램인데,바꿔야 될 부분이 어딜까요

> 알려주세요..............

> procedure TZipcode.Button1Click(Sender: TObject);

> var

> str : string;

> begin

> str := 'select zipcode,sido,gugun,dong from zipcode where dong = :dong';

> with ADOdataset1 do

> begin

///// Close; //일단 한번 닫아야 파라미터를 새로 넣을수 있지요...

> commandtext := str;

> parameters.ParamByName('dong').value := edit1.text;

> open;

> while not ADOdataset1.Eof do

> begin

> with Listview1.Items.Add do

> begin

> Caption := ADOdataset1.FieldByname('zipcode').value;

> SubItems.Add(ADOdataset1.FieldByname('sido').value);

> SubItems.Add(ADOdataset1.FieldByname('gugun').value);

> SubItems.Add(ADOdataset1.FieldByname('dong').value);

> adodataset1.next;

> end;

> end;

> end;

> end;

>
- 0
- 0
- 삭제
- 수정
- 댓글
Jane • 2001.11.15 18:22

jane wrote:

감사합니다. 오랜 만에 저의 질문에 답해 주시는 분이 계셔서 넘 좋네요...

그런데, 사실 저도 몇번 그렇게 해 봤는데 계속 에러가 나거든요....

BOF또는EOF가 참이거나 ...... 뭐 그런 에러 메세지가 계속 뜨거든요,

그리고 사실 프로그램 런 시킨것을 끝내려면 같은 메세지가 계속 뜨는데

문현씨는 어디에 잘못이 있다고 생각 하세요///

답변을 주시 겠어요. 넘 고마워요..

문현 wrote:

> Jane wrote:

> > 한 번은 되는데, 두번째는 안되는군요, 분명히 고쳐야 할 부분이 있는것 같은데

> > 어딘지 모르겠어요, 우편번호 찾는 프로그램인데,바꿔야 될 부분이 어딜까요

> > 알려주세요..............

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

> > var

> > str : string;

> > begin

> > str := 'select zipcode,sido,gugun,dong from zipcode where dong = :dong';

> > with ADOdataset1 do

> > begin

> ///// Close; //일단 한번 닫아야 파라미터를 새로 넣을수 있지요...

> > commandtext := str;

> > parameters.ParamByName('dong').value := edit1.text;

> > open;

> > while not ADOdataset1.Eof do

> > begin

> > with Listview1.Items.Add do

> > begin

> > Caption := ADOdataset1.FieldByname('zipcode').value;

> > SubItems.Add(ADOdataset1.FieldByname('sido').value);

> > SubItems.Add(ADOdataset1.FieldByname('gugun').value);

> > SubItems.Add(ADOdataset1.FieldByname('dong').value);

> > adodataset1.next;

> > end;

> > end;

> > end;

> > end;

> >
- 0
- 0
- 삭제
- 수정
- 댓글
77 • 2001.11.17 02:40

군디 ADOdataset1는 언제 쓰는건가여...-.-;

저는 ADOQuery1루 연결했는디 상관없는건가여?

Jane wrote:

> jane wrote:

> 감사합니다. 오랜 만에 저의 질문에 답해 주시는 분이 계셔서 넘 좋네요...

> 그런데, 사실 저도 몇번 그렇게 해 봤는데 계속 에러가 나거든요....

> BOF또는EOF가 참이거나 ...... 뭐 그런 에러 메세지가 계속 뜨거든요,

> 그리고 사실 프로그램 런 시킨것을 끝내려면 같은 메세지가 계속 뜨는데

> 문현씨는 어디에 잘못이 있다고 생각 하세요///

> 답변을 주시 겠어요. 넘 고마워요..

>

>

> 문현 wrote:

> > Jane wrote:

> > > 한 번은 되는데, 두번째는 안되는군요, 분명히 고쳐야 할 부분이 있는것 같은데

> > > 어딘지 모르겠어요, 우편번호 찾는 프로그램인데,바꿔야 될 부분이 어딜까요

> > > 알려주세요..............

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

> > > var

> > > str : string;

> > > begin

> > > str := 'select zipcode,sido,gugun,dong from zipcode where dong = :dong';

> > > with ADOdataset1 do

> > > begin

> > ///// Close; //일단 한번 닫아야 파라미터를 새로 넣을수 있지요...

> > > commandtext := str;

> > > parameters.ParamByName('dong').value := edit1.text;

> > > open;

> > > while not ADOdataset1.Eof do

> > > begin

> > > with Listview1.Items.Add do

> > > begin

> > > Caption := ADOdataset1.FieldByname('zipcode').value;

> > > SubItems.Add(ADOdataset1.FieldByname('sido').value);

> > > SubItems.Add(ADOdataset1.FieldByname('gugun').value);

> > > SubItems.Add(ADOdataset1.FieldByname('dong').value);

> > > adodataset1.next;

> > > end;

> > > end;

> > > end;

> > > end;

> > >
- 0
- 0
- 삭제
- 수정
- 댓글
Jane • 2001.11.19 19:41

예 잘못을 발견 했는데. 그건 패치를 안해서 그렇군요, 그건 프로그램 코딩상의

문제가 아니라 델파이5 나 ADO를 패치를 안해서 나타나는 문제입니다.

델파이6는 괜찮다고 하더군요, 이미 패치가 되어있어서요.....

부끄럽군요....

도움을 주신 분들 모두 감사합니다.

77 wrote:

> 군디 ADOdataset1는 언제 쓰는건가여...-.-;

> 저는 ADOQuery1루 연결했는디 상관없는건가여?

>

> Jane wrote:

> > jane wrote:

> > 감사합니다. 오랜 만에 저의 질문에 답해 주시는 분이 계셔서 넘 좋네요...

> > 그런데, 사실 저도 몇번 그렇게 해 봤는데 계속 에러가 나거든요....

> > BOF또는EOF가 참이거나 ...... 뭐 그런 에러 메세지가 계속 뜨거든요,

> > 그리고 사실 프로그램 런 시킨것을 끝내려면 같은 메세지가 계속 뜨는데

> > 문현씨는 어디에 잘못이 있다고 생각 하세요///

> > 답변을 주시 겠어요. 넘 고마워요..

> >

> >

> > 문현 wrote:

> > > Jane wrote:

> > > > 한 번은 되는데, 두번째는 안되는군요, 분명히 고쳐야 할 부분이 있는것 같은데

> > > > 어딘지 모르겠어요, 우편번호 찾는 프로그램인데,바꿔야 될 부분이 어딜까요

> > > > 알려주세요..............

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

> > > > var

> > > > str : string;

> > > > begin

> > > > str := 'select zipcode,sido,gugun,dong from zipcode where dong = :dong';

> > > > with ADOdataset1 do

> > > > begin

> > > ///// Close; //일단 한번 닫아야 파라미터를 새로 넣을수 있지요...

> > > > commandtext := str;

> > > > parameters.ParamByName('dong').value := edit1.text;

> > > > open;

> > > > while not ADOdataset1.Eof do

> > > > begin

> > > > with Listview1.Items.Add do

> > > > begin

> > > > Caption := ADOdataset1.FieldByname('zipcode').value;

> > > > SubItems.Add(ADOdataset1.FieldByname('sido').value);

> > > > SubItems.Add(ADOdataset1.FieldByname('gugun').value);

> > > > SubItems.Add(ADOdataset1.FieldByname('dong').value);

> > > > adodataset1.next;

> > > > end;

> > > > end;

> > > > end;

> > > > end;

> > > >
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 초보자
- •
- 2001.11.15 21:12
- 1 COMMENTS
- /
- 0 LIKES
preview 제대로 나오는데 미리보기 상단위 출력은 안나와요
- 지나가다
  
  •
  
  2001.11.16 01:53
  
  디데일 밴드에 아무 값도 없다면 변수 값을 초기화 하지 않아서 겠죠 화면상에 출력 될때 리포트의 코딩을...
- 초오오오~보
- •
- 2001.11.15 21:12
- 1 COMMENTS
- /
- 0 LIKES
간단한 질문 하나
- irookie
  
  •
  
  2001.11.15 22:47
  
  이 답변을 참고해 보세요. http://www.delphi.co.kr/cgi-bin/cwb/CrazyWWWBoard.cgi?mode=read&num=5336...
- 최유순
- •
- 2001.11.15 20:36
- 1 COMMENTS
- /
- 0 LIKES
String의 ASCII코드값
- 지나가다가..
  
  •
  
  2001.11.16 09:46
  
  간단한 예제입니다. procedure TForm1.FormCreate(Sender: TObject); var i : char; j : int...
- 처음
- 2001.11.15 20:08
- 0 COMMENTS
- /
- 0 LIKES
웹프로그램에 관한
- 궁금이
- •
- 2001.11.15 19:58
- 1 COMMENTS
- /
- 0 LIKES
네비게이터 안쓰고 디비를 연결하고 싶은데...
- irookie
  
  •
  
  2001.11.15 22:53
  
  TTable, TQuery의 속성을 이용하면 됩니다. (TQuery도 이항 동문.) table1.first; table1.next; tabl...
- 성필
- 2001.11.15 19:56
- 0 COMMENTS
- /
- 0 LIKES
DB 인쇄관련
- jung
- •
- 2001.11.15 19:09
- 1 COMMENTS
- /
- 0 LIKES
paradox로 만드 프로그램을 돌리려면....
- 나두초보
  
  •
  
  2001.11.15 20:02
  
  델파이에서 제공하는 인스톨 쉴드로 셋업프로그램을 만드시면 됩니다. 만드실때 BDE를 포함 시키면 되지...
- 최병련
- •
- 2001.11.15 18:58
- 1 COMMENTS
- /
- 0 LIKES
Windows XP에서 POracle8.1.5설치문제
- 최병련
  
  •
  
  2001.11.17 00:24
  
  최병련 wrote: > 설치하려면 스크래치경로를 작성하는데 문제가 있다고합니다. > > 해결방법좀 가르쳐 ...
- 궁금이
- •
- 2001.11.15 18:06
- 1 COMMENTS
- /
- 0 LIKES
클래스의 이벤트 등록하기
- sk3958
  
  •
  
  2001.11.15 20:02
  
  궁금이 wrote: > Class의 멤버 함수중 OnWork 같이 OnWork라고 되는것을 > event 창에서 더블클릭해서 생...
- 초보
- •
- 2001.11.15 17:50
- 1 COMMENTS
- /
- 0 LIKES
프로그램 실행중 잠깐 멈추려면....
- 이경문
  
  •
  
  2001.11.17 04:19
  
  초보 wrote: > 안녕하세요 > > 프로그램 실행중 배치 처리가 있어서 이걸(10초정도) 끝나구 다음 루틴...
- 훈
- 2001.11.15 08:10
- 0 COMMENTS
- /
- 0 LIKES
vsReport 형식의 Listview의 SubItems에 버튼을 생성할 수 있나요?
- 델피언
- •
- 2001.11.15 08:03
- 2 COMMENTS
- /
- 0 LIKES
정말 쉬운 질문이여서 죄송합니다.
- 조건일
  
  •
  
  2001.11.15 11:06
  
  포인터사용의 모호함이 있는 코드입니다... > function valueadded(v : integer) : integer; > begin ...
- 델피언
  
  •
  
  2001.11.15 17:41
  
  ..
- 촙오
- •
- 2001.11.15 07:56
- 1 COMMENTS
- /
- 0 LIKES
OnShow이벤트에서 루프를 돌리면.....
- 조건일
  
  •
  
  2001.11.15 11:12
  
  프로그램에 Blocking 이 걸려서 폼이 출력되지 안겠죠... 그런작업이 필요하시다면.. TTimer나 또는 TThre...
- Bulduki
- 2001.11.15 05:34
- 0 COMMENTS
- /
- 0 LIKES
TCP/IP Record형 송/수신에 대하여...
- 나초보
- 2001.11.15 05:31
- 0 COMMENTS
- /
- 0 LIKES
사운드 볼륨조정에 관해서.....
- 모르는이
- 2001.11.15 05:10
- 0 COMMENTS
- /
- 0 LIKES
ActiveX에서 Application.OnMessage 처리
- 바보나라
- 2001.11.15 05:02
- 0 COMMENTS
- /
- 0 LIKES
기본프린터의 용지변경 ?
- Jane
- •
- 2001.11.15 04:00
- 4 COMMENTS
- /
- 0 LIKES
우편번화 찾는 프로그램입니다. 그런데 한 번은 되는데.....

한 번은 되는데, 두번째는 안되는군요, 분명히 고쳐야 할 부분이 있는것 같은데 어딘지 모르겠어요, 우편번호 찾는 프로그램인데,바꿔야 될 부분이 어딜까요 알려주세요.............. procedure TZipcode.Button1Click(Sender: TObject);...
- 문현
  
  •
  
  2001.11.15 17:20
  
  Jane wrote: > 한 번은 되는데, 두번째는 안되는군요, 분명히 고쳐야 할 부분이 있는것 같은데 > 어딘지 ...
- Jane
  
  •
  
  2001.11.15 18:22
  
  jane wrote: 감사합니다. 오랜 만에 저의 질문에 답해 주시는 분이 계셔서 넘 좋네요... 그런데, 사실 저...
- 77
  
  •
  
  2001.11.17 02:40
  
  군디 ADOdataset1는 언제 쓰는건가여...-.-; 저는 ADOQuery1루 연결했는디 상관없는건가여? Jane wrote...
- Jane
  
  •
  
  2001.11.19 19:41
  
  예 잘못을 발견 했는데. 그건 패치를 안해서 그렇군요, 그건 프로그램 코딩상의 문제가 아니라 델파이5 ...
- 델초보
- •
- 2001.11.15 03:34
- 4 COMMENTS
- /
- 0 LIKES
FORMAT...
- 나두초보
  
  •
  
  2001.11.15 20:04
  
  이 방법도 있습니다. 제가 사용하는 방법이지만.. FORMATCURR('000',1) -> 001 델초보 wrote: > 1을 3자...
- 유레카
  
  •
  
  2001.11.16 19:36
  
  나두초보 wrote: > 이 방법도 있습니다. 제가 사용하는 방법이지만.. > FORMATCURR('000',1) -> 001 > ...
- 성필
  
  •
  
  2001.11.15 03:43
  
  델초보 wrote: > 1을 3자리로 표현하는데 무효의 0을 함께 > 1 => 001 로 표현하여 텍스트로 받으려고 ...
- 성준범
  
  •
  
  2001.12.01 01:10
  
  formatfloat('000',1);을 하면 에러가 납니다. Formatfloat라는 함수는 기본적으로 두번째 인자를 실수형...
- 바람인가
- •
- 2001.11.15 03:26
- 1 COMMENTS
- /
- 0 LIKES
DBGrid에서 레코드가 움직일때 이미지를 바구고 싶습니다..
- 문현
  
  •
  
  2001.11.15 17:30
  
  바람인가 wrote: > 안녕하세요... TImage에 레코드의 이미지를 출력했습니다..그런데 > 레코드가 이동할...

Jane
2001/11/15 04:00
Views392

Likes0

Comments4

Reports0
Tag List
수정
삭제
목록으로

←First Page

1489 1490 1491 1492 1493 1494 1495 1496 1497 1498

Last Page→