دوست عزيز من اين كدي كه بود به اينصورت نوشتم ولي باز هم همون ارور اولي را مي ده مي شه بررسي كنيد و درستش برام قرار بديد در ضمن اسم تيبل من هست new1 و اسم بانكم new1
procedure TForm17.Button1Click(Sender: TObject);
var
TablesToBackup: TStrings;
begin
TablesToBackup:=TStringList.Create;
try
Form2.DBISAMTable1.Active:=true;
with Form2.DBISAMTable1 do
begin
Form2.DBISAMTable1.DatabaseName:='new1';
Form2.DBISAMTable1.Database.Directory:='C:\newfold er1';
with TablesToBackup do
begin
Add('new1');
end;
if form2.DBISAMTable1.Database.Backup('c:\newfolder2' +
StringReplace(DateToStr(Date),
'/','',[rfReplaceAll])+'.bkp',
'Daily Backup for '+DateToStr(Date),6,
TablesToBackup) then
ShowMessage('Backup was successful')
else
ShowMessage('Backup failed');
end;
finally
TablesToBackup.Free;
end;
end;
با تشكر از لطفتان