一个简单问题，在线

Question

在delphi程序中实现数据库还原方法一：
窗体上方一个adoquerysql放入：if not exists(SELECT *  FROM   master..sysdatabases  WHERE  name = N'Corrosion')
  restore DATABASE corrosion from disk='G:\编程实践\Delphi\msdeCon\data\corrosion0610'通过adoquery的ExecSQL执行成功方法二：sql放入
if not exists(SELECT *  FROM   master..sysdatabases  WHERE  name = N'Corrosion')
  restore DATABASE corrosion from disk=:dbpath程序中这样写：
try
  dbpath:=ExtractFilePath(Application.ExeName)+'data\corrosion0610';
  ADOQuery1.Parameters.ParamByName('dbpath').Value:=dbpath;
  ADOQuery1.ExecSQL;
  MessageBox(0,'数据库创建成功','提示',MB_OK+MB_iconinformation);
except
begin
  MessageBox(0,'数据库创建失败','警告',MB_OK+MB_iconwarning);
  exit;
end;
end;创建失败，弹出错误提示是打不开设备，跟踪的时候dbpath是正确的,怎么回事？

Answer 1

在  ADOQuery1.ExecSQL;之前加上一句
ShowMessage(ADOQuery1.SQL.TEXT);看看SQL語句的屬性

Answer 2

还原时路径'G:\编程实践\Delphi\msdeCon\data\corrosion0610'是指SQL服务器上的地址，dbpath:=ExtractFilePath(Application.ExeName)+'data\corrosion0610';取的是本机地址