我现在做了一个数据库备份。在本地运行是正确的。可是一旦通过登陆本地电脑中的sql,在别的人的电脑中备份时,系统报错 。
错误是:
无法打开备份设备“c:\documents and setting\administrator\桌面\数理学院毕业生信息查询系统\数据备份\studentinfo20055011.back”.设备出现错误或设备脱机。详细信息请参阅sql server错误日志
源码如下:
procedure TForm5.FormCreate(Sender: TObject);
var
SourcePath:string;
path:string;
begin
Self.Caption:=application.Title+'-数据备份';
SourcePath:=ExtractFileDir(Application.ExeName); //取得应用程序路径
if ForceDirectories(sourcepath) then
begin
if(StrLen(PChar(SourcePath))<>3)then
SourcePath:=SourcePath+'\' ;
path:= SourcePath+'数据备份' ;
if ForceDirectories(path) then
begin
FlatEdit1.Text:=path+'\'+'studentinfo'+formatdatetime('yyyymmdd',date)+'.back';
//设置路径+文件名
end; end
end;
procedure TForm5.FlatButton1Click(Sender: TObject);
begin
self.Caption :='正在备份数据.......';
with ADOQuery1 do
begin
close;
sql.Clear;
sql.add('backup database studentinfo to disk='''+FlatEdit1.Text+'''');
ExecSQL;
end;
//dm.cback.CommandText:='backup database gctj to disk='''+edit1.Text+'''';
//备份语句 try
//dm.cback.Execute;//执行备份
showmessage('备份成功'); except
showmessage('备份失败'); end;
self.Caption:='数据备份';
end;
错误是:
无法打开备份设备“c:\documents and setting\administrator\桌面\数理学院毕业生信息查询系统\数据备份\studentinfo20055011.back”.设备出现错误或设备脱机。详细信息请参阅sql server错误日志
源码如下:
procedure TForm5.FormCreate(Sender: TObject);
var
SourcePath:string;
path:string;
begin
Self.Caption:=application.Title+'-数据备份';
SourcePath:=ExtractFileDir(Application.ExeName); //取得应用程序路径
if ForceDirectories(sourcepath) then
begin
if(StrLen(PChar(SourcePath))<>3)then
SourcePath:=SourcePath+'\' ;
path:= SourcePath+'数据备份' ;
if ForceDirectories(path) then
begin
FlatEdit1.Text:=path+'\'+'studentinfo'+formatdatetime('yyyymmdd',date)+'.back';
//设置路径+文件名
end; end
end;
procedure TForm5.FlatButton1Click(Sender: TObject);
begin
self.Caption :='正在备份数据.......';
with ADOQuery1 do
begin
close;
sql.Clear;
sql.add('backup database studentinfo to disk='''+FlatEdit1.Text+'''');
ExecSQL;
end;
//dm.cback.CommandText:='backup database gctj to disk='''+edit1.Text+'''';
//备份语句 try
//dm.cback.Execute;//执行备份
showmessage('备份成功'); except
showmessage('备份失败'); end;
self.Caption:='数据备份';
end;
解决方案 »
- 有哪位熟悉C++的,麻烦帮我转一下结构体的定义.谢谢
- 怎样安装TOPGRID(FOR D7)啊?总是安装不成功啊!!!
- 求能横向滚动部分列并能控制自己画单元格内容的grid控件
- fastreport获取dataset指定字段的值??
- 300分求斗地主或跑得快人工智能算法
- 急急急!在数据表中如何打印当前记录?
- 请问有哪位高手知道在intraweb中调用ms agent
- delphi最好的书是什么?
- 怎么实现用鼠标左键点击Speedbutton出现PopupMenu(注意我要左键不要右键)
- 为什么网页中看不到Dataset的内容???
- 一个收银系统,前台本地用的pardox,太容易坏了,有什么办法可以好一点?
- 请问如何用SQL语句往SQLSERVER2000里插入图片
这里的disk是指从数据库服务器所在计算机上的路径才可以