ایمپورت اطلاعات ازیک فایلcsvبه جدول دربانک اکسس

[amirkazem]

باسلام وآرزوی توفیق وقبولی طاعات وعبادات وتبریک ولادت امام حسن مجتبی علیه السلام
جستجوکردم ولی مطالب مفیدی که جنبه آموزشی مناسب داشته باشدراپیدانکردم.
یک فایل بافرمت(csv) داریم که حاوی مشخصات افرادهستش.حال می خواهیم بادستورات مناسب فیلدهای خاصی ازاین اطلاعات راکه به وسیله کاما ازهم جداشده اند، دریک جدول دربانک اکسس ذخیره کنیم.(Import)لطفاض دوستان راهنمایی بفرمایید.
البته تصمیم داریم این کار(ایمپورت) ازطریق یک فرم وباکلیک برروی یک دکمه انجام شود.:متفکر:

[یوسف زالی]

سلام.
به شدت ساده هست.
نمونه اش رو می گذارم تا ایده بگیرید.
باقیش رو خودتون تلاش کنید و اگر سوال داشتید بپرسید.



const
DELIMITER = ',';
var
lst, l: TStringList;
i, j: integer;
Qry: string;
begin
lst := TStringList.Create;
l := TStringList.Create;


lst.LoadFromFile('Somewhere to load');


for i := 0 to lst.Count -1 do
begin
l.Text := StringReplace(lst[i], DELIMITER, #13#10, [rfReplaceAll]);


Qry := '';
for j := 0 to l.Count -1 do
if Some conditions here then
Qry := Qry + IfThen(Qry = '', '', ', ') + l[j];


Qry := 'insert into ATable Values(' + Qry + ')';


Execute Qry..
end;


lst.Destroy;
l.Destroy;
end;

[amirkazem]

:افسرده::گیج::خجالت::افسرده:
ای کاش چیزی سردرمی آوردم!!!!!!!!!!!!!!

[hadisalahi2]

با تشکر از یوسف جان و اگه جسارت نباشه
از کامپوننت EMS Advance Import استفاده کن
بدون نیاز حتی به یک خط کد نوشتن راحت میتونی اطلاعات رو وارد برنامت کنی