چطور ميتوان يک فايل db را از داخل برنامه به يک فايل txt تبديل کرد = convert يا برعکس
Printable View
چطور ميتوان يک فايل db را از داخل برنامه به يک فايل txt تبديل کرد = convert يا برعکس
از چه ديتابيسي استفاده ميكني؟
sql server امكان همچين اتصالي رو ميده
بستگي به شرايط كاري هم كه مي خواهيد داره
سلام
اگه منظورت و درست متوجه شده باشم میخوای یه بانک پارادوکس رو تبدیل به txt تبدیل کنی
اگه درسته اینم کدش فکر کنم درسته و گر نه بیشتر توضیح بده تا حل کنیم :
اینو تو قسمت Type تعریف کن :
بعد کدهای لازمه رو بنویسکد:type
recsave=record
name :string[10];
size:string[10];
weight:string[10];
end;
واسه تبدیلشم به db باید یه تیبل دیگه رو تو فرمت بزاری و اونو رکورد به رکورد بخونی و تو تیبل جدید بریزیکد: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;
اگه لازم شد بگو تا برات بفرستم
موفق باشید
نقل قول:
اولا ممنون
الف = در قسمت type پيغام خطا ميدهد
ب = کد مربوط به قسمت دوم را بفرست
با تشکر
رکورد رکورد در يک فايل ذخيره کردم يک جوري درست شد
سلامنقل قول:
رکورد رکورد در يک فايل ذخيره کردم يک جوري درست شد
مگه کد های بالا چیکار میکنه؟؟؟؟؟؟؟