تقييم الموضوع :
  • 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 وتطبيقه مع كود المذكور باخر رد مسبق


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

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

الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 222 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 83 25-02-24, 02:31 PM
آخر رد: h2551996
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 309 21-02-24, 11:44 PM
آخر رد: AHMED213

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


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