بك آپ گرفتن و بازيابي فايل بك آپ گرفته شده

[Rezapcclick]

سلام
داداش كي مي تونه يه سورسي از بك آپ گرفتن و بازيابي فايل بك آپ گرفته شده را برام بزاره
خيلي لازمش دارم
ممنون مرسي

[Babak.Hassanpour]

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long




یک کامان دایالوگ اضافه کنید.در روال کلیک دکمه انتخاب فایل بنویسید:


cd.DialogTitle = "Select Backup File Name and Path "
cd.Filter = "BSV Files (*.mdb)|*.mdb"
' Specify default filter.
cd.FilterIndex = 2
cd.ShowSave
TxtBackupPath = cd.FileName


اینها را هم توی فرم :




Sub Copy()
Dim strSource As String
Dim strTarget As String
Dim lngRetVal As Long
strSource = App.Path & "\DB.mdb"
strTarget = TxtBackupPath
'// Copy File
lngRetVal = CopyFile(Trim$(strSource), Trim(strTarget), False)
If lngRetVal Then
MsgBox "Backup Maked"
Else
MsgBox "Error in Backup Proccess"
End If
End Sub




Sub Restore()
Dim strSource As String
Dim strTarget As String
Dim lngRetVal As Long
strSource = TxtBackupPath
strTarget = App.Path & "\DB.mdb"
'// Copy File
lngRetVal = CopyFile(Trim$(strSource), Trim(strTarget), False)
If lngRetVal Then
MsgBox "Backup Restored"
Else
MsgBox "Error in Restoring Proccess"
End If
End Sub


دو دکمه برای بکاپ و ریستور ایجاد کنید و در روال رویداد کلیک آنها بنویسید:
برای بکاپ:


Call Copy


برای ریستور:


Call Restore

[azv_2008]

یک کامان دایالوگ اضافه کنید.در روال کلیک دکمه انتخاب فایل بنویسید:


اينو دوستان يه ذره توضيح دهند ؟

[Babak.Hassanpour]

http://barnamenevis.org/forum/attachment.php?attachmentid=31565&stc=1&d=1243932267

[Babak.Hassanpour]

اصلا اینم پروژه اش.برید صفا کنید

[alizanganeh]

آقا این پروژه ای که دادید برای پشتیبان گیری و بازگردانی آن در بانک اکسز هستش
میشه کد یا پروژه برای sql 2000 رو هم بدید

ممنون