BLOG main image

같은생각
From... Las

Home | Local log | Tag | Google RSS | Google analytics | Trace watch | Guestbook  
     - 잘 지내나요?
    List  

ADO에서 MDB파일을 압축하여 백업하고 다시 리스토어하는 방식

조회 : 119
나의 폴더 > 소프트웨어&TIP | 2007-01-16 (Tue) 16:39 http://blog.dreamwiz.com/unnet/5711756

ADO에서 MDB파일을 압축하여 백업하고 다시 리스토어하는 방식

strPath = App.Path & "\" & DB_Name
strPath1 = App.Path & "\" & DB_Name & "(" & Format(Now, "YYYYMMDD") & ")"
DBEngine.CompactDatabase strPath, strPath1, , , ""

StrPath 는 원본파일및 경로입니다.
StrPath 는 Compact후 생성되는 파일및 경로입니다.
만약 MDB에 암호가 있다면

DBEngine.CompactDatabase strPath, strPath1, , , ";pwd=" & DB_PW
뒤의 DB_PW에 암호를 넣으시면 됩니다.


" 데이타 백업
Private Sub mnuDBBackup_Click()
   Dim FName As String
   On Error GoTo DBPack
  
   clghlp.Filter = "DataBase File (*.Mdb)|*.mdb"
   clghlp.ShowSave
   FName = clghlp.FileName
   If FName = "" Then Exit Sub
   If MsgBox("현재 사용중인 데이터베이스가" & vbCrLf & vbCrLf & _
          "[ " & FName & " ]로 복사 됩니다." & vbCrLf & vbCrLf & _
          "계속 하시겠 습니까 ? ", vbQuestion + vbYesNo, "백업") = vbYes Then
       CDB.Close
       Me.MousePointer = 11
       DBEngine.Workspaces(0).Close
       Set CDB = Nothing
      
       On Error Resume Next
       Kill FName
       On Error GoTo DBPack

       DBEngine.CompactDatabase DBpath, FName, dbLangKorean
      
       Set CDB = DBEngine.Workspaces(0).OpenDatabase(DBpath, , False)
      
       Me.MousePointer = 0
       MsgBox "DataBase Backup이 완료 되었습니다.", vbInformation, "성공"
   End If
   Exit Sub
  
DBPack:
   Me.MousePointer = 0
   Set CDB = DBEngine.Workspaces(0).OpenDatabase(DBpath, , False)
   MsgBox "데이터베이스를 Backup하는데 문제가 있습니다." & vbCrLf & vbCrLf & _
          "올바른 종료후 다시 시도 하십시요 !", vbCritical, "실패"
End Sub

