تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل الكود التالي صحيح لاستعادة قاعدة بيانات أكسس
#1
بسم الله الرحمن الرحيم

بالأمس تعلمت من الأخ العزيز eljokr جزاه الله خيراً كيفية نسخ قاعدة بيانات الأكسس، فحاولت استخدام نفس الكود في عملية الاستعادة بحيث يتم نسخ ملف قاعدة البيانات من ملف النسخ إلى ملف الDebug فهل الكود صحيح؟ رحمكم الله.


PHP كود :
If My.Settings.BupDB Now.Date Then
            If con
.State ConnectionState.Open Then con.Close()
 
           My.Computer.FileSystem.CopyFile(Application.StartupPath "D:\Backup\BupDB-" Now.Date.ToString("dd-MM-yyyy") & "A18.accdb""D:/HHH/WindowsApplication1/bin/Debug/A18.accdb"True)
 
       End If 
الرد
تم الشكر بواسطة: elgokr
#2
(25-09-18, 10:55 PM)Hazem1 كتب : بسم الله الرحمن الرحيم

بالأمس تعلمت من الأخ العزيز eljokr جزاه الله خيراً كيفية نسخ قاعدة بيانات الأكسس، فحاولت استخدام نفس الكود في عملية الاستعادة بحيث يتم نسخ ملف قاعدة البيانات من ملف النسخ إلى ملف الDebug فهل الكود صحيح؟ رحمكم الله.


PHP كود :
If My.Settings.BupDB Now.Date Then
            If con
.State ConnectionState.Open Then con.Close()
 
           My.Computer.FileSystem.CopyFile(Application.StartupPath "D:\Backup\BupDB-" Now.Date.ToString("dd-MM-yyyy") & "A18.accdb""D:/HHH/WindowsApplication1/bin/Debug/A18.accdb"True)
 
       End If 


مرحباً اخى Hazem1


نعم الكود صحيح بما انك قمت بعكس المسارات
ولكن هنا انت لا تحتاج للتحقق من التاريخ
لان الكود الاسترجاع سيكون داخل زر وليس تلقائي

فكل ما عليك ان تجعل الكود بهذا الشكل مع بعض التعديل البسيط
كود :
           If con.State = ConnectionState.Open Then con.Close()
           My.Computer.FileSystem.CopyFile(Application.StartupPath & "D:\Backup\BupDB-" & Now.Date.ToString("dd-MM-yyyy") & "A18.accdb", Application.StartupPath & "\A18.accdb", True)


تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: Hazem1
#3
(26-09-18, 12:02 AM)elgokr كتب :
(25-09-18, 10:55 PM)Hazem1 كتب : بسم الله الرحمن الرحيم

بالأمس تعلمت من الأخ العزيز eljokr جزاه الله خيراً كيفية نسخ قاعدة بيانات الأكسس، فحاولت استخدام نفس الكود في عملية الاستعادة بحيث يتم نسخ ملف قاعدة البيانات من ملف النسخ إلى ملف الDebug فهل الكود صحيح؟ رحمكم الله.


PHP كود :
If My.Settings.BupDB Now.Date Then
            If con
.State ConnectionState.Open Then con.Close()
 
           My.Computer.FileSystem.CopyFile(Application.StartupPath "D:\Backup\BupDB-" Now.Date.ToString("dd-MM-yyyy") & "A18.accdb""D:/HHH/WindowsApplication1/bin/Debug/A18.accdb"True)
 
       End If 


مرحباً اخى Hazem1


نعم الكود صحيح بما انك قمت بعكس المسارات
ولكن هنا انت لا تحتاج للتحقق من التاريخ
لان الكود الاسترجاع سيكون داخل زر وليس تلقائي

فكل ما عليك ان تجعل الكود بهذا الشكل مع بعض التعديل البسيط
كود :
           If con.State = ConnectionState.Open Then con.Close()
           My.Computer.FileSystem.CopyFile(Application.StartupPath & "D:\Backup\BupDB-" & Now.Date.ToString("dd-MM-yyyy") & "A18.accdb", Application.StartupPath & "\A18.accdb", True)


