ترحيل البيانات من جدول في قاعدة بيانات الى جدول في قاعدة بيانات اخرى

اخي الفاضل ابو بسام

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

يمكن عمل كود الترحيل من قاعدة الى اخرى

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

جزاك الله خيرا اختي الكريمه وبارك الله فيك

اضع مثالا لما اريد التطبيق عليه في المرفقات

transfering_data.rar

بارك الله فيكي يا اختنا الغالية زهرة

بعد اذن سيادتكم

أخي الغالي أبو بسام

يمكنك استخدام جمل SQL داخل محرر الفيجوال بيسك وهذا سيغنيك عن استخدام الاستعلامات ان لم تشيء في ذلك فسيكون الكود المستخدم كالتالي

DoCmd.RunSQL "INSERT INTO clients_db2 ( [No], name, notice )SELECT clients.[no], clients.name, clients.notice FROM clients;"

لكن ضروري اولاً ان تضع الفولدر المسمي transfering_data بجميع محتوياتة اولاً تحت هذا المسار C:\transfering_data

لكي تعمل القاعدة بالشكل الصحيح وبعد ذلك يمكنك تغيير المسار كما تحب

اليك ملفك بعد التعديل

يمكنك تحميلة من هنا

http://up5.m5zn.com/ehep0zxwb7oe/transfering_data.rar.htm

مشرفتنا الغالية زهرة برجاء تحميل الملف علي سيرفر المنتدي مباشرة

شكرا لك استاذنا حل جميل جدا ولكن تبقى المشكله قائمه

حيث احتمالية تغيير مسار الملف db2

فانت عندما تنتج برنامج لا تدري اين سيقوم العميل بتثبيت هذا المجلد ، لذلك اريد كود استخدم فيه التعليمه application.currentproject.path

ليقوم الكود بتحديد الملف db2 ومن ثم الترحيل اليه

بارك الله بك اخي محمد فواد على المشاركه

اخي الفاضل ابو بسام

اليك ما طلبت

كل ما عليك هو اختيار قاعدة البيانات المطلوبه ( يجب ان تكون الجداول متساوية في الحقول في القاعدة الثانية ) حيث تستطيع وضع القاعدة الثانية في اي مكان من جهاز الكمبيوتر ومن ثم اختيارها ثم الضغط على زر الأمر " ابدأ التحديث " وستتم العملية بكل نجاح .

za_Transfering_data.rar

جزالك الله خيرا اختي الكريمه انا في غاية السعادة بردك ومساعدتك الكريمه وليس غريبا عليك فقد رأيت مواقفك مع كل من يطلب مساعده ، فعلا وجدت الحل اخيرا على يديك الكريمتين ، منذو زمن وانا اضع هذا السؤال وقد حصلت على اجابات ولكن ليست كما اريد .

ولكن بالكود الذي وضعتيه انحلت مشاكلي

فقط اختي زهره قمت بتعديل بسيط للكود ليتلائم مع تغيير المسار على النحو التالي

 

Dim strSQL As String
[txtPath] = Application.CurrentProject.path + "\اسم_المجلد\subDatabase.mdb"

DoCmd.SetWarnings False
strSQL = "INSERT INTO clients ( [no], name, notice ) IN '" & txtPath & "' SELECT clients.[no], clients.name, clients.notice FROM clients;"
DoCmd.RunSQL strSQL, dbFailOnError


DoCmd.SetWarnings True

لكن المشكلة ان الجداول وقاعدة البيانات المرحل اليها مكتوبه بالعربي ولا استطيع التعديل فيها كونها تقدم لجهة حكومية فمثلا بدل "subDatabase.mdb" "تسجيل بيانات العاملين " وبدل الجدول "clients" "بيانات العاملين " وهو ما يعطي خطأ عند تطبيقه على المثال

الملف بعد التعديل

za_Transfering_data_UP.rar

اختي زهره (دعوه صادقة لك من اعماق القلب)

اسأل الله ان يمتعك بالصحه والعافيه ويجعلك من السعداء في الدنيا والآخره

فليس هناك كرما اكثر مما تفضلت به

ALZHRANI.rar

