我用delphi写的备份代码,在自己电脑上可以运行成功,打好包也能运行成功,但为什么拿到别人电脑上一运行就失败呢?
是不是因为我写的代码中采用的是绝对地址?若是这样要想换个地方也能运行成功要如何修改呢?
希望各位高手帮帮我!备份代码如下:
procedure TForm7.BitBtn1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('backup database shijuan to disk=''F:\sql\MSSQL\BACKUP\shijuan .back'' with init');
try
adoquery1.ExecSQL ;
label4.Caption:='备份成功!!!';
showmessage('备份成功!');
except
label4.Caption:='备份失败!';
showmessage('备份失败!!!');
end;
end;
是不是因为我写的代码中采用的是绝对地址?若是这样要想换个地方也能运行成功要如何修改呢?
希望各位高手帮帮我!备份代码如下:
procedure TForm7.BitBtn1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('backup database shijuan to disk=''F:\sql\MSSQL\BACKUP\shijuan .back'' with init');
try
adoquery1.ExecSQL ;
label4.Caption:='备份成功!!!';
showmessage('备份成功!');
except
label4.Caption:='备份失败!';
showmessage('备份失败!!!');
end;
end;
解决方案 »
- DELPHI单片机通讯问题.
- 关于Fast Report的主-从报表,怎样才能在主报表里面显示从报表的一些统计信息呢?
- 求DELPHI4!!!!!
- -->如何将imagelist中的图标附给image控件显示出来呢?
- DELPHI里如何建一个临时表,临时表要怎么命名,才能避免重复?
- Unit not found: 'System.pas' or binary equivalents (DCU,DPU)
- 简单的gis程序在delphi5.0上没有问题,但在6.0上就有问题
- FindFirstFile函数TWin32FindData值中文件大小高低位是什么意思?
- onenter和onexit事件有什么用???
- 想做个时钟
- 原来还有人连计算器程序都不会写,感觉真爽啊
- ASP组件xp下正常,2003下搞的连应用程序池都停了
如果是程序目录下的[F:\sql\],就这样改:
procedure TForm7.BitBtn1Click(Sender: TObject);
var filepat:string;
begin
filepat:=ExtractFilePath(Application.Exename)+'MSSQL\BACKUP\shijuan.back'
adoquery1.Close;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('backup database shijuan to disk'+'"'+filepat+'"' +'with init');
try
adoquery1.ExecSQL ;
label4.Caption:='备份成功!!!';
showmessage('备份成功!');
except
label4.Caption:='备份失败!';
showmessage('备份失败!!!');
end;
end;