khoshblagh
یک شنبه 31 اردیبهشت 1391, 11:29 صبح
با سلام خدمت دوستان
من با کد زیر اطلاعاتی را از فایل اکسل به جدول اکسس با کد زیر منتقل مینمایم.
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 فیلد میباشند. متشکرم
من با کد زیر اطلاعاتی را از فایل اکسل به جدول اکسس با کد زیر منتقل مینمایم.
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 فیلد میباشند. متشکرم