• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Cách lưu (back up database) dữ liệu!

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Hướng Dẫn Cách lưu (back up database) dữ liệu!
• Cách lưu (back up database) dữ liệu!

• RE: Cách lưu (back up database) dữ liệu!

  maidinhdan > 07-08-16, 04:40 PM

  (06-08-16, 08:34 PM)thanhtruong Đã viết: ............
  
  Bậy giờ mình muốn thêm vào cái file vừa backup 1 pass thì phải làm sao.
  Mình đọc hết mấy bài trên rồi mà không hiểu code nào cho cái file bacup đó pass 123456
  
  Xin mọi người chỉ giáo

  
  Trả lời:
  
  Xem bài này : [Hàm] [Demo] Hàm đặt pass cho file *.mdb khác
  
  
  
  
  Lần sau nhớ sử dụng thanh tìm kiếm của diễn dàn nhé.
  
  Thân mến!

• RE: Cách lưu (back up database) dữ liệu!

  nguyenduykhanhpt > 17-02-17, 04:42 PM

  Chào bác MTMQ, mình copy cái bác về dùng, đưa vào làm menu (macro) của Ứng dụng mình viết thì nó lại không sao lưu được, mong bác chỉ giáo.
  Email: nguyenduykhanhpt@gmail.com.
  Chân thành cảm ơn bác.

• RE: Cách lưu (back up database) dữ liệu!

  MTNQ > 17-02-17, 06:02 PM

  Bạn sử dụng nó như thế nào?
  Làm 1 file Demo rồi đưa lên mình xem thử sao nó lại ko chạy nhé

• RE: Cách lưu (back up database) dữ liệu!

  xndt > 18-05-17, 05:53 PM

  (02-07-15, 09:25 PM)MTNQ Đã viết: Chào các bác!
  MTNQ xin tiếp tục về nén CSDL với  WinRar (Portable)
  
  

  Module nén và giài nén (Click to View)

  
  
  

  Mã:

  Option Compare Database
Option Explicit

#If VBA7 Then
   Private Declare PtrSafe Function OpenProcess Lib "kernel32" _
       (ByVal dwDesiredAccess As Long, _
       ByVal bInheritHandle As Long, _
       ByVal dwProcessId As Long) As Long
   
   Private Declare PtrSafe Function GetExitCodeProcess Lib "kernel32" _
       (ByVal hProcess As Long, _
       lpExitCode As Long) As Long
   
#Else
   Private Declare Function OpenProcess Lib "kernel32" _
       (ByVal dwDesiredAccess As Long, _
       ByVal bInheritHandle As Long, _
       ByVal dwProcessId As Long) As Long
   
   Private Declare Function GetExitCodeProcess Lib "kernel32" _
       (ByVal hProcess As Long, _
       lpExitCode As Long) As Long
   
#End If


Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STILL_ACTIVE = &H103

Private strWinRarPath As String
Private strErrLogFile As String

Public Function ShellAndWait(ByVal PathName As String, Optional WindowState)
   Dim hProg As Long
   Dim hProcess As Long, ExitCode As Long
   'fill in the missing parameter and execute the program
   If IsMissing(WindowState) Then WindowState = 1
   hProg = Shell(PathName, WindowState)
   'hProg is a "process ID under Win32. To get the process handle:
   hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, hProg)
   Do
       'populate Exitcode variable
       GetExitCodeProcess hProcess, ExitCode
       DoEvents
   Loop While ExitCode = STILL_ACTIVE
   
End Function

Public Function WinRarIt(strSourceFile As String, strFormat As String, Optional strMethod As String, _
       Optional strPassword As String, Optional ByRef strMSG As String) As Boolean

   On Error GoTo Err_handler
   
   Dim strFileNameRar As String
   Dim strCMDLine As String
   
   
   WinRarIt = False
   
   If CheckWinRar = False Then Exit Function
   
   strFileNameRar = Left$(strSourceFile, InStrRev(strSourceFile, ".")) & strFormat
   
   strCMDLine = Chr(34) & strWinRarPath & Chr(34) & " m -ep1 -ibck "  '-inul
   
   If strMethod <> "" Then strCMDLine = strCMDLine & strMethod
   
   If strPassword <> "" Then strCMDLine = strCMDLine & " -p" & strPassword
   
   strCMDLine = strCMDLine & " -ilog" & strErrLogFile & " " & Chr(34) & strFileNameRar _
                   & Chr(34) & " " & Chr(34) & strSourceFile & Chr(34)
   
   'Debug.Print strCMDLine
   Call ShellAndWait(strCMDLine, vbHide)
   strSourceFile = strFileNameRar
   
   If Dir(strSourceFile, vbNormal) <> "" Then
       WinRarIt = True
       strMSG = strMSG & vbCrLf & "-Nen CSDL thanh cong"
   Else
       strMSG = strMSG & vbCrLf & "-Nen CSDL That bai"
   End If
