النسخ الاحتياطي

بالطيع ممكن لانه لا شيء مستحيل في هذه الحياة :)

اما عن نسخها فاستطيع ان افكر بطريقة واحدة في الدلفي لانه ليس لي فيها خبرة طويلة وهي ان تكتب كل Record على سطر خاص و هكذا الى اخر فاعدة البيانات ... وعند قراءته استخدم Memo1 Control حيث انها تمكنك من عمل Loop

Var i :integer;;
For i := 0 to Memo1.Lines.count -1
showmessage(memo1.Lines);

و يمكنك فصل كل قيمة في سطر واحد باستخدام مسافة و جلب هذه القيم بفصل المسافات عن بعضها والحصول على المعلومات بعد ذلك

كنت اود تزويدك بالكود لكن الدلفي ليست عندي في الوقت الحالي

السلام عليكم و رحمة الله و بركاته

اخي راكان الحنيطي لقد نظرت الى ردك بخصوص الموضوع و ارجو منك ان تزودني بفكرة او كود خاص بلغة دلفي كما و ارجوا ان توضح فكرة الـMemo التي قمت بكتابتها و لك مني جزيل الشكر

و السلام عليكم و رحمة الله و بركاته

هذا هو الكود و يمكنك من حفظ ال Database واسترجاعها ل Field واحد فقط

يمكنك التعديل عليه حسب احتياجاتك

Procedure SaveDatabase()
var sql:string;
var i:integer;
var MyFile: TextFile;
Begin
	sql := 'select * from tablename';
	AdoQuery1.Sql.Clear;
	AdoQuery1.Sql.Add(sql);
	AdoQuery1.Open;
	AssignFile(myFile, 'Test.txt');
	ReWrite(myFile);
	For i := 0 to AdoQuery1.RecordCount - 1 do
  begin
      WriteLn(myFile, AdoQuery1.FieldByName('RecordHere');
  end;
	CloseFile(MyFile);
end;

Procedure GetDataBase()
var sql:string;
Var Line:string
var MyFile:TextFile;
begin
   AssignFile(myFile, 'Test.txt');
   Reset(myFile);
    // Display the file contents
    while not Eof(myFile) do
     begin
        ReadLn(myFile, line);
        Sql := 'insert into table(FieldName) values(' + quotedstr(line) + ')';
     end;
End;