منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

(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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

emamtron2014

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

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

emamtron2014