كيف يمكن عمل import و export لبيانات الجداول

MOHAMED ARAFA كتب:

كيف يمكن عمل زر يحفظ بيانات الجداول فى اى جزء احدده فى الهارد ديسك (الجداول فقط) وليس كل القاعدة من تقارير ونماذج

ثم اذا حدث خلل للقاعدة او فورمات بطريق الخطأ فافتح المشروع مرة اخرى واضغط على زر import لكى استعيد بيانات الجداول داخل القاعدة من جديد

اى ان المطلوب عمل back up وعند الحاجه استعادتها مرة اخرى عن طريق زرين import - export

وجدت عدة مواضيع قديمة تتحدث عن موضوع عمل نسخة احتياطيه ولكنها ليست ما كنت ابحث عنه

شكرا للجميع

اخى الكريم محمد

ان ما تطلبه شبه مستحيل حسب علمى وذلك لأن الجداول لا تعمل إلافى بيئة الاكسيس

بكامل كائناته وبمشغل قاعدة البيانات . ولا تعمل بصفة منفردة كما تتخيل .

يعنى عملية االإستيراد لا تتم إلا بين قاعدتين كاملتين .

فما عليك إلا النسخ الإحتياطى لحفظ القاعدة ببياناتها أو حفظ القاعدة

فى مسار غير مسار برنامج التشغيل ، أو تحفظها على اسطوانة .

هذا للعلم والتوفيق ،،،

السلام عليكم ورحمة الله وبركاته

اخى الحبيب ممكن تعمل تصدير واستيراد للبيانات من خلال انك تصدر البيانات لقاعدة اخرى تكون فاضية وتسترجعها تانى بدل الجداول الاساسية ده بس بيحتاج تعمل كود لانشاء قاعدة بيانات اكسيس ثم بعد ذلك تصدر اليها او انك تصدر الجدول على انه ملف اكسيل ثم تعمل ايضا ليها استيراد بدل الجدول اللى انت عاوزه بس ده بيحتاج تراعى حاجات كتير

وهناك طريقة اخرى وهى تصدير واستيراد الملف او المجلد اللى فيه القاعدة اللى فيها جداول البيانات غير ملف الواجهات (يعنى تكون القاعدة منقسمة الواجهات غير البيانات اعتقد انك عندك فكرة عن الموضوع ده ولا انا غلطان ) وتعمل بعد كدة باى طريقة تعجبك (باتش بسيط مثلا ) عملية نسخ للملف فى اى مكان تحدده انت فى الهارد ووقتما تحب تسترجع منه بدل الاساسى اللى حصله تلف بس انا مش عارف انت ايه اللى معجبكش فى طرق النسخ الاحتياطية ولذلك تريد شىء اخر ما هو الذى تريده ؟ فطرق النسخ الاحتياطية جيدة وتتيح لك حفظ نسخ متعددة بشكل يومى او حتى كل ثانية وهذا يكون اكثر امانا عموما دى افكار انا عن نفسى عملت موضوع الباتش ده قبل كده زمان بس الطريقة دى فيها عيب ان الباتش معرفتش اخليه يعمل ملف جديد بتاريخ اليوم مثلا (زى ما هو سهل عمل ذلك فى الاكسيس) وينسخ بداخله القاعدة اللى انا عاوزها فالباتش ينسخ الى الملف المحدد ولو وجد غيره بنفس الاسم يزيله ويضع الجديد فيجب التاكد من صلاحية الجدول والقاعدة قبل عمل هذا والا حصل مشكلة كبيرة والطريقة دى ممكن تكون فعالة اكثر فى حالة تلف القاعدة التى بها الوجهات والاستعلامات والتقرير بعيدا عن الجداول وربنا يهديك لما فيه الخير

ووفقكم الله والجميع لما يحبه ويرضاه

والسلام عليكم ورحمة الله وبركاته

كل شيء ممكن عمله في الأكسس .. لايوجد شيء مستحيل

تفضل هذا البرنامج لإنشاء نسخة احتياطية من الجداول ويمكن استرجاعها في أي وقت

نسخ واسترجاع البيانات.rar

:clapping: :clapping: تم التحميل والتجربة ويعمل بكفائة الف شكر وجزاك الله خيرااااااا

شكرا لكم جميعا وشكرا للأخ jafar089 وهل تصلح حالة الاستيراد اخى الفاضل اذا كانت القاعدة من نوع mde ام لا

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

أرجو التوضيح اخى الكريم

كما انه عند الضغط على زر استرجاع النسخة الاحتياطيه فانه يعطينى رساله

you cant open this location using this program.

please try adifferent location.

هذه الرسالة تأتى بمجرد الضغط على الزر ولكن عند الضغط على ok والمتابعه فيسير كل شىء على ما يرام

وايضا اذا تم الضغط على زر استرجاع النسخه الاحتياطيه وكنت انوى عدم المتابعه فأضغط على cancel فيتابع خطوات استرجاع النسخه الاحتياطيه ويعطينى browse للهارد ديسك فاضغط على cancel مره اخرى فيعطينى رسالة تم استيراد النسخه الاحتياطيه بنجاح

فارجو تعديل هذه المشكلتين

أخي محمد عرفة :

أولا / هذا البرنامج يعمل على نسخة mdb أو mde لنسخ 2003 وما دون ونسخ 2007 و 2010