" 데이타 압축(Pack)
Private Sub mnuDBCompress_Click()
   On Error GoTo DBPack
   If MsgBox("이 작업은 데이터를 압축해 주고 있습니다."" & vbCrLf & vbCrLf & _
             "데이터의 양에 따라 시간이 많이 걸릴 수 도 있습니다." & vbCrLf &
vbCrLf & _
             "진행 하시겠 습니까 ?", vbInformation + vbYesNo, "DataBase
Comapct") = vbYes Then
      
       Me.MousePointer = 11
       CDB.Close
       DBEngine.Workspaces(0).Close
       Set CDB = Nothing
      
       DBEngine.CompactDatabase DBpath, App.Path & "\Tmp.mdb", dbLangKorean
      
       Kill DBpath
       Name App.Path & "\Tmp.mdb" As DBpath
      
       Set CDB = DBEngine.Workspaces(0).OpenDatabase(DBpath, , False)
      
       Me.MousePointer = 0
       MsgBox "DataBase 압축이 완료 되었습니다.", vbInformation, "압축완료"
   End If
   Exit Sub
  
DBPack:
   Me.MousePointer = 0
   Set CDB = DBEngine.Workspaces(0).OpenDatabase(DBpath, , False)
   MsgBox "데이터베이스를 압축하는데 문제가 있습니다." & vbCrLf & vbCrLf & _
          "올바른 종료후 다시 시도 하십시요 !", vbCritical, "실패"
  
End Sub

" 데이타 불러 오기
Private Sub mnuDBRestore_Click()
   Dim FName As String
   On Error GoTo DBPack
  
   clghlp.Filter = "DataBase File (*.Mdb)|*.mdb"
   clghlp.ShowOpen
   FName = clghlp.FileName
   If FName = "" Then Exit Sub
   If MsgBox("현재 사용중인 데이터베이스가" & vbCrLf & vbCrLf & _
          "[ " & FName & " ]로 바뀌게 됩니다.  백업전 내용은 삭제될 수 있습니
다." & vbCrLf & vbCrLf & _
          "계속 하시겠 습니까 ? ", vbQuestion + vbYesNo, "백업") = vbYes Then
       Me.MousePointer = 11
       CDB.Close
       DBEngine.Workspaces(0).Close
       Set CDB = Nothing
      
       Kill DBpath
       DBEngine.CompactDatabase FName, DBpath, dbLangKorean
      
       Set CDB = DBEngine.Workspaces(0).OpenDatabase(DBpath, , False)
      
       Me.MousePointer = 0
       MsgBox "DataBase 복구가 완료 되었습니다.", vbInformation, "성공"
   End If
   Exit Sub
  
DBPack:
   Me.MousePointer = 0
   Set CDB = DBEngine.Workspaces(0).OpenDatabase(DBpath, , False)
   MsgBox "데이터베이스를 복구하는데 문제가 있습니다." & vbCrLf & vbCrLf & _
          "올바른 종료후 다시 시도 하십시요 !", vbCritical, "실패"

Trackback : Comment

Trackback Address :: http://asperados.byus.net/home/board/tt/trackback/251

Name Password Home Secret Submit

prev page next page
1  ..17 18 19 20 21 22 23 24 25 .. 238 

Recent Entry

Recent Comment

Recent Trackback

Counter

Total : 242893 Today : 19 Yesterday : 62

Tag cloud

..., ......ing, ActiveX 삭제, ADO, ADO 성능 높이기, agp, Aids, Another World, apple cinema, asp, Aya Ueto, A형, Baldurs Gate, bard, BEO Player, Book, Bryan adams, CGV, Chante Moore, clie, compact, Compilation, Convert, DAO, dao에서 ADO로, DarkNamer, datetime, DB restore, DB 복구, db 테이블 정의서, dell 2007WFP, DreamFall: The Longest Journey, dvd, DVD 타이틀, ecotonoha, eve-online, event.keyCode 번호표, Facebook, favicon, favis, Faye Wong, FLASH, Fon, Fon Lafontenna, fon maps, FON 지향성 안테나, footnote, Fun, Game, Gamecube, game_ost, GETDATE, Google, Google analytics, Graphic card, hanami, HDTV 수신카드, heaven, HijackThis, I-RAM, i4R, IceWind Dale, IE ActiveX, IE Plug-in, IETOY, include, irc, ishihara satomi, isNull, Java, JavaScript, jazz, join update, j_drama, j_music, kav, kb917422, Kenny G, keyboard_Fun, k님, Launcher, LightBox2, Linked Server, linux, Lottery Music, M.Friends, Maki Horikita, Matsu Takako, mdb, MDB생성, MDB압축, Microsoft iPod, mp3, mp3 Media Player, MSN Live, MSN Messenger, Mssql, Myminicity, NEC, NeverwinterNights, o-game, ogame, one more time, Open Your Eyes, opencapture, openTTD, PageDefrag, palm, pc_game, pc_game_tip, PC업그레이드, Pda, Petit Launcher, picture, pinball, Pink Floyd, program, ps3, punkbuster, RAID, RDO, Remake, retrievr, Review, Search, settler, settler2, skt 포인트소멸, songlist, sony usm2gj, spread, SqL, Starry Night, sudoku, Symphonic, THE ERASER, The Father, The isley brothers, thecheat, theinquirer, Think, THOM YORKE, Time, tip, Tistory, tracewatch, Twitter, ubuntu, Uchiyama Rina, Ueto Aya, UltraMon, unplugged, us and them, util, ux50, vangard, vb, wallpaper, Web관련, Wii, WOW, xirc, xp install, yui, Yumiko Shaku, z22, Zoo 愛をください, Zune, クロサギ, ソニン, 上戸彩, 優香, 我願意, 王菲, 王靖雯, 白い影, 가상주민등록번호, 강릉, 건슈팅, 검색로봇, 고냥군, 괴물, 구입기, 그해 여름, 그해여름 OST, 기억상실, 기억속의 인물, 김연아, 꿈 속에 살아가다, 난수 발생, 날개셋, 날씨, 내캐릭, 내컴퓨터, 놀자, 다랭이, 다스베이더, 다케우치 유코, 당신은 사랑받기 위해 태어난 사람, 더워, 데이터가져오기, 독백, 동생, 듀얼모니터, 레지스트리 청소, 로또, 로코모션, 마마님, 머리속, 메타정보, 미완료작업물, 밀란쿤데라, 바탕화면 아이콘을 줄이자, 박x무당님, 범프키, 보안카드, 북다트, 블랙잭, 뿌리를찾아서, 사제, 삼돌이, 삼벌식, 삽질의 현장, 생각, 생활의 지혜, 설명, 성격, 세계 AIDS의날, 소닌, 스타더스트, 스티브잡스, 스팸댓글, 시스템, 신동우, 신승훈, 실시간알리미, 싸이월드 플러그인, 안나님, 언락, 업데이트, 연애편차치, 영화를 보다, 오소영, 옥션광고, 와라님, 외장하드, 우에토 아야, 웨군, 웹표준, 유용한 소스, 유카, 윤창군, 음악저작권법, 이동성, 이벤트당첨, 이사, 이승환 9집, 이자람, 인희, 일본연예인, 자바스크립트 코드 작성법, 자식창에서 부모창 함수 사용, 잘지내나요?, 잡담, 저장프로시저, 정규식, 젠장!!!, 족보, 즐거운인생, 지름, 천안전씨, 추억과 이야기들, 카툰, 칼리브레이션, 캡쳐, 컴터 다운, 컴터업, 케로로중사 중에서, 키트님, 태양의노래 OST, 테더스킨, 테터툴즈, 투명한얼음, 트랙백놀이, 트릭, 특성, 파일이름바꾸기, 파코즈, 편한사람, 플러그인, 하고싶어, 한국 지도 서비스, 한글입력기, 함수모음, 향수, 혈액형, 혼자놀기, 후회,