안냐세여~ 거두절미하고..



도서관프로그램을 짜보고 있는데요. 간단히 요약하믄..

대출테이블(lend)의 한 레코드가 대출일,책번호,사용자 번호(userNo)가 들어간다고 하고,

사용자 테이블(user)은 사용자번호, 이름이 있다고 칩시다.



이제껏 책을 10권이상 빌려간 사람들의 이름을 뽑아낼려면.. 도대체 어떻게 하믄 되나요?



SELECT userNo,count(userNo) FROM lend GROUP BY userNo

이렇게 한다음 그 결과를 가지고(임시 테이블 temp 로 만든다치고.. 필드는 사용자번호no, 빌린회수count)

SELECT Name FROM user u, temp r WHERE u.no = r.no AND r.count > 10

이렇게 하믄되나요?

임시 테이블을 만들면 속도가 느리지 않을까요?

아님 SQL로 해결할 수 있나요? 아님 딴 방법이 있을까요?



고수님들의 관심어린 조언 부탁합니다.. 그럼..

권용만 wrote:

> 항상 도움을 주셔서 감사합니다.

> RunTime시에 Table 또는 Query에 필드를 넣으려 합니다.

> 각 필드마다 속성과 Size가 달라 어떻게 해야할지 .....

> (Calculated가 아닌 DataBase Table 에 있는 Field입니다.)

>

>



Table1.FieldDefs.Add를 써보세요...



Table1은 Close 상태여야 하고요.....

한승협 께서 말씀하시기를...

> 안냐세여~ 거두절미하고..

>

> 도서관프로그램을 짜보고 있는데요. 간단히 요약하믄..

> 대출테이블(lend)의 한 레코드가 대출일,책번호,사용자 번호(userNo)가 들어간다고 하고,

> 사용자 테이블(user)은 사용자번호, 이름이 있다고 칩시다.

>

> 이제껏 책을 10권이상 빌려간 사람들의 이름을 뽑아낼려면.. 도대체 어떻게 하믄 되나요?

>

> SELECT userNo,count(userNo) FROM lend GROUP BY userNo

> 이렇게 한다음 그 결과를 가지고(임시 테이블 temp 로 만든다치고.. 필드는 사용자번호no, 빌린회수count)

> SELECT Name FROM user u, temp r WHERE u.no = r.no AND r.count > 10

> 이렇게 하믄되나요?

> 임시 테이블을 만들면 속도가 느리지 않을까요?

> 아님 SQL로 해결할 수 있나요? 아님 딴 방법이 있을까요?

>

> 고수님들의 관심어린 조언 부탁합니다.. 그럼..

>



위에서 표현한 SQL을 조합하면 되겠군요.(서브쿼리)



SELECT Name FROM user

WHERE no in (

SELECT userNo FROM lend

GROUP BY userNo

HAVING COUNT(*) > 10

)

신인재 wrote:

> 권용만 wrote:

> > 항상 도움을 주셔서 감사합니다.

> > RunTime시에 Table 또는 Query에 필드를 넣으려 합니다.

> > 각 필드마다 속성과 Size가 달라 어떻게 해야할지 .....

> > (Calculated가 아닌 DataBase Table 에 있는 Field입니다.)

> >

> >

>

> Table1.FieldDefs.Add를 써보세요...

>

> Table1은 Close 상태여야 하고요.....

감사합니다.

해봤는데 잘않되는 군요.

Sample 부탁합니다.

이렇게 해보세요.

아래 예는 오라클에서입니다.



select count(*)

from lend le,usr us

where le.userNo = us.userNo





위에서 count 오라클에서 제공하는 함수입니다.

권용만 wrote:

> 신인재 wrote:

> > 권용만 wrote:

> > > 항상 도움을 주셔서 감사합니다.

> > > RunTime시에 Table 또는 Query에 필드를 넣으려 합니다.

> > > 각 필드마다 속성과 Size가 달라 어떻게 해야할지 .....

> > > (Calculated가 아닌 DataBase Table 에 있는 Field입니다.)

> > >

> > >

> >

> > Table1.FieldDefs.Add를 써보세요...

> >

> > Table1은 Close 상태여야 하고요.....

> 감사합니다.

> 해봤는데 잘않되는 군요.

> Sample 부탁합니다.



쩝 죄송합니다. 제가 문제를 잘못 이해 했군요....

아래와 같은 sql로 해당 테이블과 필드로 바꾸고

Query1.sql에 넣구 execsql로 실행해 보세요...쩝

되면 좋구 안되면 dbidorestruct가 하는 BDE api를

써야 되는데 쓰는 방법이 만만치 않군요...쩝



ALTER TABLE "customer.db"

ADD "customer.db"."code" CHAR(3)



음냐 영재님의 팁에서 가져온 것두 있네요... 아래의 코드를 참조하세요



동적으로 필드 생성하기...



procedure TForm1.Button2Click(Sender: TObject);

var

T: TStringField;

begin

Query1.Close;

T := TStringField.Create(Self);

T.FieldName := 'CO_NAME';

T.Name := Query1.Name + T.FieldName;

T.Index := Query1.FieldCount;

T.DataSet := Query1;

Query1.FieldDefs.UpDate;

Query1.Open;

end;



동적으로 생성한 필드 Free 시키기...



procedure TForm1.Button1Click(Sender: TObject);

var

TC: TComponent;

begin

TC := FindComponent('Query1CO_NAME');

if not (TC = nil) then begin

Query1.Close;

TC.Free;

Query1.Open;

end;

end;