المساعدة فى مخاطبة قاعدة البيانات انتربيز برمجيا

var i: integer;

begin

IBTable1.first;

while not IBTable1.eof do

begin

i:= 0;

while i < IBTable1ID.value do // اسم

begin

i := i +1;

// هنا تضع الكود الذي يقوم بعملية الادخال على الجدول الاخر مثلا

IBTable2.insert;

IBTable2.fields[0].value:= IBTable1.fields[0].value ;

IBTable2.fields[1].value:= IBTable1.fields[1].value ;

//تضع الحقول التي تريد نقلها

IBTable2.Post;

end;

IBTable1.next;

end;

end;

هذا الكود لنقل الجداول بدون تكرار

ارجو الردود او ارسال تعليقات