وفكرة أخذ نسخة احتياطية هي لكي تكون لديك نسخة ثانية يمكن الرجوع لديها فيما بعد ، يعني مثلا إذا أردت إجراء تجارب أو اختبار للنسخة الرئيسية قيمكنك استرجاع النسخة السابقة المحفوظة عندك والتي تم حفظها قبل إجراء أي تعديل عليها ، أيضاً من المهم بمكان أخذ أو حفظ نسخة احتياطية دائما من البيانات للرجوع إليها وقت الحاجة أنا مثلا عندي برنامج جمعية يحتوي على بيانات وعمليات لعدد 110 عضو فمهم جدا أن أحتفظ بنسخة احتياطية من البيانات دائما .. إذا فالنسخة الاتحتياطية لا تشتمل على التعديلات الحديثة التي أجريتها يعني لو استرجعتها تكون قد استرجعت النسخة التي حفظتها قبل التعديل .

ثانياً / بالنسبة للرسالة الأولى أنا لا تظهر عندي وقد جربت البرنامج على أكثر من جهاز وعلى نسخ أوفيس 2003 و 2007 و 2010 أما بالنسبة للملاحظة الثانية وهي عند الضغط على Cancel في عملية الاسترجاع فأنا أوافقك بإنه لايستجيب لطلب الإلغاء وتظهر رسالة بأنه تم استرجاع البيانات بل الأدهى من ذلك أنه يتم حذف الجداول من البرنامج !

ونحن ننتظر من الأساتذة الأعزاء في منتدانا الغالي لإجراء التعديلات على هذا البرنامج .

لك أجمل تحياتي ..

شكرا جزيلا اخى jafar089 على المعلومات الرائعه وبالنسبه لما ذكرت فواضح ان الرسالة التى تظهر عند الضغط على استرجاع النسخة انها مشكلة عندى ولا اعرف سببها

وبالفعل يا اخى لقد فوجئت ان جميع الجداول عندى اليوم تم حذفها ولا اعرف لماذا وانت اوضحت لى الان سبب المشكله وهى مشكلة خطيره فعلا يمكن ان تؤدى الى دمار قاعدة البيانات لذلك ارجو من الخبراء حل هذه المشكلة وهى حذف جميع الجداول عند الضغط على cancel وعدم المتابعه

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

ففى مثالك السابق قمت باضافة زر لاستخراج بيانات الجدول T1 وآخر لاستخراج بيانات الجدول T2 ويعملون بكفاءه ولكن المشكلة اننى اعطيته فى الكود مكان القاعدة

حاولت ان اضبطها بحيث احذف مكان القاعدة ويأخذ هو المكان عند استعراض الهارد ديسك ولكننى لم استطع

انظر الصورة

كيف يمكننى حذف "C:\aaa.mdb"

وهو ياخذ المكان بناءا على اختيارى كما فى زر اخذ نسخة احتياطيه

وسؤال اخر

كيف يمكننى ان اضع اسم القاعدة قبل التاريخ بحيث عند تخزين الداتا بيز يحفظها باسم القاعده ثم التاريخ وليس التاريخ فقط كما فى المثال

شكرا جزيلا

Backup.rar

up

تفضل أ خي برنامجين من عمل أحد أعضاء المنتدى :

البرنامج الأول / يتم نسخ الجداول التي تختارها بعد تحديد القاعدة .

ALZHRANI.rar

البرنامج الثاني / تختار المكان المراد حفظ النسخة الاحتياطية فيه ومن ثم تتحكم في اسم النسخة .

Backup_tables2.rar

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

ولكن تبقى امامى مشكلة واحدة وهى حذف جميع الجداول عند عدم متابعة استرجاع النسخة

وهذه هى الدالة التى تتسبب فى المشكلة

Function TableDelete()

On Error Resume Next

Dim MyDb As Database

Dim MyTable As TableDef

Dim MyTableCount As Integer

Set MyDb = Application.CurrentDb

MyTableCount = MyDb.TableDefs.Count

For i = MyTableCount - 1 To o Step -1

Set MyTable = MyDb.TableDefs(i)

MyTableName = MyTable.Name

If Left$(MyTableName, 4) <> "Msys" Then MyDb.TableDefs.Delete (MyTableName)

Next

MyDb.Close

End Function

ثم يقوم باستدعاءها عند الضغط

Private Sub ÃãÑ1_Click()

On Error Resume Next

Call TableDelete

Call TableDelete

Dim strInputFileName As String

Dim strFilter As String

strFilter = ahtAddFilterItem(strFilter, "Access Files (*.*)", "*.*")

strInputFileName = ahtCommonFileOpenSave(Filter:=strFilter, OpenFile:=True, DialogTitle:="ÇáÑÌÇÁ ÇÎÊíÇÑ ãáÝ ...", Flags:=ahtOFN_HIDEREADONLY)

Me.txtPath = strInputFileName

Dim strPath As String

strPath = Me.txtPath

ImportDb strPath

MsgBox "Êã ÇÓÊíÑÇÏ ÇáäÓÎÉ ÇáÇÍÊíÇØíÉ ÈäÌÇÍ"

End Sub

فأرجو من الخبراء ضبط الكود وعدم مسح الجداول فى حالة عدم استكمال مرحلة استيراد النسخة لانها مشكلة خطيرة جدا يمكن ان تتسبب فى تدمير القاعدة بالكامل

السلام عليكم ورحمة الله وبركاته

عند عمل نسخة احياطية للقاعدة

يتم نسخ الجداول فقط

دون التقارير والنماذج والاستعلامات لماذا ؟

برجاء توضيح السبب وجزاكم الله خيرا