تحديث جدول في قاعدة خارجية بحسب المعرف id

[محمد القدسي]

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

وعيدكم نبارك اخواني وتقبل الله منا ومنكم

سؤالي كيف يمكن تحديث الجدول Table2 في قاعدة البيانات db2 وذلك بحسب البيانات الموجودة في الجدول Table1 في القاعدة db1   والذي يحمل نفس الحقول في الجدول الاخر وذلك بحسب المعرف id وذلك عن طريق الكود ( بدون استيراد وجلب الجدول الاخر ) 

والمرفق ان شاء الله يبين المطلوب

وبارك الله فيكم وفي علمكم

تحيث جدول في قاعدة خارجية.rar

[jjafferr]

وعليكم السلام

 

مافي داعي تستورد/تجلب الجدول Table1 من قاعدة البيانات db1 الى db2 ، وانما تقدر تربطه فقط

 

جعفر

[ابو عمار القدسي]

حياك الله استاذي جعفر

 انا اريد العملية تتم بدون ربط او استيراد الجداول

ولك مني جزيل الشكر

[Shivan Rekany]

اليك هذا لعل يفيدك

Dim objAcc As Access.Application
    Set objAcc = GetObject(txtPath)
        objAcc.DoCmd.DeleteObject acTable, "table2"
        objAcc.Application.Quit
        Set objAcc = Nothing
    DoCmd.CopyObject txtPath, "table2", acTable, "table1"

الكود اولا سيحذف جدول باسم تابل 2

بعدين سيعمل نسخ جدول تابل 1 الى قاعدة خارجية ويتم تغير الاسم بتيل 2

جرب ووافيني بالنتيجة

[ابو عمار القدسي]

استاذي شيفان اشكر تعاونك 

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

 

[Shivan Rekany]

7 ساعات مضت, ابو عمار القدسي said:

استاذي شيفان اشكر تعاونك 

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

 

اتفضل اليك هذا 

Dim sql As String
'sql = "UPDATE [C:\Users\MyShiv\Desktop\تحيث جدول في قاعدة خارجية\db1.mdb].Table1 INNER JOIN [C:\Users\MyShiv\Desktop\تحيث جدول في قاعدة خارجية\db2.mdb].Table2 ON Table1.ID = Table2.ID SET Table2.nAME = [Forms]![Form1]![nAME], Table2.no_phone = [Forms]![Form1]![no_phone] WHERE (((Table2.ID)=[Forms]![Form1]![ID]));"
'sql = "UPDATE Table1 INNER JOIN [C:\Users\MyShiv\Desktop\تحيث جدول في قاعدة خارجية\db2.mdb].Table2 ON Table1.ID = Table2.ID SET Table2.nAME = [Forms]![Form1]![nAME], Table2.no_phone = [Forms]![Form1]![no_phone] WHERE (((Table2.ID)=[Forms]![Form1]![ID]));"
sql = "UPDATE Table1 INNER JOIN [db2].Table2 ON Table1.ID = Table2.ID SET Table2.nAME = [Forms]![Form1]![nAME], Table2.no_phone = [Forms]![Form1]![no_phone] WHERE (((Table2.ID)=[Forms]![Form1]![ID]));"
DoCmd.SetWarnings False
DoCmd.RunSQL (sql)
DoCmd.SetWarnings True
MsgBox "تم تحديث"

واليك قاعدة بيانات بعد تعديل

اولا اختر قاعدة بيانات باسم db2

بعدين اضغطعلى زر للتحديث

 

تحيث جدول في قاعدة خارجية - Copy.rar

[محمد القدسي]

ممتاز اخي شيفان وبارك الله لك في علمك

ولاكن اخي كيف اجعل الكود يحدد مسار القاعدة من خلال مربع النص المحدد في النموذج

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

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

[sandanet]

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

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

 

تحياتي

تم تعديل يونيو 30, 2017 بواسطه sandanet

[محمد القدسي]

حياك الله اخي واستاذي sandanet

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

وقد وجدت مطلوبي عند استاذي وكلكم اساتذتي عند الاستاذ شيفان 

واشكركم جميعا على تعاونكم مع اخوانكم والله يزيد من علمكم وبارك فيكم