Q&A
>박성훈님 감사드립다.
주신답변을 다시수정했습니다
그런데
key violation 에라메세지가 뜨더러고요
table1과 table2 에서 없는 레코드를 추가해야하는데
> while 문이 없이는 되거든요
> 그런데 while 안에서는 안되고있어요
>
> Table1.Active := true;
> Table1.First ;
>
> while (not Table1.Eof) do
> begin
>
> j:= Table1.fieldvalues['회원코드'] ;
> label9.caption:=j;
>
>
> if (not Table2.Locate('회원코드',j,[])) then
> begin
>
> Table2.Append ;
> Table2.fieldvalues['회원코드'] := Table1.Fieldvalues['회원코드'];
> Table2.fieldvalues['성명'] := Table1.fieldvalues['회원명'];
> Table2.fieldvalues['소속'] := Table1.fieldvalues['소속'];
>
> Table2.post;
> end ;
>
> Table1.next ;
>
> end;
>
- Table에관한 재질문입니다.
>박성훈님 감사드립다.
주신답변을 다시수정했습니다
그런데
key violation 에라메세지가 뜨더러고요
table1과 table2 에서 없는 레코드를 추가해야하는데
> while 문이 없이는 되거든요
> 그런데 while 안에서는 안되고있어요
>
> Table1.Active := true;
> Table1.First ;
>
> while (not Table1.Eof) do
> begin
>
> j:= Table1.fieldvalues['회원코드'] ;
> label9.caption:=j;
>
>
> if (not Table2.Locate('회원코드',j,[])) then
> begin
>
> Table2.Append ;
> Table2.fieldvalues['회원코드'] := Table1.Fieldvalues['회원코드'];
> Table2.fieldvalues['성명'] := Table1.fieldvalues['회원명'];
> Table2.fieldvalues['소속'] := Table1.fieldvalues['소속'];
>
> Table2.post;
> end ;
>
> Table1.next ;
>
> end;
>
2
COMMENTS
-
-
혹시 프라이머리키가 테이블1에 회원번호만이 아니여서 회원번호가 2개이상 존재하는게 아닌가 합니다. 물론 이는 테이블2가 프라이머리키가 하나라는 가정하지만요.
제가 비슷하게 프로그램을 돌려본 결과 별 이상 없는 코딩이네요. 테이블을 살펴보심이 좋을듯합니다.
본희 wrote:
>
> >박성훈님 감사드립다.
> 주신답변을 다시수정했습니다
> 그런데
> key violation 에라메세지가 뜨더러고요
>
> table1과 table2 에서 없는 레코드를 추가해야하는데
> > while 문이 없이는 되거든요
> > 그런데 while 안에서는 안되고있어요
> >
> > Table1.Active := true;
> > Table1.First ;
> >
> > while (not Table1.Eof) do
> > begin
> >
> > j:= Table1.fieldvalues['회원코드'] ;
> > label9.caption:=j;
> >
> >
> > if (not Table2.Locate('회원코드',j,[])) then
> > begin
> >
> > Table2.Append ;
> > Table2.fieldvalues['회원코드'] := Table1.Fieldvalues['회원코드'];
> > Table2.fieldvalues['성명'] := Table1.fieldvalues['회원명'];
> > Table2.fieldvalues['소속'] := Table1.fieldvalues['소속'];
> >
> > Table2.post;
>
>
> > end ;
> >
> > Table1.next ;
> >
> > end;
> >
>
(NOTICE) You must be logged in to comment on this post.
-
- SerVing
- 2000.02.18 18:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 신상철
- 2000.02.18 17:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 김병진
- 2000.02.18 17:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 미미..
- 2000.02.18 11:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초
- •
- 2000.02.18 10:23
- 1 COMMENTS
- /
- 0 LIKES
-
민성기•2000.02.18 11:47안녕하세요~ 민성기 입니다. 화면 키보드에 대한 구현 원리나 예제는 이미 오래전 델마당 세미나에서 공...
-
- 장일형
- 2000.02.18 10:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 답답한마음
- •
- 2000.02.18 09:50
- 2 COMMENTS
- /
- 0 LIKES
-
박성훈•2000.02.18 21:56답답한마음 wrote: > 안녕하세요? > 원화 표시는 어떻게 해야 하는지요? > > 흔히 이표시가 한글 자...
-
답답한마음•2000.02.18 10:16혹시 델파이가 영문버전이 아닌가 생각이 드는군요. 답답한마음 wrote: > 안녕하세요? > 원화 표시는 ...
-
- sonny
- 2000.02.18 08:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보올림
- 2000.02.18 07:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 키다리
- 2000.02.18 04:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초
- 2000.02.18 03:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 이희선
- •
- 2000.02.18 03:18
- 1 COMMENTS
- /
- 0 LIKES
-
오현수•2000.02.24 07:16이희선 wrote: > 안녕하세요. > 인터베이스 서버용은 서버용 프로그램을 인스톨해야만 하는지 아니면 인...
-
- 김양재
- •
- 2000.02.18 03:10
- 2 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.02.18 03:55김양재 wrote: > > 초보가 올립니다. > > web브라우져를 만들려고 하는데 > > webbrowser를 ...
-
김양재•2000.02.18 06:25조규춘 wrote: > 김양재 wrote: > > > > 초보가 올립니다. > > > > web브라우져를 만들려고 하는데...
-
- cell
- 2000.02.18 03:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 본희
- •
- 2000.02.18 02:46
- 2 COMMENTS
- /
- 0 LIKES
>박성훈님 감사드립다. 주신답변을 다시수정했습니다 그런데 key violation 에라메세지가 뜨더러고요 table1과 table2 에서 없는 레코드를 추가해야하는데 > while 문이 없이는 되거든요 > 그런데 while 안에서는 안되고있어요 > > Table1...-
박성훈•2000.02.18 05:58Table2 회원코드 필드가 Primary key로 설정되었다면 Key Violation을 체크하는 코드를 집어넣으셔야 될 ...
-
강인규•2000.02.18 04:08혹시 프라이머리키가 테이블1에 회원번호만이 아니여서 회원번호가 2개이상 존재하는게 아닌가 합니다. 물...
-
- 김홍섭
- 2000.02.18 02:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 최 소 영
- 2000.02.18 02:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 박성훈
- •
- 2000.02.18 02:02
- 2 COMMENTS
- /
- 0 LIKES
-
민성기•2000.02.18 11:50박성훈 wrote: > 컴포넌트를 클릭했을 때 그 컴포넌트의 주변에 9개의 조절점을 만들고 싶습니다. > (워...
-
유도삼•2000.02.18 07:53박성훈 wrote: > 컴포넌트를 클릭했을 때 그 컴포넌트의 주변에 9개의 조절점을 만들고 싶습니다. > (워...
-
- 민석이
- 2000.02.18 01:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 본희
- •
- 2000.02.18 01:05
- 1 COMMENTS
- /
- 0 LIKES
-
박성훈•2000.02.18 01:21본희 wrote: > 안녕하세요 > > table1과 table2 에서 없는 레코드를 추가해야하는데 > while 문이 없...
집어넣으셔야 될 것 같은데요.
아래의 소스에서 Table2.Locate 대신 Table2.FindKey([j])를 사용하시면 확실하게
Key 체크가 될 것 되걸 같군요.
with Table2 do
begin
if not FindKey([j]) then
//추가코드
else
ShowMessage('회원코드가 중복되었습니다!');
end;
본희 wrote:
>
> >박성훈님 감사드립다.
> 주신답변을 다시수정했습니다
> 그런데
> key violation 에라메세지가 뜨더러고요
>
> table1과 table2 에서 없는 레코드를 추가해야하는데
> > while 문이 없이는 되거든요
> > 그런데 while 안에서는 안되고있어요
> >
> > Table1.Active := true;
> > Table1.First ;
> >
> > while (not Table1.Eof) do
> > begin
> >
> > j:= Table1.fieldvalues['회원코드'] ;
> > label9.caption:=j;
> >
> >
> > if (not Table2.Locate('회원코드',j,[])) then
> > begin
> >
> > Table2.Append ;
> > Table2.fieldvalues['회원코드'] := Table1.Fieldvalues['회원코드'];
> > Table2.fieldvalues['성명'] := Table1.fieldvalues['회원명'];
> > Table2.fieldvalues['소속'] := Table1.fieldvalues['소속'];
> >
> > Table2.post;
>
>
> > end ;
> >
> > Table1.next ;
> >
> > end;
> >
>