02-01-2013, 09:35 PM
كود :
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
الآن ينسخ الجدول من قاعدة ألى قاعدة آخرى اكسس ولكن سجل واحد فقط
باقي ان ينسخ جميع السجلات
ماهو الحل