+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : مساعدة بعمل باك اب وريستور (/showthread.php?tid=14229)
مساعدة بعمل باك اب وريستور - abdulla2 - 25-12-15
عندي قاعدة بيانات في الديباج اريد عند الصغط على زر backup يفتح لي ديالوج فقط مرة واحدة احدد فيها مكان حفظ الملف
وليكن مثلا بقرص d داخل مجلد اسمة ِAll-Files يعني المسار التالي D:\ All-Files
(ملاحظة الديالوج تفتح مرة واحدة فقط) وبعدها يتم الحفظ بمجرد عمل كوبي في المكان المجدد اول مرة ويكون حفظ الملف داخل مجلد بالتاريخ والوقت
حتى يتم حفظ اكثر من نسخة للملف يعني يكون المجلد مثل هذة الصيغة وبداخلة قاعدة البيانات (DB_M)
D:\All-Files\25\12\2015_10:45\DB_M.accdb
D:\All-Files\25\12\2015_12:12\DB_M.accdb
D:\All-Files\16\11\2015_6:45\DB_M.accdb
وعند الإستعادة يفتح ديالوج تحدد القاعدة بالتاريخ والوقت المطلوب وعند النقر عليها يستعيد مباشرة ..
RE: مساعدة بعمل باك اب وريستور - boudyonline - 25-12-15
اخي الفاضل :
هذا مثال بسيط ولكن بطريقة مختلفة ... حيث يتم تسجيل تاريخ ووقت الملف كجزء من اسمه وليس كمجلد جديد
ولكن قد تعجبك الفكرة
كود :
Try
'System.IO.File.Copy("enrollment.mdb", String.Format("D:\{0:yyyyMMdd}.mdb", Date.Today))
Using openDialog As New OpenFileDialog()
openDialog.CheckFileExists = True
openDialog.CheckPathExists = True
openDialog.Filter = "Microsoft Access Database (*.mdb)|*.mdb"
Using saveDialog As New SaveFileDialog()
saveDialog.CheckFileExists = False
saveDialog.CheckPathExists = True
saveDialog.FileName = Date.Now.ToString("yyyyMMdd") & ".mdb"
saveDialog.Filter = "Microsoft Access Database (*.mdb)|*.mdb"
If openDialog.ShowDialog() = Windows.Forms.DialogResult.OK AndAlso saveDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
If File.Exists(openDialog.FileName) Then File.Copy(openDialog.SafeFileName, saveDialog.FileName)
End If
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
End TryRE: مساعدة بعمل باك اب وريستور - احمداحمداحمد6 - 25-12-15
اضف كائن dialog
من خلاله تستطيع الخزن...
RE: مساعدة بعمل باك اب وريستور - سعود - 26-12-15
وهذي طريقة قد تجد ماتريد بها
الملفات المرفقة
.zip OptionalThings.zip (الحجم : 56.7 ك ب / التحميلات : 103)