پشتیبان گیری از پروژه

[aminaltavista]

سلام
یه پروژه بانک اطلاعاتی نوشتم از دستورات sql استفاده نکردم فقط می خوام مثلا وقتی اطلاعات داخل پایگاه کردم
از اون اطلاعات پشتیبان بگیرم ویه محل اون رو ذخیره کنم تا اگه یه موقع اطلاعات حذف شد بتونم برش گردونم
یکی از دوستان سورسش رو برام گذاشت که جواب کارم رو نداد ممنون میشم اگه سورس وتوضیحاتش رو برام بگذارید.:تشویق:

[gohari244]

قبل از هرچیز در قسمت جنرال فرم تابع copyfile رو فرا می خونی
بعد هم یک فایل نمونه گذاشتم که خیلی هم راحت و زیبا این کار رو واست انجام می ده
http://up.iranblog.com/images/m096fjtbqndh5whks92e.rar

[xman_dj]

پایگاه داده که استفاده کردی چیه؟
sql
Access
or ....?
به صورت فایل ذخیره کردی فایل پایگاه داده رو؟
اگه فایله کافیه یک کپی بگیری ازش و در یک جای دیگه ذخیره کنی
این برای کپی گرفتن دیتا بیس هست دیگه به صورت پروژه آپلود نکردم فقط سورس هست


Private Sub CmdSrach_Click()
On Error GoTo E_R
If Text1.Text = "" Then MsgBox "áØÝÇ ãÓíÑ Êåíå äÓÎå ÔÊíÈÇä ÑÇ æÇÑÏ ˜äíÏ", vbExclamation + vbMsgBoxRtlReading, "ÎØÇ": Exit Sub


CopyFileAny App.Path & "\Database.mdb", Text1.Text

MsgBox "äÓÎå ÔÊíÈÇä Êåíå ÑÏíÏ", vbInformation + vbMsgBoxRtlReading

Exit Sub
E_R:
MsgBox Err.Description, vbMsgBoxRtlReading + vbMsgBoxRtlReading, "Error"
End Sub



Private Sub lvButtons_H1_Click()
On Error GoTo E_R
With Dlg
.CancelError = False
.Filter = "Database Backup |*.dbb"
.ShowSave
If .FileName <> "" Then Text1.Text = .FileName
End With
Exit Sub
E_R:
MsgBox Err.Description, vbExclamation + vbMsgBoxRtlReading, "Error"

End Sub

Private Sub lvButtons_H2_Click()

On Error GoTo E_R

With Dlg

.CancelError = False
.Filter = "Database Backup |*.dbb"
.ShowOpen

If .FileName <> "" Then Text2.Text = .FileName

End With

Exit Sub
E_R:
MsgBox Err.Description, vbExclamation + vbMsgBoxRtlReading, "Error"

End Sub

Private Sub lvButtons_H3_Click()

On Error GoTo E_R
Dim StrConn As String
StrConn = Conn.ConnectionString

Conn.Close
DoEvents

Kill App.Path & "\Database.mdb"
CopyFileAny Text2.Text, App.Path & "\Database.mdb"

Conn.Open StrConn
MsgBox "ÈÇÒíÇÈí ÇØáÇÚÇÊ ÇäÌÇã ÔÏ", vbInformation + vbMsgBoxRtlReading
Unload Me

Exit Sub
E_R:
MsgBox Err.Description, vbExclamation + vbMsgBoxRtlReading

End Sub

[aminaltavista]

دوست عزيز فايلت:ناراحت: خراب بود دانلود كردم ولي هنگام باز كردن فايل با مشكل روبه رو شدم

[aminaltavista]

دوست عزيز يه واقعا دستت دردنكنه ولي يه خورده سورس زياده ومن سر در نمي ارم ميشه بيشتر برام توضيح بدي
:کف:

[gohari244]

فایل درستش کردم می تونی دانلودش کنی