كيف يتم نقل البيانات الموجوده في جدول مصمم بالأكسس الى الحقول التي تساويه في الجدول الموجود في الاس كيو ال

يمكن ذلك عن طريق معالج الاستيراد والتصدير .

فهذا المعالج اذا وجد الجدول في القاعدة الهدف لايقوم بانشاءه وانما يقوم بنقل البيانات له فقط

السلام عليكم

هناك طريقتان الاولى عن طريق المعالج كما قال لك صديق اما الطريقة الثانية عن طريق الكود اى يتم ربط الجدول الاول باداة الربط الموجودة لديك فى اذكان فجول بيسك اوغيرة من الغات فعلى سبيل المثال فجوال بيسك 6 يكون الكود

كالتالى

على سبيل المثال نقول ان الداتا 1 هى اداه الربط بالجدول المراد نقل البيانات منه

اما الداتا2 هى اداة ربط الجدول الثانى المراد نقل البيانات له

وعلى حسب عدد الحقول التى بالجدول لديك فهنا لدينا جدول يحتوى على تسعة حقول

اى ان الكود هذه يعنى ان السجل هذا الذى فى الجدول الاول يساوى السجل فى الجدول الثانى ثم يحدث اويحفظ السجل ثم يذهب الى السجل التالى وهكذا حتى يكتمل السجلات

واى استفسار فى هذا الكود اتصل بى على الاميل

naserahmeda_1980@yahoo.com

data1.Refresh

data2.Refresh

data1.Recordset.MoveFirst

Do While Not data1.Recordset.EOF

data2.Recordset.AddNew

data2.Recordset.Fields(0) = data1.Recordset.Fields(0)

data2.Recordset.Fields(1) = data1.Recordset.Fields(1)

data2.Recordset.Fields(2) = data1.Recordset.Fields(2)

data2.Recordset.Fields(3) = data1.Recordset.Fields(3)

data2.Recordset.Fields(4) = data1.Recordset.Fields(4)

data2.Recordset.Fields(6) = data1.Recordset.Fields(6)

data2.Recordset.Fields(7) = data1.Recordset.Fields(7)

data2.Recordset.Fields(8) = data1.Recordset.Fields(8)

data2.Recordset.Fields(9) = data1.Recordset.Fields(9)

data2.Recordset.UpdateBatch adAffectCurrent

data1.Recordset.MoveNext

Loop

وشكرا وإن شاء الله هذا الطريقة تنقل البيانات فقط من الجدول

شكرا جزيلا للإخوة TareqVB و شيحا1980

وللأسف أخي شيحا1980 أنا لا أستخدم البيسك 6 ولكن الفكرة وضحت ...

وشكرا جزيلا مرة أخرة لكم ..