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

بسم الله الرحمن الرحيم

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

(23-09-18, 03:26 PM)asemshahen5 كتب : [ -> ]http://vb4arb.com/vb/showthread.php?tid=16733

مشكور أخي الغالي 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.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
تعريف متغير لتخزين السنة و الشهر و اليوم و الساعة و الدقيقة الخ

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

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

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

(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.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 أخطاء فهل يعني أنه لابد من تعريف مُتغيرات ثلاثة يا أخي الكريم ، لأن هذا السطر وددت فهمه جيداً جزاك الله خيراً

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

(23-09-18, 08:08 PM)asemshahen5 كتب : [ -> ]lbldbname.Text.Trim أسم أداة ليبل بالمشروع
التعليمة عندك خاطئة :

كود :

FileCopy("المصدر", "الوجهة")

أخي الفاضل تقصد بالمصدر اسم قاعدة البيانات (مثلاً عندي A18 ), وتقصد بالوجهة المجلد (مثلا Debug )؟

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

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

كود :

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

سأقوم بالتطبيق إن شاء الله، جزاك الله خيراً يا أخي الفاضل، ما قصرت

عدله ليكون هكذا نسيت وضع \