Backup

[روستا]

سلام دوستان عزیز.
من یه برنامه با vb6 و نوشتم که بانکش sql هستش.
می خوام تو ویژوال فرمان بدم که هر روز از بانک اطلاعاتی من تو sql یه backup بگیره
کسی می تونه کمکم کنه؟؟؟؟؟؟:لبخند:

[SeyedMoosavi]

شما می تونی بهش بگی یه کپی ازش بگیره با فرمان FileCopy به هرجایی که می خوای البته اگر منظورت از بک آپ گرفتن کپی باشه می تونی بهش بگی با هر بار بسته شدن برنامه یعنی تو اونت Form_Unload براش این کد رو تعریف کنی

[اوبالیت به بو]

تو سایت بود. اول از منو Project گزینه Refrens برو و بعد گزینه Microsoft Sciripting RunTime رو تیک بزن و بعد تویه یه دکمه یا هر چیزه دیگه این کد رو کپی کن.

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 & "\Access Bank\Gandom Bank.mdb")
CommonDialog1.Filter = "date|*.mdb"
CommonDialog1.FileName = "Gandom Bank - Backup"
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, "äÑã ÇÝÒÇÑ äÏã - Êåíå äÓÎå ÔÊíÈÇä"
End If

البته من تا حالا با SQL کار نکردم ولی فکر کنم کد بتونه کمکت کنه.