تحياتى لك
وتمنياتى لك التوفيق

سُبحان الله، لست أدري فيما أخطأت، هل برأيك يا أخي الكريم أني اخطأت في كتابة السطر الأول من الكود عندما وضعت علامة (=)

PHP كود :
Private Sub Button20_Click_1(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button20.Click

        If My
.Settings.BupDB Now.Date Then
            If con
.State ConnectionState.Open Then con.Close()
 
           My.Computer.FileSystem.CopyFile(Application.StartupPath "D:\Backup\BupDB-" Now.Date.ToString("dd-MM-yyyy") & "A18.accdb"Application.StartupPath "\A18.accdb"True)
 
       End If
 
   End Sub 
الرد
تم الشكر بواسطة:
#4
انت قمت بالتعديل على الكود لديك بدل من استبداله

انت لست بحاجة الى شرط التحقق لهذا السطر
كود :
If My.Settings.BupDB = Now.Date Then
End If
فقط استخدم ما بداخلهم وسيعمل معك بدون اى مشكلة
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: Hazem1 , Hazem1
#5
(26-09-18, 01:36 AM)elgokr كتب :
انت قمت بالتعديل على الكود لديك بدل من استبداله

انت لست بحاجة الى شرط التحقق لهذا السطر
كود :
If My.Settings.BupDB = Now.Date Then
End If
فقط استخدم ما بداخلهم وسيعمل معك بدون اى مشكلة
تحياتى لك
وتمنياتى لك التوفيق


سُبحان الله، قمت بوضع الكود التالي ولكن ظهر الخطأ الذي في الصورة 


PHP كود :
Private Sub Button20_Click_1(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button20.Click
        If con
.State ConnectionState.Open Then con.Close()
 
       My.Computer.FileSystem.CopyFile(Application.StartupPath "D:\Backup\BupDB-" Now.Date.ToString("dd-MM-yyyy") & "A18.accdb"Application.StartupPath "\A18.accdb"True)
 
   End Sub 
حاولت كتابة مسار الملف بالكامل كما في الكود التالي :  ولكن ظهر نفس الرسالة الخطأ 

PHP كود :
'If con.State = ConnectionState.Open Then con.Close()
        '
My.Computer.FileSystem.CopyFile(Application.StartupPath "D:\Backup\BupDB-" Now.Date.ToString("dd-MM-yyyy") & "A18.accdb"Application.StartupPath "D:HHH\WindowsApplication1\bin\Debug\A18.accdb"True


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#6
مرحباً اخى الحبيب

سبب الخطاء فى هذا الجزء من الكود
كود :
Application.StartupPath & "D:\Backup\BupDB-"

كيف تضع مسار دريف D وكذلك تستخدم جملة Application.StartupPath
وكذلك بتستخدم كود جلب التاريخ الحالى يعنى انا عايز زمتك

انت فى مجلد النسخة الاحتياطية فى ملف لقاعدة البيانات بالاسم ده
PHP كود :
BupDB-20-09-2018A18.accdb 

الصح ان يكون الكود بهذا الشكل
كود :
If con.State = ConnectionState.Open Then con.Close()
       My.Computer.FileSystem.CopyFile("D:\Backup\BupDB-26-09-2018A18.accdb", Application.StartupPath & "\A18.accdb", True)

فقط استبدل التاريخ كتابياً وليس بالكود
وتاكد بان فعلياً قاعدة البيانات فى المسار صحيح وتحت اسم كما فى الكود

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: Hazem1
#7
(26-09-18, 11:57 PM)elgokr كتب :
مرحباً اخى الحبيب

سبب الخطاء فى هذا الجزء من الكود
كود :
Application.StartupPath & "D:\Backup\BupDB-"

كيف تضع مسار دريف D وكذلك تستخدم جملة Application.StartupPath
وكذلك بتستخدم كود جلب التاريخ الحالى يعنى انا عايز زمتك

انت فى مجلد النسخة الاحتياطية فى ملف لقاعدة البيانات بالاسم ده
PHP كود :
BupDB-20-09-2018A18.accdb 

الصح ان يكون الكود بهذا الشكل
كود :
If con.State = ConnectionState.Open Then con.Close()
       My.Computer.FileSystem.CopyFile("D:\Backup\BupDB-26-09-2018A18.accdb", Application.StartupPath & "\A18.accdb", True)

فقط استبدل التاريخ كتابياً وليس بالكود
وتاكد بان فعلياً قاعدة البيانات فى المسار صحيح وتحت اسم كما فى الكود

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

تحياتى لك
وتمنياتى لك التوفيق

Cool والله لما راجعت الكود أخذت أضحك على ما فعلت، اسأل الله أن يجعل في وجهك الابتسامة كما تجعلها في وجوه الآخرين، سأفعل الصح مثلما نصحتني وسأقوم بالاستعادة بشكل يدوي إن شاء الله.
الرد
تم الشكر بواسطة: elgokr , ابراهيم ايبو , ابراهيم ايبو
#8
(27-09-18, 11:13 PM)Hazem1 كتب : Cool والله لما راجعت الكود أخذت أضحك على ما فعلت، اسأل الله أن يجعل في وجهك الابتسامة كما تجعلها في وجوه الآخرين، سأفعل الصح مثلما نصحتني وسأقوم بالاستعادة بشكل يدوي إن شاء الله.


يارب تدوم الضحكة دائماً

يمكن طرق اخري لعمل الاسترجاع 

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


تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو , Hazem1 , Hazem1
#9
(28-09-18, 01:39 AM)elgokr كتب :
(27-09-18, 11:13 PM)Hazem1 كتب : Cool والله لما راجعت الكود أخذت أضحك على ما فعلت، اسأل الله أن يجعل في وجهك الابتسامة كما تجعلها في وجوه الآخرين، سأفعل الصح مثلما نصحتني وسأقوم بالاستعادة بشكل يدوي إن شاء الله.


يارب تدوم الضحكة دائماً

يمكن طرق اخري لعمل الاسترجاع 

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


تحياتى لك
وتمنياتى لك التوفيق

الله يرضى عنك ويسعدك ويجعل في طريقك من يكون سبباً في سعادتك دوماً، فكرتك ممتازة إن شاء الله أطبقها.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى اضافة حقول جديدة فى قاعدة البيانات و ربطها بالفيجوال استوديو nabil.1710 1 30 منذ 5 ساعة مضت
آخر رد: nabil.1710
  سؤال :- فى كيغية ادراج بيانات فى الداتا جريد فيو احمد خطاب 1 61 اليوم, 02:54 AM
آخر رد: EYADISMAIL
Smile ممكن شرح هدا الكود الزوي 1 22 اليوم, 02:17 AM
آخر رد: عبد العزيز البسكري
  كيف ابحث داخل قاعدة البيانات احمد خطاب 2 62 أمس, 01:51 AM
آخر رد: اسامه الهرماوي
  البحث عن يوم في قاعدة البيانات atefkhalf2004 2 67 16-10-18, 09:18 PM
آخر رد: WAEL ABED
  نقل بيانات من فورم طفل الى فورم اساسي Rabeea Qbaha 4 69 16-10-18, 05:52 PM
آخر رد: Rabeea Qbaha
  مشكله فى حفظ قاعده بيانات اكسس فى مشروع فيجوال بيزك مع تلك القاعده خالد كامل1 2 41 16-10-18, 08:34 AM
آخر رد: خالد كامل1
  لماذا تظهر علامة خطأ على قاعدة البيانات دائماً ؟ Hazem1 0 54 12-10-18, 02:17 PM
آخر رد: Hazem1
  [سؤال] سؤال عام حول الكود في الفيجوال ستوديو Simo1991 2 84 11-10-18, 03:30 PM
آخر رد: Simo1991
  [SQL] اريد buckup لقاعدة بيانات 2008 sabrizinoubi 0 54 09-10-18, 04:52 PM
آخر رد: sabrizinoubi

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


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