آپگرید اطلاعات اصلی یک پروژه از طریق فایل خروجی اکسس

با سلام
فرض کنید دوتا جدول با فیلد های یکسان داریم و از یک جدول در نرم افزار اصلی استفاده میکنیم و جدول بعدی با همان فیلد در جای دیگر با اطلاعات جدید موجود می باشد .. چطور میتوانم کدی بنویسم که اطلاعات فیلد جدید از فایل بیرونی را به فایل و اطلاعات نرم افزار اصلی اضافه کنم ..البته اطلاعات جدید به نرم افزارم انتقال داده بشه و به اطلاعات قبلی اضافه بشه ...
به نوعی میشه گفت آپگرید فیلد های یه جدول اکسس به اکسس دیگه ...
خواهشاً کدش رو بنویسید .. ممنون میشم ..
!!!!!!!! انتقات اطلاعات جدولی به جدول دیگر با فیلد های یکسان !!!!!!

نقل قول:

---

نوشته شده توسط mahdisam

با سلام
فرض کنید دوتا جدول با فیلد های یکسان داریم و از یک جدول در نرم افزار اصلی استفاده میکنیم و جدول بعدی با همان فیلد در جای دیگر با اطلاعات جدید موجود می باشد .. چطور میتوانم کدی بنویسم که اطلاعات فیلد جدید از فایل بیرونی را به فایل و اطلاعات نرم افزار اصلی اضافه کنم ..البته اطلاعات جدید به نرم افزارم انتقال داده بشه و به اطلاعات قبلی اضافه بشه ...
به نوعی میشه گفت آپگرید فیلد های یه جدول اکسس به اکسس دیگه ...
خواهشاً کدش رو بنویسید .. ممنون میشم ..
!!!!!!!! انتقات اطلاعات جدولی به جدول دیگر با فیلد های یکسان !!!!!!

---

سلام

به همان شکلی که اطلاعات در جدول اصلی شما وجود داره و خواندن و نوشتن رو انجام میدید، یک کانکشن و کوئری دیگه هم برای بانک دوم ایجاد کنید و با یه حلقه از اولی بخونید و توی دومی بریزید

موفق باشیم

ممنون از پاسختون .. خواهشاً اگه برای شما ممکنه یه سورس ساده یا کد مربوطه رو بگذارید تا انجامش بدم ..ممنون میشم .. خیلی بهش نیازمندم ..خدا خیرتون بده ..

نقل قول:

---

نوشته شده توسط mahdisam

ممنون از پاسختون .. خواهشاً اگه برای شما ممکنه یه سورس ساده یا کد مربوطه رو بگذارید تا انجامش بدم ..ممنون میشم .. خیلی بهش نیازمندم ..خدا خیرتون بده ..

---

سلام

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

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

  FDConnection2.Open();



  FDConnection1.Open();

  FDQuery1.Close;

  FDQuery1.SQL.Clear;

  FDQuery1.SQL := 'SELECT * FROM YourTableName';

  FDQuery1.Open();

  while not FDQuery1.Eof do

  begin

    FDQuery2.Close;

    FDQuery2.SQL.Clear;

    FDQuery2.SQL := 'INSERT INTO YourTableName VALUES(:Param,:Param2,:Param3';

    FDQuery2.ParamByName('Param1').AsString := FDQuery1.FieldByName('FieldName1').AsString;

    FDQuery2.ParamByName('Param2').AsString := FDQuery1.FieldByName('FieldName2').AsString;

    FDQuery2.ParamByName('Param3').AsString := FDQuery1.FieldByName('FieldName3').AsString;

    FDQuery2.ExecSQL;

    Next

  end;

end;

Param1,Param2,Param3 متغیر هستند که در درون حلقه مقادیر رو میگیرن. در صورتیکه تعداد فیلد های جدول بیشتر یا کمتر باشه، میتونید تعدادشون رو(با فرض نام یگانه) تغییر بدید.
FieldName هم که نام فیلد جدول شما هستند و باید دقیقا همون نامی باشند که در جدول دارند.
YourTableName هم نام جدول شماست که به نام واقعیش تغییر بدید.

موفق باشیم

نقل قول:

---

نوشته شده توسط hp1361

سلام

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

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

  FDConnection2.Open();



  FDConnection1.Open();

  FDQuery1.Close;

  FDQuery1.SQL.Clear;

  FDQuery1.SQL := 'SELECT * FROM YourTableName';

  FDQuery1.Open();

  while not FDQuery1.Eof do

  begin

    FDQuery2.Close;

    FDQuery2.SQL.Clear;

    FDQuery2.SQL := 'INSERT INTO YourTableName VALUES(:Param,:Param2,:Param3';

    FDQuery2.ParamByName('Param1').AsString := FDQuery1.FieldByName('FieldName1').AsString;

    FDQuery2.ParamByName('Param2').AsString := FDQuery1.FieldByName('FieldName2').AsString;

    FDQuery2.ParamByName('Param3').AsString := FDQuery1.FieldByName('FieldName3').AsString;

    FDQuery2.ExecSQL;

    Next

  end;

end;

Param1,Param2,Param3 متغیر هستند که در درون حلقه مقادیر رو میگیرن. در صورتیکه تعداد فیلد های جدول بیشتر یا کمتر باشه، میتونید تعدادشون رو(با فرض نام یگانه) تغییر بدید.
FieldName هم که نام فیلد جدول شما هستند و باید دقیقا همون نامی باشند که در جدول دارند.
YourTableName هم نام جدول شماست که به نام واقعیش تغییر بدید.

موفق باشید

---

من اگه دیتابیسم اکسسه میتونم از این شیوه استفاده کنم ؟

نقل قول:

---

نوشته شده توسط mahdisam

من اگه دیتابیسم اکسسه میتونم از این شیوه استفاده کنم ؟

---

سلام

بله. میتونید. محدودیتی ندارید.

فقط با توجه به بانکتون باید درایور های مربوطه رو روی فرم یا دیتاماژول(جایی که این کدها رو قرار میدید) بزارید.

مثلا برای اکسس کامپوننت FDPhysMSAccessDriverLink رو باید بر روی فرم قرار بدید.

در ضمن بطور کلی FDGUIxWaitCursor هم فراموش نشه.

موفق باشیم

میشه یه نمونه کوچیک از این پروژه رو بگذارید ؟

نقل قول:

---

نوشته شده توسط hp1361

سلام

بله. میتونید. محدودیتی ندارید.

فقط با توجه به بانکتون باید درایور های مربوطه رو روی فرم یا دیتاماژول(جایی که این کدها رو قرار میدید) بزارید.

مثلا برای اکسس کامپوننت FDPhysMSAccessDriverLink رو باید بر روی فرم قرار بدید.

در ضمن بطور کلی FDGUIxWaitCursor هم فراموش نشه.

موفق باشیم

---

کامپوننت فوق رو هم لینک کنید ..