Q&A
- table1과 table2 를 검색하는 데요
안녕하세요
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;
Table2.Active := false;
end ;
Table2.post ;
end;
부탁드립니다....
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;
Table2.Active := false;
end ;
Table2.post ;
end;
부탁드립니다....
1
COMMENTS
(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
-
박성훈•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
안녕하세요 table1과 table2 에서 없는 레코드를 추가해야하는데 while 문이 없이는 되거든요 그런데 while 안에서는 안되고있어요 Table1.Active := true; Table1.First ; while (not Table1.Eof) do begin j:= Table1.fieldvalues['회원...-
박성훈•2000.02.18 01:21본희 wrote: > 안녕하세요 > > table1과 table2 에서 없는 레코드를 추가해야하는데 > while 문이 없...
> 안녕하세요
>
> 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;
> Table2.Active := false;
{여기서 Table2의 Active를 죽이면 뒤에 오는 다른 것은 저장할 수 없을 것 같은데요.
Table2.Active를 지우시거나 주석처리해보시죠
}
> end ;
>
> Table2.post ; //이 코드는 안넣으셔도 될 것 같은데요.
> //요기서 에러가 나기 쉽겠는데요.
> end;
>
>
> 부탁드립니다....
>
>