23-09-18, 02:52 PM (آخر تعديل لهذه المشاركة : 23-09-18, 02:53 PM {2} بواسطة Hazem1.)
بسم الله الرحمن الرحيم
إخواني الكِرام كيف يُمكن إجراء نسخ تلقائي لقاعدة بيانات من نوع أكسس كل يوم بملف آخر خارج ملف المشروع؟ بحيث لو تم حذف قاعدة البيانات بداخل ملف ال Debug يُمكن استعادتها، وهل يُمكن نسخ قاعدة البيانات وإرسالها بالبريد الإليكتروني تلقائياً كل يوم؟ وجزاكم الله خيراً.
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.
مشكور أخي الغاليasemshahen5 ، سأقوم بالبحث عن الكود المُستخدم في نسخ القاعدة لا أحتاج إلا لكود نسخ تلقائي لقاعدة البيانات وكود آخر لاستعادة قاعدة البيانات لأضع كل واحدٍ منهما في زر.
بعد البحث وجدت كود النسخ التالي، أود من حضراتكم تفسير سطر النسخ ، لأني أحتاج إلى فهمه
Dim fbd As New FolderBrowserDialog If fbd.ShowDialog = DialogResult.OK Then File.Copy(txtdbpath.Text, fbd.SelectedPath & "\budb_" & dline & IO.Path.GetExtension(lbldbname.Text.Trim)) End If End Sub
وهناك كود آخر وجدته ، ولا أدري ما الفرق بينهما ؟
PHP كود :
Dim dbPath = _ Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & _ "\CreatedFolder\Resources\DatabaseFile.accdb" Dim connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.
مشكور أخي الغاليasemshahen5 ، سأقوم بالبحث عن الكود المُستخدم في نسخ القاعدة لا أحتاج إلا لكود نسخ تلقائي لقاعدة البيانات وكود آخر لاستعادة قاعدة البيانات لأضع كل واحدٍ منهما في زر.
بعد البحث وجدت كود النسخ التالي، أود من حضراتكم تفسير سطر النسخ ، لأني أحتاج إلى فهمه
Dim fbd As New FolderBrowserDialog If fbd.ShowDialog = DialogResult.OK Then File.Copy(txtdbpath.Text, fbd.SelectedPath & "\budb_" & dline & IO.Path.GetExtension(lbldbname.Text.Trim)) End If End Sub
وهناك كود آخر وجدته ، ولا أدري ما الفرق بينهما ؟
PHP كود :
Dim dbPath = _ Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & _ "\CreatedFolder\Resources\DatabaseFile.accdb" Dim connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath
Dim dline As String = Now.Year & Now.Month & Now.Day & Now.Hour & Now.Minute & Now.Second & Now.Millisecond تعريف متغير لتخزين السنة و الشهر و اليوم و الساعة و الدقيقة الخ
من ثم استدعاء مستعرض المجلدات
من ثم عمل نسخ لقاعدة البيانات من الموقع الموجودة فيه الى المكان المطلوب مع المتغير في اسم النسخة المعمولة
الكود الثاني هو لجلب موقع المجلد الخاص بالبرنامج و موقع قاعدة البيانات لاستخدامه في كود الاتصال الخاص بالبرنامج .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
مشكور أخي الغاليasemshahen5 ، سأقوم بالبحث عن الكود المُستخدم في نسخ القاعدة لا أحتاج إلا لكود نسخ تلقائي لقاعدة البيانات وكود آخر لاستعادة قاعدة البيانات لأضع كل واحدٍ منهما في زر.
بعد البحث وجدت كود النسخ التالي، أود من حضراتكم تفسير سطر النسخ ، لأني أحتاج إلى فهمه
Dim fbd As New FolderBrowserDialog If fbd.ShowDialog = DialogResult.OK Then File.Copy(txtdbpath.Text, fbd.SelectedPath & "\budb_" & dline & IO.Path.GetExtension(lbldbname.Text.Trim)) End If End Sub
وهناك كود آخر وجدته ، ولا أدري ما الفرق بينهما ؟
PHP كود :
Dim dbPath = _ Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & _ "\CreatedFolder\Resources\DatabaseFile.accdb" Dim connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath
Dim dline As String = Now.Year & Now.Month & Now.Day & Now.Hour & Now.Minute & Now.Second & Now.Millisecond تعريف متغير لتخزين السنة و الشهر و اليوم و الساعة و الدقيقة الخ
من ثم استدعاء مستعرض المجلدات
من ثم عمل نسخ لقاعدة البيانات من الموقع الموجودة فيه الى المكان المطلوب مع المتغير في اسم النسخة المعمولة
الكود الثاني هو لجلب موقع المجلد الخاص بالبرنامج و موقع قاعدة البيانات لاستخدامه في كود الاتصال الخاص بالبرنامج .
عند استخدام الكود الثاني يظهر معي 3 أخطاء فهل يعني أنه لابد من تعريف مُتغيرات ثلاثة يا أخي الكريم ، لأن هذا السطر وددت فهمه جيداً جزاك الله خيراً
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.
أخي الفاضل تقصد بالمصدر اسم قاعدة البيانات (مثلاً عندي A18 ), وتقصد بالوجهة المجلد (مثلا Debug )؟
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.
سأقوم بالتطبيق إن شاء الله، جزاك الله خيراً يا أخي الفاضل، ما قصرت
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.