试一下下面的代码,对你有帮助的,。 var filename:string;//目的表名 source,target: TFileStream have:boolean; begin source:=TFileStream.Create('路径名\源表名.db',fmOpenRead ); try target:=TFileStream.Create(路径名\filename,fmOpenWrite or fmCreate); try if target.CopyFrom(source,source.Size)=source.Size then ShowMessage('成功备份到+filename+'!!!'); finally target.Free; end; finally source.Free; end; end;
var
filename:string;//目的表名
source,target: TFileStream
have:boolean;
begin
source:=TFileStream.Create('路径名\源表名.db',fmOpenRead );
try
target:=TFileStream.Create(路径名\filename,fmOpenWrite or
fmCreate);
try
if target.CopyFrom(source,source.Size)=source.Size then
ShowMessage('成功备份到+filename+'!!!');
finally
target.Free;
end;
finally
source.Free;
end;
end;
我用你的方法不行,提示:
source:=tfilestream.create(....,fmopenread);
不能以只读的方式打开。
我用你的方法不行,提示:
source:=tfilestream.create(....,fmopenread);
不能以只读的方式打开。