Err_Exit:
   Exit Function
Err_handler:
   If Err.Number <> 0 Then MsgBox Err.Description, vbExclamation, "WinRarIt Error: " & Err.Number
   strMSG = strMSG & vbCrLf & "-Nen CSDL That bai "
   Resume Err_Exit
End Function

Public Function UnRarIt(strWinRarFile As String, Optional strUnRarToFolder As String, _
       Optional strPassword As String, Optional ByRef strMSG As String) As Boolean

   On Error GoTo Err_handler
   
   Dim strFileNameRar As String
   Dim strCMDLine As String
   
   UnRarIt = False
   
   If CheckWinRar = False Then Exit Function
   
   If strUnRarToFolder = "" Then
       strUnRarToFolder = Left$(strWinRarFile, InStrRev(strWinRarFile, "\"))
   End If
   
   strCMDLine = Chr(34) & strWinRarPath & Chr(34) & " e -ibck "
   If strPassword <> "" Then strCMDLine = strCMDLine & "-p" & strPassword
   strCMDLine = strCMDLine & " -ilog" & strErrLogFile & " " & Chr(34) & strWinRarFile & Chr(34) _
                   & " " & Chr(34) & strUnRarToFolder & Chr(34)
   
   'Debug.Print strCMDLine
   Call ShellAndWait(strCMDLine, vbHide)
   
   If Dir(strUnRarToFolder) <> "" Then
       UnRarIt = True
       strMSG = strMSG & vbCrLf & "-Giai nen thanh cong"
   Else
       
       strMSG = strMSG & vbCrLf & "-Giai nen that bai"
   End If
   
Err_Exit:
   
   Exit Function
Err_handler:
  If Err.Number <> 0 Then MsgBox Err.Description, vbExclamation, "UnRarIt Error: " & Err.Number
  strMSG = strMSG & vbCrLf & "-Giai nen that bai "
   Resume Err_Exit
End Function

Function CheckWinRar() As Boolean
   strWinRarPath = CurrentProject.path & "\Tools\WinRar\WinRARPortable.exe"
   strErrLogFile = "ErrorLog.txt"
   CheckWinRar = True
   If Dir(strWinRarPath) = "" Then
       MsgBox "Khong tim thay WinRAR theo duong dan: " & vbCrLf & strWinRarPath
       CheckWinRar = False
   End If
End Function

  
  
  

  
  
  Tải ví dụ minh họa:
  BackupToRar (OrZip)

  
  Bác có thể làm thêm mục Lưu theo một lịch biểu tự chọn. VD: Trên form frmBacKup có thêm mục chọn giờ, phút để đến thời điểm đó nó tự  back up dữ liệu được không bác.

• RE: Cách lưu (back up database) dữ liệu!

  MTNQ > 29-05-17, 06:27 PM

  (18-05-17, 05:53 PM)xndt Đã viết: Bác có thể làm thêm mục Lưu theo một lịch biểu tự chọn. VD: Trên form frmBacKup có thêm mục chọn giờ, phút để đến thời điểm đó nó tự  back up dữ liệu được không bác.

  
  Của bạn đây:
  
  AutoBackupToRar(OrZip)_290517.rar
  
  Giờ phải đi... nhậu rùi 
  Có gì bàn sau nhé
  
  

• RE: Cách lưu (back up database) dữ liệu!

  MTNQ > 01-06-17, 09:00 PM

  -Up lại Demo
  Cập nhật  một số bẫy lỗi, trong đó có lỗi khá nghiêm trọng của hàm WinraIt (nén file): Khi đường dẫn tập tin cần nén = ""  thì toàn bộ các tập tin trong thư mục Documents bị nén lại với tên rar.rar 
  
  File đã cập nhật:
  AutoBackupToRar(OrZip) 010617.rar
  
  Nếu có thời gian MTNQ sẽ cập nhật thêm:
  - Tùy chọn ẩn cửa sổ Access, chỉ hiện form Backup 
  - Tùy chọn tự động thu nhỏ và hiện biểu tượng ở khay hệ thống 

• RE: Cách lưu (back up database) dữ liệu!

  MTNQ > 05-06-17, 02:05 AM

  Bản đã cập nhật:
  -Ẩn cửa sổ Access
  -Tự động thu nhỏ và hiện biểu tượng ở khay hệ thống
  -Tạo popup menu cho Icon ở khay hệ thống (Bấm chuột phải vào Icon để hiện menu, kích đúp chuột trái để hiện cửa sổ Backup )
  
  AutoBackupToRar(OrZip) 030617.rar
  
  Code thì cũng sưu tầm trên mạng thui. Từ trang nào quên mất, nhưng bản Demo nguyên gốc của nó đây:
   systray.zip 
  
  MTNQ bê hết code từ các module vào 1 class cho nó gọn nhưng chưa có thời gian để hoàn thiện class
  
  Có một vấn đề là không biết cách nào hiển thị Tiếng Việt cho cái popup menu. Thử dùng các hàm API có hỗ trợ Unicode thì ra toàn tiếng Trung Quốc 
  Bác nào biết thì hỗ trợ thêm phần này nhé!

• RE: Cách lưu (back up database) dữ liệu!

  toidjtjmtoi > 27-11-17, 11:35 AM

    Bạn nào chỉ mình backup file mà không cần mở file với . Tức là dù có dữ liệu cập nhật hay không thì nó vẫn cứ tạo 1 file backup vào 1 thời gian nhất định . Ý là mình muốn backup file end mà không cần mở nó lên

• RE: Cách lưu (back up database) dữ liệu!

  toidjtjmtoi > 29-11-17, 11:08 AM

  (27-11-17, 11:35 AM)toidjtjmtoi Đã viết:   Bạn nào chỉ mình backup file mà không cần mở file với . Tức là dù có dữ liệu cập nhật hay không thì nó vẫn cứ tạo 1 file backup vào 1 thời gian nhất định . Ý là mình muốn backup file end mà không cần mở nó lên

  Pro nào chỉ giúp mình với

• RE: Cách lưu (back up database) dữ liệu!

  ongke0711 > 29-11-17, 01:20 PM

  (27-11-17, 11:35 AM)toidjtjmtoi Đã viết:   Bạn nào chỉ mình backup file mà không cần mở file với . Tức là dù có dữ liệu cập nhật hay không thì nó vẫn cứ tạo 1 file backup vào 1 thời gian nhất định . Ý là mình muốn backup file end mà không cần mở nó lên

  
  Nếu bạn chỉ thuần túy muốn tạo 1 file backup cái database và không muốn mở ứng dụng Access lên thì phải dùng công cụ Task Scheduler của Windows kèm theo 1 file .bat để chạy lệnh Copy của DOS. Task Scheduler cho phép bạn tự động thực thi một nhiệm vụ nào đó theo thời gian chỉ định (Daily, Monthly ..., theo giờ chỉ định).
  
  - Nội dung file batch: Mở NotePad copy code bên dưới, đổi tên đường dẫn theo máy của bạn, lưu với tên tùy ý. Vd: BackupDB.bat
  —————————————————————————————————————————
  @echo off
  for /f "delims=" %%a in ('wmic OS Get localdatetime  ^| find "."') do set dt=%%a
  set YYYY=%dt:~0,4%
  set MM=%dt:~4,2%
  set DD=%dt:~6,2%
  set HH=%dt:~8,2%
  set Min=%dt:~10,2%
  set Sec=%dt:~12,2%
  
  set stamp=%YYYY%-%MM%-%DD%_%HH%-%Min%-%Sec%
  
  copy /Y “D:\Data\Demo.accdb" “D:\Data\BackupDB\Demo_bkup - %stamp%.accdb"
  ——————————————————————————————————————————————————
  
  - Sau đó vô link này để lệnh cho Task Scheduler của Windows thực thi file BackupDB.bat đã tạo ở trên.
    Link: http://www.thewindowsclub.com/how-to-sch...-windows-7
  
  - Bạn có thể test liền bằng cách chọn cái task trong danh sách Task vừa thiết lập, bấm chuột phải -> chọn Run.
• Bài trước Bài tiếp