Tùy chọn
Giúp mình tạo backup database theo ngày tháng chỉ định
- Giúp mình tạo backup database theo ngày tháng chỉ định
-
Giúp mình tạo backup database theo ngày tháng chỉ định
hugox03 > 04-02-14, 10:56 PM
Các bạn ơi có ai giúp dùm mình cách backup dataase theo ngày tháng chỉ định với !
Nội Dung : Mình muốn xuất ra 1 file lưu theo từng tháng ( tháng 1 /2013 ; tháng 2 /2013 ... ) và 1 file tổng hợp
Vd : tôi muốn xuất 1 fiel lưu tất có trong tháng 1 hoặc tháng 2 trong năm 2013 -
RE: Giúp mình tạo backup database theo ngày tháng chỉ định
morosumo > 05-02-14, 01:25 AM
Bạn tạo 1 module
Function BackupDUPHONG() As Boolean
Dim Source As String
Dim Target As String
Dim retval As Integer
Source = CurrentDb.Name
Target = "E:\LUUDUPHONG\luuthang"
Target = Target & Format(Date, "dd-mm") & " "
Target = Target & Format(Time, "hh-mm") & ".accdb"
' create the backup
retval = 0
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
retval = objFSO.CopyFile(Source, Target, True)
Set objFSO = Nothing
MsgBox "Sao luöu döõ lieäu thaønh coâng", , "Thoâng baùo"
End Function
--------
Target = "E:\LUUDUPHONG\luuthang"
bạn điều chỉnh lại cho phù hợp nha. -
RE: Giúp mình tạo backup database theo ngày tháng chỉ định
hugox03 > 05-02-14, 02:50 AM
Lỗi :
retval = objFSO.CopyFile(Source, Target, True)
-
RE: Giúp mình tạo backup database theo ngày tháng chỉ định
morosumo > 05-02-14, 11:34 PM
Bổ sung thư viện hàm vào: Microsoft Office 14.0 Object Library -
RE: Giúp mình tạo backup database theo ngày tháng chỉ định
tvn_hut > 18-02-18, 12:41 PM
(05-02-14, 01:25 AM)morosumo Đã viết: Bạn tạo 1 module
Function BackupDUPHONG() As Boolean
Dim Source As String
Dim Target As String
Dim retval As Integer
Source = CurrentDb.Name
Target = "E:\LUUDUPHONG\luuthang"
Target = Target & Format(Date, "dd-mm") & " "
Target = Target & Format(Time, "hh-mm") & ".accdb"
' create the backup
retval = 0
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
retval = objFSO.CopyFile(Source, Target, True)
Set objFSO = Nothing
MsgBox "Sao luöu döõ lieäu thaønh coâng", , "Thoâng baùo"
End Function
--------
Target = "E:\LUUDUPHONG\luuthang"
bạn điều chỉnh lại cho phù hợp nha.
nếu muốn back up cả frontend và backend thì sao bạn?