Question

新手求帮忙delphi怎么对SqlServer2008的数据进行备份还原

各位大神，我想对我建立的数据库进行备份和还原，我用ADO进行连接数据库的，数据库是sqlserver2008，请问具体代码怎样啊，怎么弄我都弄不出，求帮忙，谢谢了。
备份

还原





Answer 1

备份
backup database xxx to disk='c:\xxx.bak' with init
恢复
restore database xxx from disk='c:\xxx.bak' with replace

追问

我可以本分 但是不能够还原 虽然他显示我还原成功了 但是实际是没有还原的，上面是我附上的代码

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var Query1: TADOQuery;
FileName : String;
begin
Query1 := TADOQuery.Create(nil);
try
FileName := GetCurrentDir + '\RES\20140925.bak';
Query1.ConnectionString := 'Provider=SQLNCLI10.1;Integrated Security=SSPI;Persist Security Info=False;User ID="";Data Source=(local);Initial File Name="";Server SPN=""'; //连接的是SQL2008
Query1.SQL.Add('restore database Energy from disk =''' + FileName +'''');
Query1.SQL.Add(' WITH REPLACE');
Query1.ExecSQL;
Query1.Close;
Application.MessageBox('数据库还原成功!','系统提示',MB_ICONQUESTION+MB_OK);
Finally
FreeAndNil(Query1);
end;
end;