Table1에서 Table2로 저장

Table1의 필드 : A, B, C

Table2의 필드 : D, E, F



with qrySource do

begin

Close;

SQL.Clear;

SQL.Add( 'INSERT INTO TABLE2' );

SQL.Add( '( D, E, F )' );

SQL.Add( 'SELECT A, B, C' );

SQL.Add( 'FROM TABLE1' );

ExecSQL;

end;



이렇게 하면 될거 같구요..



삭제는...



with qrySource do

begin

Close;

SQL.Clear;

SQL.Add( 'DELETE FROM TABLE1' );

ExecSQL;

end;



하시면 될 듯 합니다..



도움이 되셨길 바랍니다...행복하세요..





김순하 wrote:

> 테이블1에.. 품목을 저장했다가..

> 이 테이블에 있는 모든 데이터를 테이블2에.. 저장하고..

> 이 테이블 1의 내용을 전체 삭제하고..

> 이러한 것을 계속 되풀이 하고 싶은데요..

> 테이블1의 데이터를 테이블2로 옮기는 데서.. 자꾸.. 무한루프에...빠지네요..

> 어떻게.. 해야 하는지.. 소스 좀..올려주세요..

>

> 그리고.. 테이블1의.. 데이터 전체 삭제는 어떻게 하는지도.. 좀 갈켜주세요..

> 초보라... 너무 힘들군요..

> 부탁합니다..

고맙군요..

그런데.. 쿼리 컴포넌트를 사용하지 않고 테이블 컴포넌트를 사용했는데

테이블 삭제도 같은가요?..

워낙 초보라~~



>

>

> Table1에서 Table2로 저장

> Table1의 필드 : A, B, C

> Table2의 필드 : D, E, F

>

> with qrySource do

> begin

> Close;

> SQL.Clear;

> SQL.Add( 'INSERT INTO TABLE2' );

> SQL.Add( '( D, E, F )' );

> SQL.Add( 'SELECT A, B, C' );

> SQL.Add( 'FROM TABLE1' );

> ExecSQL;

> end;

>

> 이렇게 하면 될거 같구요..

>

> 삭제는...

>

> with qrySource do

> begin

> Close;

> SQL.Clear;

> SQL.Add( 'DELETE FROM TABLE1' );

> ExecSQL;

> end;

>

> 하시면 될 듯 합니다..

>

> 도움이 되셨길 바랍니다...행복하세요..

>

>

> 김순하 wrote:

> > 테이블1에.. 품목을 저장했다가..

> > 이 테이블에 있는 모든 데이터를 테이블2에.. 저장하고..

> > 이 테이블 1의 내용을 전체 삭제하고..

> > 이러한 것을 계속 되풀이 하고 싶은데요..

> > 테이블1의 데이터를 테이블2로 옮기는 데서.. 자꾸.. 무한루프에...빠지네요..

> > 어떻게.. 해야 하는지.. 소스 좀..올려주세요..

> >

> > 그리고.. 테이블1의.. 데이터 전체 삭제는 어떻게 하는지도.. 좀 갈켜주세요..

> > 초보라... 너무 힘들군요..

> > 부탁합니다..

Query를 사용하지 않고 Table를 쓰신다니 조금은 유감이군요.

하지만 Table로 자료를 몽땅 옮기는 방법과 삭제 방법은 다음과 같습니다.

1. A-Table ---> B-Table

먼저 3개의 콤포가 필요합니다.

Table 2개 , BatchMove 1개가 필요합니다.



With BatchMove1 do Begin

Source := Table1;

Destination := Table2;

Mode := batAppendUpdate; //4가지의 Mod 설정이 있는데 Help를 보시면 나옵니다.

Execute;

End;

2. A-Table 데이타 몽땅삭제

With A_table do Begin

Active := False;

DatabaseName := 'Delphi_Demos'; //Alias

TableName := 'CustInfo'; //Table Name

TableType := ttParadox;

EmptyTable;

End;