تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يُمكن إجراء نسخ تلقائي لقاعدة البيانات كل يوم بملف خارج المشروع؟
#1
بسم الله الرحمن الرحيم

إخواني الكِرام كيف يُمكن إجراء نسخ تلقائي لقاعدة بيانات من نوع أكسس كل يوم بملف آخر خارج ملف المشروع؟ بحيث لو تم حذف قاعدة البيانات بداخل ملف ال Debug يُمكن استعادتها، وهل يُمكن نسخ قاعدة البيانات وإرسالها بالبريد الإليكتروني تلقائياً كل يوم؟ وجزاكم الله خيراً.
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.

الرد
تم الشكر بواسطة:
#2
http://vb4arb.com/vb/showthread.php?tid=16733

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة: Hazem1
#3
(23-09-18, 03:26 PM)asemshahen5 كتب : http://vb4arb.com/vb/showthread.php?tid=16733

مشكور أخي الغالي asemshahen5 ، سأقوم بالبحث عن الكود المُستخدم في نسخ القاعدة لا أحتاج إلا لكود نسخ تلقائي لقاعدة البيانات وكود آخر لاستعادة قاعدة البيانات لأضع كل واحدٍ منهما في زر.

بعد البحث وجدت كود النسخ التالي، أود من حضراتكم تفسير سطر النسخ ، لأني أحتاج إلى فهمه 

PHP كود :
Dim dline As String Now.Year Now.Month Now.Day Now.Hour Now.Minute Now.Second Now.Millisecond
        dline 
dline.Trim

        Dim fbd 
As New FolderBrowserDialog
        If fbd
.ShowDialog DialogResult.OK Then
            File
