我用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;
解决方案 »
- TEDIT控件的MaxLength属性
- 什么是数据感知组件?有什么用?在那个选项卡上?
- 动态调用dll占用内存越来越多的问题。
- IDataObjec.SetData放入一段文字
- 如何保存、打开Record类型数据?
- 困扰我多年的问题???怎么远程连接?服务器,没固定IP的!能不能用花生壳来连接??????
- 在DCOM三层结构中如何传输WORD文件,服务端方法的数据类型如何选择?
- 急啊,,我的如何根据进程的id得到该进程的可执行文件名,下班前结帐。谁快谁多!
- 请教高手
- QRExpr1如何记算行数?
- 原来还有人连计算器程序都不会写,感觉真爽啊
- 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;