aminaltavista
شنبه 07 اسفند 1389, 15:25 عصر
سلام
تو یه برنامه در قسمت ماژول از کد زیر استفاده کردند
[Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long]
و به وسیله کامپوننت common dialog این کد رو در یک دکمه نوشتن
[On Error GoTo l:
CommonDialog1.FileName = "db.Backup"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
A = CopyFile(App.Path & "\db.mdb", CommonDialog1.FileName, 0)
If A > 0 Then
MsgBox "موفقیت آمیز بود ", vbInformation, ""
Else
MsgBox " با مشکل مواجه شد ", vbExclamation, ""
End If
End If
l:]
که کار پشتیبان گیری رو میکنه
البته من از دیتاگرید برای پروژم استفاده کردم
حال اگر من بخوام از پایگاه داده ی خودم پشتیبان بگیرم به صورتی که زمانی که فایل پشتیبان رو بازیابی میکنم باید چه تغییراتی رو درون کد فوق انجام بدم؟
تو یه برنامه در قسمت ماژول از کد زیر استفاده کردند
[Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long]
و به وسیله کامپوننت common dialog این کد رو در یک دکمه نوشتن
[On Error GoTo l:
CommonDialog1.FileName = "db.Backup"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
A = CopyFile(App.Path & "\db.mdb", CommonDialog1.FileName, 0)
If A > 0 Then
MsgBox "موفقیت آمیز بود ", vbInformation, ""
Else
MsgBox " با مشکل مواجه شد ", vbExclamation, ""
End If
End If
l:]
که کار پشتیبان گیری رو میکنه
البته من از دیتاگرید برای پروژم استفاده کردم
حال اگر من بخوام از پایگاه داده ی خودم پشتیبان بگیرم به صورتی که زمانی که فایل پشتیبان رو بازیابی میکنم باید چه تغییراتی رو درون کد فوق انجام بدم؟