پشتیبان گیری از پایگاه داده

[elina1200]

من میخوام از دیتا بیس پشتیبان تهیه کنم و مسیر آن را کاربر مشخص کنه و بتوان این فایل را restore کرد. لطفا راهنمایی کنید، از کدوم کامپوننت ها و یا از چه روش دیگری می تونم استفاده کنم.
با تشکرات فراوان

[as_200340]

این میتونه کمکت کنه
http://www.4shared.com/file/1203877/dd468aa/backup.html

[yavari]

سلام
الینا جان ، یه سرچ تو همین سایت بکن پیدا نکردی پیغام بذار تا بذارم

یادمه اولین سوالم تو این سایت بود که یکی از دوستان نه گذاشت و نه ور داشت و گفت :
تاپیک تکراری ممنوع :گریه:

موفق باشی

[elina1200]

باور کنین همه جوره جستجو کردم.حتی همه صفحات رو نگاه کردم.ولی تو vbنتونستم پیدا کنم همش تو دلفی بود.من هم دلفی بلد نیستم.:گریه:

[yavari]

سلام ، الینا جان
این چیزیه که یکی از دوستان برام گذاشته بود و البته باهاش کلی راه افتادم
On Error GoTo errdes
Dim chk As String
CommonDialog1.CancelError = True
Dim FSys As New FileSystemObject
Dim thisFile As File
Dim fld As Folder
Set thisFile = FSys.GetFile(App.Path & "\myBank.mdb")

CommonDialog1.Filter = "date|*.mdb"
CommonDialog1.FileName = "2003"
CommonDialog1.DialogTitle = "Data backup"
CommonDialog1.ShowSave

Dim d As Integer
Dim ln As Integer
Dim SD As String
Dim filenm As String

d = InStrRev(CommonDialog1.FileName, "\")
SD = Mid(CommonDialog1.FileName, 1, d)
Set fld = FSys.CreateFolder(SD & "Backup")
ln = Len(CommonDialog1.FileName)
chk = ln - d
filenm = Right(CommonDialog1.FileName, chk)
thisFile.Copy fld.Path & "\" & filenm

Exit Sub
errdes:
If Err.Number = 32755 Then
Exit Sub
Else
MsgBox Err.Description, vbInformation, "Error"
End If

[yavari]

یادم رفت بگم

microsoft Scripting Runtime رو هم فعال کن

[as_200340]

من که سورس گذاشتم

[elina1200]

از راهنمایی هر دوی شما تشکر میکنم.واقعا به دادم رسیدین .مخصوصا این سورسی که گذاشتین.دقیقا همون چیزی که من میخواستم.امیدوارم که همیشه موفق باشید.

[as_200340]

قابل شما رو نداشت