s.k711
سه شنبه 26 آذر 1387, 09:14 صبح
سلام دوستان.
ايا اين كدها درست است.
Backup and Restore از داخل برنامه.
Private Sub backing_up_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles backing_up.Click
'Cmd.CommandText = "Backup Database databasename to Disk='" & path & "'"
'Cmd.ExecuteNonQuery()
SaveFileDialog1.Title = "لطفا مسیر فایل پشتیبان را انتخاب کنید "
SaveFileDialog1.Filter = "DateBase Backup File(*.Bak)|*.Bak"
SaveFileDialog1.OverwritePrompt = True
SaveFileDialog1.RestoreDirectory = True
SaveFileDialog1.ShowHelp = False
SaveFileDialog1.ValidateNames = False
If ((Windows.Forms.DialogResult.Cancel) = (SaveFileDialog1.ShowDialog)) Then
Msgbox_Custom("شما هیچ پشتیبانی را برای برنامه تهیه نکرده اید.آیا مایل به تهیه پشتیبانی هستید؟ ", 2, 1, "هشدار تهیه پشتیبانی")
If Msgbox_Custom_Result = 1 Then
backing_up_Click(sender, e)
Else
Return
End If
Else
filen = SaveFileDialog1.FileName + ".Bak"
filep = System.Windows.Forms.Application.StartupPath + "\f.Bak"
FileCopy(filep, filen)
End If
End Sub
Private Sub restorig_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles restorig.Click
OpenFileDialog1.Title = " لطفا مسیر فایل پشتیبان را انتخاب کنید؟ "
OpenFileDialog1.Filter = "DateBase Backup File(*.Bak)|*.Bak"
'OpenFileDialog.OverwritePrompt = True
OpenFileDialog1.RestoreDirectory = True
OpenFileDialog1.ShowHelp = False
OpenFileDialog1.ValidateNames = False
OpenFileDialog1.FileName = "f"
If ((Windows.Forms.DialogResult.Cancel) = (OpenFileDialog1.ShowDialog)) Then
Msgbox_Custom("شما هیچ فایلی را برای بازیابی انتخاب نکردید.آیا مایل به بازیابی نسخه پشتیبان هستید؟ ", 2, 1, "هشدار بازیابی نسخه پشتیبان ")
If Msgbox_Custom_Result = 1 Then
restorig_Click(sender, e)
Else
OpenFileDialog1.Reset()
Return
End If
Else
filen = OpenFileDialog1.FileName
filep = System.Windows.Forms.Application.StartupPath + "\f"
FileCopy(filen, filep)
End If
End Sub
ممنون.
ايا اين كدها درست است.
Backup and Restore از داخل برنامه.
Private Sub backing_up_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles backing_up.Click
'Cmd.CommandText = "Backup Database databasename to Disk='" & path & "'"
'Cmd.ExecuteNonQuery()
SaveFileDialog1.Title = "لطفا مسیر فایل پشتیبان را انتخاب کنید "
SaveFileDialog1.Filter = "DateBase Backup File(*.Bak)|*.Bak"
SaveFileDialog1.OverwritePrompt = True
SaveFileDialog1.RestoreDirectory = True
SaveFileDialog1.ShowHelp = False
SaveFileDialog1.ValidateNames = False
If ((Windows.Forms.DialogResult.Cancel) = (SaveFileDialog1.ShowDialog)) Then
Msgbox_Custom("شما هیچ پشتیبانی را برای برنامه تهیه نکرده اید.آیا مایل به تهیه پشتیبانی هستید؟ ", 2, 1, "هشدار تهیه پشتیبانی")
If Msgbox_Custom_Result = 1 Then
backing_up_Click(sender, e)
Else
Return
End If
Else
filen = SaveFileDialog1.FileName + ".Bak"
filep = System.Windows.Forms.Application.StartupPath + "\f.Bak"
FileCopy(filep, filen)
End If
End Sub
Private Sub restorig_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles restorig.Click
OpenFileDialog1.Title = " لطفا مسیر فایل پشتیبان را انتخاب کنید؟ "
OpenFileDialog1.Filter = "DateBase Backup File(*.Bak)|*.Bak"
'OpenFileDialog.OverwritePrompt = True
OpenFileDialog1.RestoreDirectory = True
OpenFileDialog1.ShowHelp = False
OpenFileDialog1.ValidateNames = False
OpenFileDialog1.FileName = "f"
If ((Windows.Forms.DialogResult.Cancel) = (OpenFileDialog1.ShowDialog)) Then
Msgbox_Custom("شما هیچ فایلی را برای بازیابی انتخاب نکردید.آیا مایل به بازیابی نسخه پشتیبان هستید؟ ", 2, 1, "هشدار بازیابی نسخه پشتیبان ")
If Msgbox_Custom_Result = 1 Then
restorig_Click(sender, e)
Else
OpenFileDialog1.Reset()
Return
End If
Else
filen = OpenFileDialog1.FileName
filep = System.Windows.Forms.Application.StartupPath + "\f"
FileCopy(filen, filep)
End If
End Sub
ممنون.