تهیه Backup و Restore از جداول

[bakhshi_909]

با سلام خدمت برنامه نویسان عزیز
یک فایل جهت پشتیبان و بازگردانی از جداول در اکسس 2003 براتون می گذارم ولی برنامه ای که من استفاده می کنم اکسس 2010 است و این فایل در اکسس2007 و 2010 کار نمی کند و در فرم بکاپ ارور می دهد. حال دوستان یه لطفی کنند در صورت امکان این فایل را اصلاح کنند. ممنون می شم. ضمناً در پیوست تصاویر ارور فایل را براتون گذاشتم.

[bakhshi_909]

يعني كسي نيست جواب ما را بده
اگه كسي بتونه اين فايل را اصلاح كنه زندگيمو مديونشم
اگه ميشه زودتر راهنمايي، چيزي يا كدي و يا اصلاح فايل را به من برسانيد. چون تا فردا بيشتر وقت ندارم.

[bita_ziba77]

با سلام
يك كليد در فرم خود قرار داده و كد زير را به آن تخصيص دهيد:


Private Sub Command0_Click()
Dim wrkDefault As Workspace
Dim dbsNew As Database
Dim AllTableDefs As TableDefs
Dim path As String
On Err GoTo hell
backpath = InputBox("مشخص نمودن مسير جهت نسخه پشتيبان", , "d:\newdb.mdb")

' Get default Workspace.

Set wrkDefault = DBEngine.Workspaces(0)
Set AllTableDefs = CurrentDb.TableDefs
' Make sure there isn't already a file with the name of
' the new database.

If Dir(backpath) <> "" Then Kill backpath

' Create a new encrypted database with the specified
' collating order.
Set dbsNew = wrkDefault.CreateDatabase(backpath, _
dbLangGeneral)

dbsNew.Close
For i = 0 To AllTableDefs.Count - 1
If (AllTableDefs(i).Attributes = 0) Or systemtables Then
DoCmd.TransferDatabase acExport, "Microsoft Access", backpath, acTable, AllTableDefs(i).Name, AllTableDefs(i).Name
End If
Next
MsgBox ("نسخه پشتيبان تهيه گرديد" & " " & backpath)

hell:
Exit Sub
End Sub

[bakhshi_909]

كاربر محترم bita_ziba77 (http://barnamenevis.org/member.php?88077-bita_ziba77) براي بازيابي پشتيبان چه كدي بايد به كار برد؟ لطفاً راهنمايي كنيد

[bita_ziba77]

با سلام
شما مي توانيد از روش زير استفاده نماييد:
command0 براي backup گيري و command1 براي restore كردن:

Option Compare Database
Dim CommondialogControl2 As Control
Dim backfile As New FileSystemObject
Dim source As String, desti As String
Dim x, y, z As Integer

Private Sub Command0_Click()
On Error GoTo err
source = Application.CurrentProject.FullName

x = Len(Application.CurrentProject.Name)
desti = Mid(Application.CurrentProject.Name, 1, x - 4) & Make_Date(Shamsi(Date)) & ".mdb"
With CommonDialog2
.DialogTitle = "Backup"
.Filter = "mdbfles (*.mdb)|*.mdb"
.FileName = desti
FileName = .FileName
check2:
If Dir(FileName) = "" Then
.FileName = FileName
.ShowSave
FileName = .FileName
backfile.CopyFile source, FileName, True
Else
GoTo check

check:
FileName = CurDir & .FileName
y = Len(FileName)
z = z + 1
FileName = Mid(FileName, 1, y - 4) & "(" & z & ")" & ".mdb"
GoTo check2

End If

MsgBox "Databas has been backedup in" & " " & FileName, vbInformation
End With
Exit Sub
err:
Beep
End Sub

Private Sub Command1_Click()
On Error GoTo err
desti = Application.CurrentProject.FullName
If MsgBox("are you sure", vbOKCancel, "restore") = vbOK Then
With CommonDialog2

.DialogTitle = "Restore"
.Filter = "Access Files(*.mdb)|*.mdb"
.ShowOpen
source = .FileName
End With
backfile.CopyFile source, desti, True
MsgBox "Databas has been restored", vbInformation
Else
Cancel = True
End If
Exit Sub
err:
Beep
End Sub


با تشكر

[bita_ziba77]

با سلام
لازم به توضيح است در كد بالا در انتهاي نام فايل Backup تاريخ شمسي روز جاري درح مي گردد.
لذا نياز است از ماژول هاي آقاي ازادي جهت درج تاريخ استفاده گردد.

با تشكر

[bakhshi_909]

ميشه يك نمونه بذاريد كه اين كد در اون بكار رفته باشه چون من اين كد را به كار بردم ولي ارور داد.

[bita_ziba77]

با سلام
متاسفانه به دليل محدوديت هاي اعمال شده بر روي كامپيوتر من امكان Upload فايل را ندارم.

[bakhshi_909]

دوستان عزيز كس ديگري نيست كار من را راه بياندازد.

[bakhshi_909]

اگه كسي بتونه در پاسخ شماره 5 كاربر bita_ziba77 (http://barnamenevis.org/member.php?88077-bita_ziba77) فايل نمونه بذاره ممنون ميشم

[bakhshi_909]

با سلام
متاسفانه به دليل محدوديت هاي اعمال شده بر روي كامپيوتر من امكان Upload فايل را ندارم.
ببخشيد مي خواستم بدونم در كدي كه شما وارد كرديد در قسمت file name و قسمتهاي ديگر بايد تغيير بدهم يا نه تا فرمم بدون ارور باز شود؟

[bakhshi_909]

یعنی کسی نیست جواب ما را بده. یعنی برنامه نویس تو این سایت وجود نداره که مشکل من را راه بیاندازه؟

[bakhshi_909]

چي شد كسي نميتونه جواب بده؟

[bemilove]

سلام دوستان ..اگر در برنامه اکسس ما جداول لینک شده باشد.چطور می توانیم از جداول لینک شده پشتیبان تهیه کنیم(اصل دیتا کپی گردد )؟ اگر امکان دارد نمونه بگذارید؟ممنون

[royasaz_bam]

سلام کد مربوط به بکآپ گیری از جئاول را وارد اکسس 2003 کردم ولی هنگام اجرا قسمت Dim wrkDefault As Workspaceارور میده آیا نیاز به رفرنس یا تنظیم خاصی بر روی 2003 میباشد یا نه