+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم تحديث جدولين من قاعدة إلى قاعدة آخرى اكسس (/showthread.php?tid=4817)
كيف يتم تحديث جدولين من قاعدة إلى قاعدة آخرى اكسس - alkadi06 - 27-12-2012
كيف يتم تحديث جدولين من قاعدة إلى قاعدة آخرى اكسس
الجدولين للقاعدتين نفس الخصائص كي انقل بيانات الجدولين إلى قاعدة آخرى عملية تحديث
مشروع الملف مرفق
كود :
http://www.aafaq.com.sa/demo/tg.rarكيف يتم تحديث جدولين من قاعدة إلى قاعدة آخرى اكسس - zaher207 - 28-12-2012
لنفترض انك تتعامل مع adotable طبعا سيكون لديك عنصرين من نوع adotable وكل واحد منهما مرتبط بجدول
كود :
while adotabe1.eof=false do
Begin
Adotable2.append;
;Adotable2.field1=adotable1.field1
Adotable2.post;
End;كيف يتم تحديث جدولين من قاعدة إلى قاعدة آخرى اكسس - alkadi06 - 28-12-2012
شكرا على الرد
حاولت بالمرفق علما بان لدي قاعدتين
كيف يتم تحديث جدولين من قاعدة إلى قاعدة آخرى اكسس - alkadi06 - 02-01-2013
كود :
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 - 04-01-2013
عزيزي كودك فيه خطأ.. .. من خلال كودك ينسخ سجل واحد ولكن لعدة مرات الحل ان تضع
Next
بعد الكود التالي
Adotable2.post;
end;
كيف يتم تحديث جدولين من قاعدة إلى قاعدة آخرى اكسس - alkadi06 - 05-01-2013
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;
نعم اخوي تم حل المشكلة وشاكر لتعاونك معي
الآن يستورد كل الجداول في قاعدة البيانات ووضعها في القاعدة الأصليةمع تغيير اسم الجدول واسماء الحقول
تحياتي لك