.Copy(txtdbpath.Textfbd.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 
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.

الرد
تم الشكر بواسطة:
#4
(23-09-18, 03:55 PM)Hazem1 كتب :
(23-09-18, 03:26 PM)asemshahen5 كتب : http://vb4arb.com/vb/showthread.php?tid=16733

مشكور أخي الغالي asemshahen5 ، سأقوم بالبحث عن الكود المُستخدم في نسخ القاعدة لا أحتاج إلا لكود نسخ تلقائي لقاعدة البيانات وكود آخر لاستعادة قاعدة البيانات لأضع كل واحدٍ منهما في زر.

بعد البحث وجدت كود النسخ التالي، أود من حضراتكم تفسير سطر النسخ ، لأني أحتاج إلى فهمه 

PHP كود :
Dim dline As String Now.Year Now.Month Now.Day Now.Hour Now.Minute Now.Second Now.Millisecond
        dline 
dline.Trim

        Dim fbd 
As New FolderBrowserDialog
        If fbd
.ShowDialog DialogResult.OK Then
            File
.Copy(txtdbpath.Textfbd.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
تعريف متغير لتخزين السنة و الشهر و اليوم و الساعة و الدقيقة الخ

من ثم استدعاء مستعرض المجلدات

من ثم عمل نسخ لقاعدة البيانات من الموقع الموجودة فيه الى المكان المطلوب مع المتغير في اسم النسخة المعمولة

الكود الثاني هو لجلب موقع المجلد الخاص بالبرنامج و موقع قاعدة البيانات لاستخدامه في كود الاتصال الخاص بالبرنامج .

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة: Hazem1
#5
(23-09-18, 06:23 PM)asemshahen5 كتب :
(23-09-18, 03:55 PM)Hazem1 كتب :
(23-09-18, 03:26 PM)asemshahen5 كتب : http://vb4arb.com/vb/showthread.php?tid=16733

مشكور أخي الغالي asemshahen5 ، سأقوم بالبحث عن الكود المُستخدم في نسخ القاعدة لا أحتاج إلا لكود نسخ تلقائي لقاعدة البيانات وكود آخر لاستعادة قاعدة البيانات لأضع كل واحدٍ منهما في زر.

بعد البحث وجدت كود النسخ التالي، أود من حضراتكم تفسير سطر النسخ ، لأني أحتاج إلى فهمه 

PHP كود :
Dim dline As String Now.Year Now.Month Now.Day Now.Hour Now.Minute Now.Second Now.Millisecond
        dline 
dline.Trim

        Dim fbd 
As New FolderBrowserDialog
        If fbd
.ShowDialog DialogResult.OK Then
            File
.Copy(txtdbpath.Textfbd.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 أخطاء فهل يعني أنه لابد من تعريف مُتغيرات ثلاثة يا أخي الكريم ، لأن هذا السطر وددت فهمه جيداً جزاك الله خيراً


الملفات المرفقة صورة/صور
   
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.

الرد
تم الشكر بواسطة:
#6
txtdbpath.Text اسم أداة تيكست بوكس بالمشروع
lbldbname.Text.Trim أسم أداة ليبل بالمشروع
txt
التعليمة عندك خاطئة :


الملفات المرفقة صورة/صور
   

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة: Hazem1 , Hazem1
#7
(23-09-18, 08:08 PM)asemshahen5 كتب : lbldbname.Text.Trim أسم أداة ليبل بالمشروع
التعليمة عندك خاطئة :
كود :
FileCopy("المصدر", "الوجهة")

أخي الفاضل تقصد بالمصدر اسم قاعدة البيانات (مثلاً عندي A18 ), وتقصد بالوجهة المجلد (مثلا Debug )؟
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.

الرد
تم الشكر بواسطة:
#8
وضعت لك صورة بمحرر الكود ظهرت معكوسة
 المصدر أي مصدر الملف الوجهة المكان المراد وضع الملف به

كود :
FileCopy(Application.StartupPath & "\A18.mdb", "d:\A18.mdb")

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة: Hazem1
#9
(23-09-18, 08:19 PM)asemshahen5 كتب : وضعت لك صورة بمحرر الكود ظهرت معكوسة
 المصدر أي مصدر الملف الوجهة المكان المراد وضع الملف به

كود :
FileCopy(Application.StartupPath & "A18.mdb", "d:\A18.mdb")

سأقوم بالتطبيق إن شاء الله، جزاك الله خيراً يا أخي الفاضل، ما قصرت
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.

الرد
تم الشكر بواسطة: asemshahen5
#10
عدله ليكون هكذا نسيت وضع \

كود :
FileCopy(Application.StartupPath & "\A18.mdb", "d:\A18.mdb")

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة: Hazem1 , Hazem1


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] قاعده البيانات لاتقوم بالحفظ من اول امر jassim316 0 11 منذ 4 ساعة مضت
آخر رد: jassim316
  [كود] طريقة البحث عن صورة في قاعدة البيانات access باستعمال صورة أخرى technomedia 6 94 منذ 10 ساعة مضت
آخر رد: elgokr
  [VB.NET] فتح ارتباط تشعبي موجود ضمن قاعدة البيانات اكسس EMADSSS 2 68 17-02-19, 09:32 PM
آخر رد: EMADSSS
  برجاء تجربة المثال المرفق لتصدير البيانات الى اكسيل new_programer 7 149 15-02-19, 08:09 PM
آخر رد: new_programer
  [سؤال] عرض الصورة من قاعدة البيانات محمد اسماعيل 3 87 15-02-19, 06:28 AM
آخر رد: princelovelorn
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 4 121 14-02-19, 06:46 PM
آخر رد: عبد العزيز البسكري
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 3 102 11-02-19, 11:39 PM
آخر رد: princelovelorn
  مساعدة في اتمام المشروع georgos 0 80 11-02-19, 01:32 AM
آخر رد: georgos
  [VB.NET] المساعده في المشروع dubai.eig 8 173 08-02-19, 04:25 PM
آخر رد: ابراهيم ايبو
  عدم الحفظ في قاعدة البيانات في الوندوز 64 بايت raaddawood 9 178 06-02-19, 01:16 PM
آخر رد: sendbad100

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


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