: with DataMd.SQLmedia do begin
:    close;
:    sql.clear;
:    sql.add('update ADCESER set           ');
:    sql.add(' ad_modt = :p_modt,          ');
:    sql.add(' ad_prog = :p_prog           ');
:    sql.add('where ad_prnm = '''+prnm+''' ');
:    parambyname('p_modt').asstring := COPY(DateTimeToStr(FileDateToDateTime( FileAge('C:\Package\Program\'+prnm+'.exe'))),1,21);
:    parambyname('p_prog').size     := TmpStream.Size;
:    TmpStream.Position := 0;
:    parambyname('p_prog').LoadFromStream(TmpStream,ftBlob);
:    Execsql;
: end;

1.기존 데이터 삭제
2.입력
이런 순서로 하니까 데이터베이스 용량이 막 늘어 났어요..
그래서
무조건 데이터가 있으면
Update하고
parambyname('p_prog').size := TmpStream.Size;
요걸 막았습니다.

그랫더니 여러번해도 DB용량이 늘어 나지 않았습니다.
요 사이즈를 막아도 별 이상 없는것인가요?
누가 원인 분석좀 해 주세요..ㅋ   2008-01-17  16:55