نحوه پشتیبان گیری از بانک اطلاعاتی

[Hybrid]

باسلام خدمت همه ی دوستان عزیز ....دوستان لطفا اگه امکان داره نحوا پشتیبان(back up) گرفتن از بانک اطلاعاتی(اکسس) رو برام توضیح بدین(با مثال) ... با تشکر..

[mohammadriano]

سلام
بانک access خودش پشتیبان هست شما از چیش میخوای پشتیبان بگیری؟
خب فرم back up طراحی کنید
command تهیه پشتیبان و بارگذاری پشتیبان در این فرم قرار دهید
در ادامه مسیر کاربر برای پشتیبان گرفتن را که دریافت کردید خیلی راحت بانک خود را به مسیر مورد نظر کاربر کپی کنید(البته اگر پسوند بانک رو هم عوض کنید فبها)
و در بارگذاری پشتیبان مسیر کاربر برای وارد کردن بک آپ را + نام فایل را به محل اصلی بانک کپی کنید یادتون نره که قبل از کپی بانک رو پاک کنید(البته اگر پسوند بانک رو عوض کرده باشید دوباره پسوند رو به حالت اولیه برگردونید
موفق باشید

[Hybrid]

با سلام خدمت همه ی دوستان عزیز ... کد های زیر رو نوشتم ولی با خطا روبه رو میشم ... لطف کنین بگین کد کجاش خطا داره..... با تشکر


Try
Dim strSource As String
strSource = Application.StartupPath.ToString()
Dim mdbName() As String = Directory.GetFiles(strSource, "AddressBookBank.accdb")
Dim strDestination As String
SaveFileDialog1.DefaultExt = "accdb"
SaveFileDialog1.FileName = mdbName(0)
SaveFileDialog1.Filter =
"Text files (*.accdb)|*.accdb|All files (*.*)|*.*"
SaveFileDialog1.FilterIndex = 1
SaveFileDialog1.OverwritePrompt = True
SaveFileDialog1.Title = "Save File Dialog"

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
strDestination = SaveFileDialog1.FileName
Dim fname As String = mdbName(0).Substring(strSource.Length + 1)
File.Copy(Path.Combine(strSource, fname), strDestination, True)
MsgBox("پشتیبانی انجام شد")
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try
78134

[sh2007]

متن خطا داره می گه که این بانک اطلاعاتی در دسترس نیست توی این مسیری که براش دادی

[Hybrid]

دوست عزیز خودم هم اینو می دونستم ولی میگم کجای کد اشکال داره که این پیغامو میگه....دوستان لطفا کمک کنین خیلی ضروریه...با تشکر

[sh2007]

Dim mdbName() As String = Directory.GetFiles(strSource, "AddressBookBank.accdb")

شما برنامتون رو از گت فایل دارید اجرا می کنید که این فایل وجود نداره AddressBookBank

[Hybrid]

سلام دوست عزیز ، بانک من تو پوشه Debug امه..... خوب من آدرس دیباگ رو گرفتم ....

[ali_habibi1384]

سلام دوست عزیز ، بانک من تو پوشه Debug امه..... خوب من آدرس دیباگ رو گرفتم ....
پس چرا در پيامي كه عكسش رو برامون گذاشتين نوشته MyDocument ؟؟؟ BreakPoint بذار معلوم ميشه

[Hybrid]

پس چرا در پيامي كه عكسش رو برامون گذاشتين نوشته MyDocument ؟؟؟ BreakPoint بذار معلوم ميشه

سلام دوست عزیز اینو خیلی وقت بود حل کرده بودم باز ممنون از حسن توجهت...



Sub BackUp()
Dim fbd As New FolderBrowserDialog
Try
If fbd.ShowDialog = DialogResult.OK Then
_PathToCreateRestore = fbd.SelectedPath + "\Db.ccw"
File.Copy(_CurrentDBPath, _PathToCreateRestore, True)
MessageBox.Show("پشتیبان گیری با موفقیت انجام شد", "پیام", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MessageBox.Show("خطا در پشتیبان گیری", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

موفق باشید./

[ali_habibi1384]

سلام دوست عزیز اینو خیلی وقت بود حل کرده بودم باز ممنون از حسن توجهت...



Sub BackUp()
Dim fbd As New FolderBrowserDialog
Try
If fbd.ShowDialog = DialogResult.OK Then
_PathToCreateRestore = fbd.SelectedPath + "\Db.ccw"
File.Copy(_CurrentDBPath, _PathToCreateRestore, True)
MessageBox.Show("پشتیبان گیری با موفقیت انجام شد", "پیام", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MessageBox.Show("خطا در پشتیبان گیری", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

موفق باشید./

راست ميگي حواسم به تاريخ تاپيك نبود