كيف يتم تحديث جدولين من قاعدة إلى قاعدة آخرى اكسس
الجدولين للقاعدتين نفس الخصائص كي انقل بيانات الجدولين إلى قاعدة آخرى عملية تحديث
مشروع الملف مرفق
كود :
http://www.aafaq.com.sa/demo/tg.rar
لنفترض انك تتعامل مع adotable طبعا سيكون لديك عنصرين من نوع adotable وكل واحد منهما مرتبط بجدول
كود :
while adotabe1.eof=false do
Begin
Adotable2.append;
;Adotable2.field1=adotable1.field1
Adotable2.post;
End;
طبعا هذا كود افراضي وليس حقيقي
شكرا على الرد
حاولت بالمرفق علما بان لدي قاعدتين
كود :
begin
with ADOTable1 do
Begin
Open;
first;
while ADOTable1.eof=false do
begin
Adotable2.Open;
Adotable2.Append;
Adotable2.FieldByName('t1').AsString := ADOTable1.FieldByName('t1').AsString;
Adotable2.FieldByName('t2').AsString := ADOTable1.FieldByName('t2').AsString;
Adotable2.FieldByName('t3').AsString := ADOTable1.FieldByName('t3').AsString;
Adotable2.FieldByName('t4').AsString := ADOTable1.FieldByName('t4').AsString;
Adotable2.post;
end;
end;
end;
ADOTable1 مرتبطة ADOConnection1
Adotable2 مرتبطة ADOConnection2
الآن ينسخ الجدول من قاعدة ألى قاعدة آخرى اكسس ولكن سجل واحد فقط
باقي ان ينسخ جميع السجلات
ماهو الحل
عزيزي كودك فيه خطأ.. .. من خلال كودك ينسخ سجل واحد ولكن لعدة مرات الحل ان تضع
Next
بعد الكود التالي
Adotable2.post;
end;
with UniTable1 do
Begin
UniTable1.TableName := 'dd';
UniTable1.Open;
UniTable1.first;
while UniTable1.eof=false do
begin
UniTable2.TableName := 'dd';
UniTable2.Open;
UniTable2.Append;
UniTable2.FieldByName('t1').AsString := UniTable1.FieldByName('t1').AsString;
UniTable2.FieldByName('t2').AsString := UniTable1.FieldByName('t2').AsString;
UniTable2.FieldByName('t3').AsString := UniTable1.FieldByName('t3').AsString;
UniTable2.FieldByName('t4').AsString := UniTable1.FieldByName('t4').AsString;
UniTable2.FieldByName('t5').AsString := UniTable1.FieldByName('t5').AsString;
UniTable2.post;
UniTable1.Next;
نعم اخوي تم حل المشكلة وشاكر لتعاونك معي
الآن يستورد كل الجداول في قاعدة البيانات ووضعها في القاعدة الأصليةمع تغيير اسم الجدول واسماء الحقول
تحياتي لك