كيف يتم تحديث جدولين من قاعدة إلى قاعدة آخرى اكسس

[alkadi06]

كيف يتم تحديث جدولين من قاعدة إلى قاعدة آخرى اكسس

الجدولين للقاعدتين نفس الخصائص كي انقل بيانات الجدولين إلى قاعدة آخرى عملية تحديث

مشروع الملف مرفق

كود :

http://www.aafaq.com.sa/demo/tg.rar

[zaher207]

لنفترض انك تتعامل مع adotable طبعا سيكون لديك عنصرين من نوع adotable وكل واحد منهما مرتبط بجدول

كود :

while adotabe1.eof=false do Begin Adotable2.append; ;Adotable2.field1=adotable1.field1 Adotable2.post; End;

طبعا هذا كود افراضي وليس حقيقي

[alkadi06]

شكرا على الرد

حاولت بالمرفق علما بان لدي قاعدتين

[alkadi06]

كود :

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
الآن ينسخ الجدول من قاعدة ألى قاعدة آخرى اكسس ولكن سجل واحد فقط

باقي ان ينسخ جميع السجلات
ماهو الحل

[zaher207]

عزيزي كودك فيه خطأ.. .. من خلال كودك ينسخ سجل واحد ولكن لعدة مرات الحل ان تضع
Next
بعد الكود التالي
Adotable2.post;
end;

[alkadi06]

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;

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

تحياتي لك