[خالد كامل1]

السلام عليكم ورحمه الله
احبتى فى الله عندى قاعدتين بيانات اكسس 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

[خالد كامل1]

ارجو الرد فى اقرب فرصه

[waw]

وعليكم السلام ورحمة الله
الرمز الفاصل |
alt+124
وهو موجود مع مفتاح \ + shift
بعض اللوحات يكون شكله منقسم في وسطه ولكنه عند الكتابه سيكون |

[خالد كامل1]

(03-09-21, 10:52 PM)waw كتب : وعليكم السلام ورحمة الله
الرمز الفاصل |
alt+124
وهو موجود مع مفتاح \ + shift
بعض اللوحات يكون شكله منقسم في وسطه ولكنه عند الكتابه سيكون |

اخى مش دى المشكله المشكله ان بيحفظ قاعده البيانات الاولى والتانيه لا

[asemshahen5]

PHP كود :

Dim fbd as new FolderBrowserDialog()
fbd.Description = "الرجاء تحديد المجلد للنسخ الاحتياطي"
If fbd.ShowDialog() = DialogResult.OK then
    System.IO.File.Copy(Application.StartupPath + "\\FirstDatabase.accdb", fbd.SelectedPath + "\\FirstDatabase.accdb");
    System.IO.File.Copy(Application.StartupPath + "\\FirstDatabase.accdb", fbd.SelectedPath + "\\SecandDatabase.accdb");
End If 


[خالد كامل1]

للاسف ادانى هذا الخطأ

[asemshahen5]

ضع بدل : \\ علامة واحدة \ اعذرني لم انتبه فانا متعود على السي شارب .
و الله الموفق .

[خالد كامل1]

(05-09-21, 02:39 PM)asemshahen5 كتب : ضع بدل : \\ علامة واحدة \ اعذرني لم انتبه فانا متعود على السي شارب .
و الله الموفق .

الف شكر اخى الكريم بس ممكن تكتب الكود كامل مش ظبط معايا الكود

[asemshahen5]

PHP كود :

Dim fbd as new FolderBrowserDialog()
fbd.Description = "الرجاء تحديد المجلد للنسخ الاحتياطي"
If fbd.ShowDialog() = DialogResult.OK then
    System.IO.File.Copy(Application.StartupPath + "\FirstDatabase.accdb", fbd.SelectedPath + "\FirstDatabase.accdb");
    System.IO.File.Copy(Application.StartupPath + "\FirstDatabase.accdb", fbd.SelectedPath + "\SecandDatabase.accdb");
End If 


[خالد كامل1]

مظبطتش برده معايا نفس رسالة الخطأ

PHP كود :

Dim fbd as new FolderBrowserDialog()
fbd.Description = "الرجاء تحديد المجلد للنسخ الاحتياطي"
If fbd.ShowDialog() = DialogResult.OK then
    System.IO.File.Copy(Application.StartupPath + "\FirstDatabase.accdb", fbd.SelectedPath + "\FirstDatabase.accdb");
    System.IO.File.Copy(Application.StartupPath + "\FirstDatabase.accdb", fbd.SelectedPath + "\SecandDatabase.accdb");
End If