اخي الفاضل

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

تم الإطلاع على برنامجك وتم البحث فيه عن جداول بها حقول فارعه ولكن لم نجد شيء

فكل الجداول الموجوده لديك تخص البرنامج فقط .

دعني اخبرك شيء ما عسى ان تصل الفكره لك بصوره مبسطة

تخيل ان لديك وعائين الوعاء الأول عباره عن القاعدة الخارجية وهذه القاعدة يوجد بها جداول وهذه الجداول بها حقول معينه وهذه الحقول بها بيانات

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

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

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

بالتوفيق

بالنسبة لـ :-

اقتباس

تم الإطلاع على برنامجك وتم البحث فيه عن جداول بها حقول فارعه ولكن لم نجد شيء

فكل الجداول الموجوده لديك تخص البرنامج فقط .

بحاول قد ما اقدر اوصل لك الفكرة .. لاني بسم الله على البرمجة :)

البرنامج بالامكان زراعته داخل برنامج اخر بمعنى :-

برنامج زهرة للأزياء .. وبرنامج محمد لتصدير واستيراد الجداول .

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

طيب يا محمد ايش استفيد لمن يكون برنامجك ببرنامجي ؟؟!!

طبعا لمن نشغل برنامجك يا زهرة ونفتح فورم استيراد وتصدير الجداول الي زرعناه .. يقوم بإظهار الجداول الخاصة ببرنامجك يا زهرة لتصديرها او استيراد جداول ممثالة لبرنامجك من قاعدة اخرى خارجية ..

الفكرة الي بنضيفها ب:- ( دال ما نستورد او نصدر جدول بأكمله ) .. ( نستورد بيانات من جدول فقط او نصدر بيانات الى جدول خارجي فقط .)

وبالنسبة لـ :-

اقتباس

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

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

هل لابد من وضع الحقول واسمائها للنقل بدقة ؟ ألا يمكننا اختصار الحقول بـ ( * ) لأخذ الحقول كاملة طبعا هالفكرة الي اقصدها مع ثقتي بأن الحقول متطابقة اما بالنسبة لما ذكرتي اتوقع عشان الدقة في البيانات ..

الأن راح اعطيك ملخص ما اردت بشرح كصور وان شاء الله توصل الفكرة اليك استاذتي وغاليتي زهرة ..

الصورة الاولى بهذا الشكل :-

الصورة الثانية بهذا الشكل :-

الصورة الثالثة بهذا الشكل النهائي :-

اتمنى وصلت كافة الفكرة والصور تعبر عن اضافات وليس تعديلات ..

اذا لم تصلك الفكرة غاليتي ابلغيني اضع لك مثالا ..

تقبلي خالص تحياتي ابنك / محمد

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

الرجاء الافادة يا اخوان

عندي ملف سندات صرف وقبض ارغب في ترحيل بيانات كل سند في ملف

سند صرف.rar

اقتباس

اخي الفاضل

ابحث عن الشخص الذي قام بعمل هذه القاعدة فقد تجد عنده جواب شافي وهو اعلم بها منا

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

بالتوفيق

اقتبست هذه المشاركة من احد المواضيع وقد علمت انني سببت لك حرجا بذلك استاذتي زهرة ..

كرما منك لا امرا

انا اود بنفس الفكرة حقت برنامج الزهراني ولكن ترحيل بيانات من قاعدة خارجية الى قاعدة داخليه مع مراعاة الحقول الفارغة وتعبئتها ( تحديث البيانات ان وجد هنالك حقول فارغة )

ياليت فأنا مشروعي انجز وتوقف بالمرحلة هذه ..

ومن لديه الطريقة فليساعدني ..

تحياتي لكم

تفضل اخي الكريم

za-Importing_data.rar

بالتوفيق

يعطيك الف عافية ورزقك ربي نعمة الجنة ..

ابنك / محمد عكفي

بارك الله فيك أستاذتنا وأختنا الفاضلة ..... زادك الله علما وبركة.

zahrah كتب:

الأخت الفاضلة زهرة

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

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

أرجو إفادتى

مع خالص تحياتى

za-Importing_data.rar

بالتوفيق