انتقال از فایل اکسل به جدول اکسس

[khoshblagh]

با سلام خدمت دوستان
من با کد زیر اطلاعاتی را از فایل اکسل به جدول اکسس با کد زیر منتقل مینمایم.


while not ExcelTable.Eof do
begin
AccessTable.Append;
for i:=0 to ExcelTable.FieldCount-1 do
AccessTable.Fields[i].Value:=ExcelTable.Fields[i].Value;
AccessTable.Post;
ExcelTable.Next;
end;


بعضی وقتها فایل اکسل مورد نظر فیلدها(ستونها) برعکس چیده شده است. دستور بالا را به چه شکلی باید تغییر داد که ترتیب فیلدها در موقع انتقال برعکس شوند. تعداد فیلدهای فایل اکسل معادل 6 فیلد میباشند. متشکرم

[فتح الله زاده]

اگه ميخواي اشتباه نشه با نام فيلدها كار كن

AccessTable.FieldByName('name').AsString:=ExcelTab le.FieldByName('name').AsString