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


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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] وين الخطأ في هذا الكود (إستعلام) asadtaif 10 206 أمس, 12:37 PM
آخر رد: asadtaif
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 12 286 14-06-19, 03:03 PM
آخر رد: elgokr
  كيفية استخراج بيانات من اكثر من جدول وطباعتها المتألق9 4 202 12-06-19, 11:41 AM
آخر رد: new2016
  سؤال حول قاعدة بيانات أكسس gmohamedelnajjar 1 60 11-06-19, 02:41 PM
آخر رد: ابراهيم ايبو
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 8 156 05-06-19, 03:40 AM
آخر رد: heshamelkomy71
  [سؤال] جعل textbox عدد صحيح وعددين عشريين فقط sabil_mart 4 128 05-06-19, 12:57 AM
آخر رد: عبد العزيز البسكري
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 11 316 04-06-19, 03:12 PM
آخر رد: elgokr
Lightbulb [VB.NET] الرجاء تعديل الكود بالملف المرفق الراس الكبيرة 2 95 01-06-19, 01:40 AM
آخر رد: الراس الكبيرة
  [سؤال] طلب مساعدة كود التحكم بعرض بيانات حقل حسابية في التكست بكس على ان لا يظهر لاصفار essawq 12 749 29-05-19, 10:43 PM
آخر رد: egbest2
Heart [VB.NET] كل عام وانتم بخير ... محتاج كود نسخ قاعدة البيانات تلقائيا abdullhadi999 32 831 15-05-19, 08:24 PM
آخر رد: asemshahen5

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


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