افضل طريقة لنقل البيانات من جدول لاخر

[format82]

استعمل هذا الكود لنقل البيانات من جدول الي اخر ولكنها بطئية
واحيانا لا يقوم بنقل جميع البيانات

علا يوجد طريقة اخرى اسرع وافضل منه
او عن طريق Query
ولكم جزيل الشكر

كود :

with ADO_emp_f do begin Open; first; while not eof do begin ADO_emp_l.Open; ADO_emp_l.Append; ADO_emp_l.FieldByName('name_emp').AsString:=ADO_emp_f.FieldByName('name_emp').AsString; ADO_emp_l.FieldByName('eligible').AsString:=ADO_emp_f.FieldByName('eligible').AsString; ADO_emp_l.FieldByName('date_birth').AsString:=ADO_emp_f.FieldByName('date_birth').AsString; ADO_emp_l.FieldByName('rec_date').AsString:=ADO_emp_f.FieldByName('rec_date').AsString; ADO_emp_l.FieldByName('date_ret').AsString:=ADO_emp_f.FieldByName('date_ret').AsString; ADO_emp_l.FieldByName('workplace').AsString:=ADO_emp_f.FieldByName('workplace').AsString; ADO_emp_l.FieldByName('grade').AsString:=ADO_emp_f.FieldByName('grade').AsString; ADO_emp_l.FieldByName('profession').AsString:=ADO_emp_f.FieldByName('profession').AsString; ADO_emp_l.FieldByName('no_birth').AsString:=ADO_emp_f.FieldByName('no_birth').AsString; ADO_emp_l.Post; next; end; end; ShowMessage('Êã äÞá ÌãíÚ ÇáÈíÇäÇÊ');