[emamtron2014]

السلام عليكم
بارك الله فيكم جميعا علي هذا المجهود الرائع وجعله الله في ميزان حسناتكم جميعا ان شاء الله

اريد مساعدتك في كود لعمل نسخه تجريبيه
بعد البحث ومساعدتكم فقد تمكنت من كتابة كود فيتم عمل نسخه احتياطيه  او  backup  من قاعدة البيانات للبرنامج
هو عند الضغط علي زر معين يظهر  SaveFileDialog    ثم يتم اختيار مكان الحفظ
الكود شغال تمام 
ولكن هل توجد طريقه  لعمد عرض ال   SaveFileDialog    بحيث عند الضغط علي الزر تتم عملية الانشاء مباشرة

وايضا هل من طريقه تجعل قاعدة البيانات يتم حفظها بتاريخ اليوم 


ها هو الكود المستخدم
رجاء من سيادتكم التعديل عليه ان امكن

كود :

SaveFileDialog1.Filter = "Access DB | *.accdb"

               If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                   Dim sourcePath, DistPath As String
                   sourcePath = Application.StartupPath & "\Data.accdb"
                   DistPath = SaveFileDialog1.FileName
                   My.Computer.FileSystem.CopyFile(sourcePath, DistPath)
                   MsgBox("تم عمل نسخه إحتياطيه من البرنامج")
               Else
                   MsgBox("لم يتم عمل نسخه إحتياطيه")
                   End If

وجزاكم الله خير الجزاء

[عبدالله الدوسري]

كود :

SaveFileDialog1.Filter = "Access DB | *.accdb"

             
                  Dim sourcePath, DistPath As String
                  sourcePath = Application.StartupPath & "\Data.accdb"
                  DistPath = "هنا اكتب مسار الحفظ لأنه سيكون ثابت ولا يمكن للمستخدم تحديدة"
                  My.Computer.FileSystem.CopyFile(sourcePath, DistPath)
                  MsgBox("تم عمل نسخه إحتياطيه من البرنامج")

ضع الكود داخل مصيدة الأخطاء تحسباً لأي خطأ غير متوقع

كود :

Try

ضع الكود هنا

Catch ex As Exception
   MsgBox("حدث خطأ غير متوقع" & vbCrLf & ex.Message)
End Try

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

إضافة لما تقدّم به أستاذنا القدير " عبد الله الدّوسري "

جزاه الله خير الجزاء و زادها بموازين حسناته إن شاء الله

أخي الكريم .. هذا مثال إقتطفته من مشروعي الخاص

لا تهتم بالأزرار الثانويّة لأنّي إنشغلت بال SQL و لم أكملها .. ما يهمّك هو فقط الزر المشار إليه بالسّهم الأحمر

قمت بعمل قاعدة البيانات باسمي حتي يسهل عليك تغيير اسم قاعدة بياناتك بالكود

مكان الحفظ التلقائي هو القرص C و بإمكانك تغييره مثلما تشاء

ألفت إنتباهك أخي الغالي ..

إذا كنت تود عمل نسخة إحتياطية تلقائية

1 - يمكنك إكمال عمل الأزرار بالمشروع

2 - بزر الخروج تعمل أمر ضغط زر النسخ الإحتياطي مثلا .. Button1 Preformclick 

أتمنى أن يفي الملف بالغرض ولو بالجزء اليسير إن شاء الله

[emamtron2014]

(29-03-18, 11:30 AM)عبدالله الدوسري كتب :

كود :

SaveFileDialog1.Filter = "Access DB | *.accdb"

             
                  Dim sourcePath, DistPath As String
                  sourcePath = Application.StartupPath & "\Data.accdb"
                  DistPath = "هنا اكتب مسار الحفظ لأنه سيكون ثابت ولا يمكن للمستخدم تحديدة"
                  My.Computer.FileSystem.CopyFile(sourcePath, DistPath)
                  MsgBox("تم عمل نسخه إحتياطيه من البرنامج")

ضع الكود داخل مصيدة الأخطاء تحسباً لأي خطأ غير متوقع

كود :

Try

ضع الكود هنا

Catch ex As Exception
   MsgBox("حدث خطأ غير متوقع" & vbCrLf & ex.Message)
End Try

اخي عبدالله الدوسري 

جزاك الله خير الجزاء وجعله في ميزان حسناتك 

---

(29-03-18, 02:46 PM)عبد العزيز البسكري كتب :

السّلام عليكم و رحمة الله و بركاته

إضافة لما تقدّم به أستاذنا القدير " عبد الله الدّوسري "

جزاه الله خير الجزاء و زادها بموازين حسناته إن شاء الله

أخي الكريم .. هذا مثال إقتطفته من مشروعي الخاص

لا تهتم بالأزرار الثانويّة لأنّي إنشغلت بال SQL و لم أكملها .. ما يهمّك هو فقط الزر المشار إليه بالسّهم الأحمر

قمت بعمل قاعدة البيانات باسمي حتي يسهل عليك تغيير اسم قاعدة بياناتك بالكود

مكان الحفظ التلقائي هو القرص C و بإمكانك تغييره مثلما تشاء

ألفت إنتباهك أخي الغالي ..

إذا كنت تود عمل نسخة إحتياطية تلقائية

1 - يمكنك إكمال عمل الأزرار بالمشروع

2 - بزر الخروج تعمل أمر ضغط زر النسخ الإحتياطي مثلا .. Button1 Preformclick 

أتمنى أن يفي الملف بالغرض ولو بالجزء اليسير إن شاء الله

اخي عبدالعزيز البسكري
والله اني عاجز علي الشكر لاهتمام حضرتك بالموضوع
اما المثال الذي اضفته فقد استفدت منه كثيرا وادعو الله ان يجمعك في الفردوس الاعلي مع من تحب وجزاك الله خير الجزاء