تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار بخصوص اخذ نسخه احتياطيه(تم الحل)مشكور اخوانى (waw والاخ asemshahen5)
#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
الرد
تم الشكر بواسطة:
#2
ارجو الرد فى اقرب فرصه
الرد
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله
الرمز الفاصل |
alt+124
وهو موجود مع مفتاح \ + shift
بعض اللوحات يكون شكله منقسم في وسطه ولكنه عند الكتابه سيكون |
الرد
تم الشكر بواسطة:
#4
(03-09-21, 10:52 PM)waw كتب : وعليكم السلام ورحمة الله
الرمز الفاصل |
alt+124
وهو موجود مع مفتاح \ + shift
بعض اللوحات يكون شكله منقسم في وسطه ولكنه عند الكتابه سيكون |

اخى مش دى المشكله المشكله ان بيحفظ قاعده البيانات الاولى والتانيه لا
الرد
تم الشكر بواسطة:
#5
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 , ابراهيم ايبو
#6
للاسف ادانى هذا الخطأ


الرد
تم الشكر بواسطة: ابراهيم ايبو
#7
ضع بدل : \\ علامة واحدة \ اعذرني لم انتبه فانا متعود على السي شارب .
و الله الموفق .
الرد
تم الشكر بواسطة: ابراهيم ايبو
#8
(05-09-21, 02:39 PM)asemshahen5 كتب : ضع بدل : \\ علامة واحدة \ اعذرني لم انتبه فانا متعود على السي شارب .
و الله الموفق .
الف شكر اخى الكريم بس ممكن تكتب الكود كامل مش ظبط معايا الكود
الرد
تم الشكر بواسطة:
#9
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
#10
مظبطتش برده معايا نفس رسالة الخطأ

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 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] استفسار عن دالة لحساب الارقام المتشابهة نيمو 2 54 منذ 5 ساعة مضت
آخر رد: نيمو
  سؤال بخصوص ميزان الباركود momani33 0 79 23-09-21, 11:06 PM
آخر رد: momani33
  سؤال بخصوص حفظ التاريخ في قاعدة البيانات من نوع mysql 3loosh44 2 142 19-09-21, 08:47 PM
آخر رد: 3loosh44
  [VB.NET] السلام عليكم عندي استفسار بخصوص الكلاسات AhmedRamadan 3 257 18-09-21, 08:02 PM
آخر رد: العطر الرايق
  استفسار بخصوص فيجوال ستوديو 2013 AhmedRamadan 3 168 17-09-21, 09:02 PM
آخر رد: العطر الرايق
  [VB.NET] استفسار بخصوص التقارير في .net Core 5 mrfenix93 1 120 17-09-21, 08:17 PM
آخر رد: asemshahen5
  استفسار بخصوص اختصار اسم الصنف في شاشة المبيعات ahmedbezia 4 187 17-09-21, 02:53 AM
آخر رد: ahmedbezia
Exclamation استفسار بخصوص مشروع عمل ختمة قرآنية بتوزيع الصفحات (لأصحاب الصدقات الجارية) elsayedhasan 10 606 11-09-21, 07:01 PM
آخر رد: dalas
  سؤال بخصوص اداة ribbon في vb.net 2019 mrfenix93 0 156 03-09-21, 01:21 AM
آخر رد: mrfenix93
  البار كود المنتج لا يقراء من جهاز الباركود [تم الحل] Rabeea Qbaha 1 3,706 24-08-21, 07:10 PM
آخر رد: أبووسم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 2 ) ضيف كريم