03-09-21, 08:29 PM
(آخر تعديل لهذه المشاركة : 07-09-21, 10:15 PM {2} بواسطة خالد كامل1.)
السلام عليكم ورحمه الله
احبتى فى الله عندى قاعدتين بيانات اكسس mahel.accdb وwarsha.accdb اريد اخذ نسخه احتياطيه وهذا الكود الذى استخدمه
احبتى فى الله عندى قاعدتين بيانات اكسس mahel.accdb وwarsha.accdb اريد اخذ نسخه احتياطيه وهذا الكود الذى استخدمه
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SFD As New SaveFileDialog
SFD.Filter = "Microsost Access 2007|*.Accdb"
'==== لكتابه │ نضغط على alt+435
If SFD.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = SFD.FileName
Dim scrpath, destpath As String
scrpath = Application.StartupPath & "\DATA\MAHEL.accdb"
destpath = SFD.FileName
My.Computer.FileSystem.CopyFile(scrpath, destpath)
MsgBox("تم عمل نسخه احتياطيه للنظام")
Dim SFD_ As New SaveFileDialog
If SFD_.Filter = "Microsost Access 2007|*.Accdb" Then
TextBox1.Text = SFD_.FileName
Dim scrpath_, destpath_ As String
scrpath_ = Application.StartupPath & "\DATA\warsha.accdb"
destpath_ = "w" And SFD.FileName
My.Computer.FileSystem.CopyFile(scrpath_, destpath_)
MsgBox("تم عمل نسخه احتياطيه للنظام")
Application.Exit()
End If
End If
End Sub