بك اپ و ريستور در بانك dbisam
سلام خدمت دوستان من يك برنامه با بانك dbisam دارم از اين بانك بك اپ گرفتم حالا كه ميخواهم بك اپ ريستور كنم با اين پيغام برخورد مي كنم در ضمن كدي كه نوشتم اينه کد:
کد:
procedure TForm18.Button1Click(Sender: TObject);
var
ListOfTablesBackUp:Tstrings;
begin
try
if OpenDialog1.Execute then
begin
ListOfTablesBackUp:=TStringList.Create;
ListOfTablesBackUp:=TStringList.Create;
ListOfTablesBackUp.Add('abfa1');//0
// ListOfTablesBackUp.Add('Com');//1
//... and other table
with Form2.DBISAMDatabase1 do
begin
// Form2.DBISAMDatabase1.Close;//this function close all tables
form2.DBISAMDatabase1.Connected:=false;
form2.DBISAMDatabase1.Directory:=ExtractFileDir(Application.ExeName)+'C:\newfolder1';//path of database folder
form2.DBISAMDatabase1.Open;
form2.DBISAMDatabase1.Connected:=true;
//only if use DBISAMUpdateSQL component use
{MainForm.DBISAMUpdateSQL1.SQL[ukDelete].Clear;
MainForm.DBISAMUpdateSQL1.SQL[ukModify].Clear;
MainForm.DBISAMUpdateSQL1.SQL[ukInsert].Clear;}
if form2.DBISAMDatabase1.Restore(OpenDialog1.FileName,ListOfTablesBackUp) then
begin
ShowMessage('ÚãáíÇÊ ÈÇÒíÇÈí ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ, ')
end
else
begin
ShowMessage('ÚãáíÇÊ ÈÇÒíÇÈí ÈÇ Ô~ÓÊ ãæÇÌå ÔÏ');
// Form2.DBISAMDatabase1.Close;//Close all tabales
end;
end;
ListOfTablesBackUp.Free;
end;
except
ShowMessage('ÚãáíÇÊ ÈÇÒíÇÈí ÈÇ Ô~ÓÊ ãæÇÌå ÔÏ');
end;
end;
اينم پيغام خطا dbisam engine error #11047 unknown operating system error 11047 occurred with the table or backup file c:\newfolder1 'dbisam.lck" . process stopped