درخواست کامپوننت Backup/Restore برای Access Database

[mohsencom]

سلام
لطفا اگه کامپوننتی در مورد Backup و restore کردن دیتابیس "ACCESS" وجود داره به همراه یک خط کد که نوع استفادشو بگه،اینجا به اشتراک بذارین
ممنون از همه شما عزیزان

[mansourii]

منظور از بکاپ گیری یعنی چی؟

1- اطلاعات کل برنامه بکاپ بگیره؟ 2- از اطلاعات موجود و فیلدها بکاپ بگیره؟

مثال برای اولی:
مانند فایل اکسس و یا ورد با دوبار کلیک اطلاعات همان ضیه باز شود

مثال برای ومی:
در دیتا گیرید ویو اطلاعات را ذخیره میکنید و میخواهید همان اطلاعات را بازیابی کنید!



Imports System.IO
Public Class BackUpForm
Private Sub cmdpath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdpath.Click
Try
FBI.ShowNewFolderButton = True
FBI.ShowDialog()
Lblpath.Text = FBI.SelectedPath.ToString
If FBI.SelectedPath.ToString <> "" Then
cmdcreate.Enabled = True
cmdcreate.Focus()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub cmdcreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcreate.Click
Dim path As String = FBI.SelectedPath.ToString + "\"
Try
If File.Exists(System.Windows.Forms.Application.Start upPath + "\Bak.mdb") Then
File.Copy(System.Windows.Forms.Application.Startup Path + "\Bak.mdb", path + "\YaMahdi.hey", True)
MessageBox.Show(" ", " ", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show(" ", " ", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
FBI.ShowNewFolderButton = True
FBI.ShowDialog()
Lblres.Text = FBI.SelectedPath.ToString
If FBI.SelectedPath.ToString <> "" Then
cmdres.Enabled = True
cmdres.Focus()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub cmdres_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdres.Click
Dim path As String = FBI.SelectedPath.ToString + "\"
Try
If File.Exists(path + "\YaMahdi.hey") Then
File.Copy(path + "\YaMahdi.hey", System.Windows.Forms.Application.StartupPath + "\Bak.mdb", True)
MessageBox.Show(" ", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
System.Windows.Forms.Application.Restart()
Else
MessageBox.Show(" ", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End ClassPublic Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class

اگه متوجه نشدید بگید تا براتون یک مثال بزنم (فکر نمیکنم نیاز باشه - همه چیز کاملا روشنه)

روش عالی استفاده ازSQLDMO که به نظرم خیلی عالیه!:لبخندساده:

[mohsencom]

ممنون از لطف شما‎
منظورم همونی هست که گفتین.از اطلاعات داخل فیلدها بکاپ گرفته بشه تا بتونم اطلاعات و مقادیر فیلدها رو در صورت نیاز (مثلا اگر مقدار فیلدی یا جدولی به اشتباه پاک شود)بازیابی کنم :-?
در مورد قسمت دوم هم مثال خوبی گذاشتین،ممنونم،البته خودم SQL DB رو با کامپوننت فارسی AMBackup-Restore بکاپ میگیرم.فقط میخواستم بدونم همچنین کامپوننتی در مورد Access DB هم هست یا نه؟
با سپاس فراوان