vahid salehi
پنج شنبه 19 مرداد 1385, 16:24 عصر
من در برنامه از کد زیر برای تهیه نسخه پشتیبان استفاده کرده ام و بانک اطلاعاتی مورد استفاده پارادوکس است
برای بازیابی آن همین کد را تکرار کرده و به جای save dialoge از open dialoge استفاده کرده ام و table را در ابتدایبرنامه
بسته و در انتها باز کرده ام اما بانک مورد نظر کپی نمی شود :
var
fileSource, fileDest: string;
begin
fileSource :=ExtractFileDir(Paramstr(0))+'/database.db';
SaveDialog1.FileName:='Database.db';
SaveDialog1.Execute;
fileDest :=SaveDialog1.FileName+'.db';
CopyFile(PChar(fileSource), PChar(fileDest), False);
end
لطفا مرا راهنمائی کنید سپاسگذارم .
برای بازیابی آن همین کد را تکرار کرده و به جای save dialoge از open dialoge استفاده کرده ام و table را در ابتدایبرنامه
بسته و در انتها باز کرده ام اما بانک مورد نظر کپی نمی شود :
var
fileSource, fileDest: string;
begin
fileSource :=ExtractFileDir(Paramstr(0))+'/database.db';
SaveDialog1.FileName:='Database.db';
SaveDialog1.Execute;
fileDest :=SaveDialog1.FileName+'.db';
CopyFile(PChar(fileSource), PChar(fileDest), False);
end
لطفا مرا راهنمائی کنید سپاسگذارم .