|
안녕하세요.. withFish임다..
에궁.. MDB루.. 간단한 프로그램하나 만들려구 하는데...
이거 참 델파이에서는 mdbd을 Packing도 하구.. 복구두 하구.. 되는데..
c빌더에서는 어떻게 해야 할지.. ^^a ;;;
참고루.. 제가 찾은 모듈을 올립니다.. 이거 어떻게 하면..
C빌더에서 사용하져??
특히, OLEVariant type하구,
GetDAO_Object 하구,
CreateOleObject( 'DAO.DBEngine.30') 하구..
db.CompactDataBase(mdbFIleName,tempFile) 하구..
db.RepairDataBase( Filenameedit1.Text ) 하구...
애들을 어떻게 사용해야 할지. 모르것네여... ^^;;
아시는 고수님들은 부디... ^^ ;;
*********************************************************************
Compressing an Access database
--------------------------------------------------
Function Compactmdb(mdbFileName:String): Boolean;
var db : OLEVariant;
tempFile : String;
begin
result := true;
try
screen.cursor := crSQLWait ;
db := GetDAO_Object ; // GET THE DATABASE OBJECT
result := false;
try
// CREATE A TEMPORARY FILE
tempFile := ExtractFilePath (mdbFilename) + '\msaTemp.mdb';
// COMPACT THE FILE INTO THE TEMPORARY FILE
db.CompactDataBase(mdbFIleName,tempFile);
// DELETE THE OLD FILE
DeleteFile(mdbFileName);
// RENAME THE NEW FILE
RenameFile (tempFile,mdbFileName);
Result := true;
Except on EOLEexception do
Result := false;
end
finally
db := Unassigned ;
screen.cursor := crDefault ;
end;
end;
*********************************************************************
|