엑서스에서 테이불 구조를 보지 못하게 암호를 설정해
놓은 MDB 파일을 최적화 하는 알고리즘 방법좀 알려 주세요
하단의 소스는 어느분이 올려놓은 것인데 최적화 하는 소스입니다
하지만 위 질문처럼 MDB 파일에 암호를 설정해 놓은면 암호가 틀리다는
에러 메시지가 나옴니다
물론 엑서스에서 암호를 설정하지 않으면 하단의 소스는 이상 없음
uses comobj;   <--상단에 추가할 부분

var ole:variant;
   S,App_Path : String;
begin
  App_Path := ExtractFilePath(ParamStr(0)) ;
  try
     ado.close;
     ole := CreateOleObject('DAO.DBEngine.36');
     s := App_Path + 'db1.mdb';
///////////////////////////////////////////////
// 엑서스에서 테이불 구조를 아무나 보지 못하게
// 로그인 암호를 설정할 경우
// 하단의 최적화 부분을 실행하기 전에 에러가 걸림
// 암호가 일치 하지 않음 이라는 에러 발생
///////////////////////////////////////////////
     ole.CompactDataBase(s, App_Path + 'db1.$$$');
     ole := unassigned;
     DeleteFile(App_Path + 'db1.mdb');
     RenameFile(App_Path + 'db1.$$$', App_Path + 'db1.mdb');
  except
  end;
  ado.Connection ;