تبديل DB به Txt و برعکس

چطور ميتوان يک فايل db را از داخل برنامه به يک فايل txt تبديل کرد = convert يا برعکس

از چه ديتابيسي استفاده ميكني؟
sql server امكان همچين اتصالي رو ميده
بستگي به شرايط كاري هم كه مي خواهيد داره

سلام
اگه منظورت و درست متوجه شده باشم میخوای یه بانک پارادوکس رو تبدیل به txt تبدیل کنی
اگه درسته اینم کدش فکر کنم درسته و گر نه بیشتر توضیح بده تا حل کنیم :
اینو تو قسمت Type تعریف کن :

کد:

---

  type
    recsave=record
  name :string[10];
  size:string[10];
  weight:string[10];
  end;

---

بعد کدهای لازمه رو بنویس

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var path:String ;
count:Integer ;
begin
path :=ExtractFilePath(Application.ExeName);
path:=path+'sam.txt';
AssignFile(fsavetofile,'sam.txt');
if FileExists(path) then
reset(fsavetofile)
else
Rewrite(fsavetofile);

Table1.First ;
for count:=0 to Table1.RecordCount -1 do
  begin
    recordofsave.name:=table1.FieldValues['name'];
    recordofsave.size :=Table1.FieldValues['size'];
    recordofsave.size :=Table1.FieldValues['weight'];
    Write(fsavetofile,recordofsave);
    Table1.Next ;
    end;
    CloseFile(fsavetofile);
end;

---

واسه تبدیلشم به db باید یه تیبل دیگه رو تو فرمت بزاری و اونو رکورد به رکورد بخونی و تو تیبل جدید بریزی
اگه لازم شد بگو تا برات بفرستم
موفق باشید

نقل قول:

---

نوشته شده توسط delphianddotnet [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
اگه منظورت و درست متوجه شده باشم میخوای یه بانک پارادوکس رو تبدیل به txt تبدیل کنی
اگه درسته اینم کدش فکر کنم درسته و گر نه بیشتر توضیح بده تا حل کنیم :
اینو تو قسمت Type تعریف کن :

کد:

---

  type
    recsave=record
  name :string[10];
  size:string[10];
  weight:string[10];
  end;

---

بعد کدهای لازمه رو بنویس

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var path:String ;
count:Integer ;
begin
path :=ExtractFilePath(Application.ExeName);
path:=path+'sam.txt';
AssignFile(fsavetofile,'sam.txt');
if FileExists(path) then
reset(fsavetofile)
else
Rewrite(fsavetofile);
 
Table1.First ;
for count:=0 to Table1.RecordCount -1 do
  begin
    recordofsave.name:=table1.FieldValues['name'];
    recordofsave.size :=Table1.FieldValues['size'];
    recordofsave.size :=Table1.FieldValues['weight'];
    Write(fsavetofile,recordofsave);
    Table1.Next ;
    end;
    CloseFile(fsavetofile);
end;

---

واسه تبدیلشم به db باید یه تیبل دیگه رو تو فرمت بزاری و اونو رکورد به رکورد بخونی و تو تیبل جدید بریزی
اگه لازم شد بگو تا برات بفرستم
موفق باشید

---

اولا ممنون
الف = در قسمت type پيغام خطا ميدهد
ب = کد مربوط به قسمت دوم را بفرست
با تشکر

رکورد رکورد در يک فايل ذخيره کردم يک جوري درست شد

نقل قول:

---

رکورد رکورد در يک فايل ذخيره کردم يک جوري درست شد

---

سلام
مگه کد های بالا چیکار میکنه؟؟؟؟؟؟؟