تهيه فايل پشتيبان از فايل اکسس

[mahdi_beg]

سلام
چطوري ميشه در دلفي از فايل اکسس نسخه پشتيبان گرفت و رستورش کرد.
با تشکر

[merced]

كافيه ازش كپي بگيري
CopyFile

بهتره اون كپي رو zip كني
و بهتره كه قبل از كپي Compact هم بشه

[MSHService]

سلام رفیق
بیا به
http://barnamenevis.org/forum/showthread.php?t=149293
اونجا کلی بحث شده.

[mahdi_beg]

سلام رفیق
بیا به
http://barnamenevis.org/forum/showthread.php?t=149293
اونجا کلی بحث شده.

اين کد که جواب نمي ده.

[mahdi_beg]

ميشه دقيق تر توضيح بدين.

[mahdi_beg]

ميشه دقيق تر جواب بدين.

[mahdi_beg]

كافيه ازش كپي بگيري
CopyFile

بهتره اون كپي رو zip كني
و بهتره كه قبل از كپي Compact هم بشه

ميشه بيشتر توضيح بدين
با تشکر.

[mahdi_beg]

كافيه ازش كپي بگيري
CopyFile

بهتره اون كپي رو zip كني
و بهتره كه قبل از كپي Compact هم بشه
ميشه بيشتر توضيح بدين
باتشکر

[MSHService]

سلام


CopyFile(pChar(Dir+'\Data\Main.mdb'),pChar(Dir+'\t emp\Main.mdb'),false);
CopyFile(pChar(Dir+'\Data\Setting.mdb'),pChar(Dir+ '\temp\Setting.mdb'),false);

که Main , Setting فایلهات هستن.
بعد با نمونه های آماده کامپوننت ZipForg اونا رو فشرده کن.
خوش باشی.

[mahdi_beg]

سلام


CopyFile(pChar(Dir+'\Data\Main.mdb'),pChar(Dir+'\t emp\Main.mdb'),false);
CopyFile(pChar(Dir+'\Data\Setting.mdb'),pChar(Dir+ '\temp\Setting.mdb'),false);

که Main , Setting فایلهات هستن.
بعد با نمونه های آماده کامپوننت ZipForg اونا رو فشرده کن.
خوش باشی.
سلام
من از کدی که گذاشتین استفاده کردم نسخه پشتیبان رو جواب داد اما وقتی ریستور میکنم اطلاعات رو نشون نمی ده و باید یک بار برنامه رو ببندم تا ریستور جواب بده.

با تشکر از دوست خوبمون:متعجب:

[MSHService]

عزیز ببین فقط کافی Connectionت رو قطع کنی و بعد از Restore دوباره Trueش کنی.
موفق و پولدار باشی.

[DelphiFriend]

برای بک آپ می تونی از کد

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
vS, vD: TFileStream;
begin
try
ADOConnection1.Close;
vS:= TFileStream.Create(ExtractFilePath(Application.Exe Name)+'db1.mdb', fmOpenRead);
vD:= TFileStream.Create('C:\SampleBackup.dat', fmCreate or fmOpenWrite);
CompressStrm(vS, vD);
finally
vS.Free;
vD.Free;
ADOConnection1.Open;
adoTable1.Open;
end;
end;

و برای Restore هم از کد

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
vS, vD: TFileStream;
begin
try
ADOConnection1.Close;
vS:= TFileStream.Create('C:\SampleBackup.dat', fmOpenRead);
vD:= TFileStream.Create(ExtractFilePath(Application.Exe Name) + 'db1.mdb', fmCreate or fmOpenWrite);
DecompressStrm(vS, vD);
finally
vS.Free;
vD.Free;
ADOConnection1.Open;
adoTable1.Open;
end;
end;

استفاده کنی . البته این ها هم توابعش.


function CompressStrm(pSor, pDes: TStream): Single;
var
vCompStrm: TCompressionStream;
begin
vCompStrm:= TCompressionStream.Create(clMax, pDes);
try
vCompStrm.CopyFrom(pSor, pSor.Size);
Result:= vCompStrm.CompressionRate;
finally
vCompStrm.Free;
end;
end;
procedure DecompressStrm(pSor, pDes: TStream);
var
vDecompStrm: TDecompressionStream;
vNRead: Integer;
vBuffer: array[0..1023] of Char;
begin
vDecompStrm:= TDecompressionStream.Create(pSor);
try
repeat
vNRead:= vDecompStrm.Read(vBuffer, 1024);
pDes.Write(vBuffer, vNRead);
until vNRead = 0;
finally
vDecompStrm.Free;
end;
end;

البته میتونی تو سایت جستجو کنی . مطمئننا مطالب خوبی پیدا خواهی کرد.

موفق باشی.