|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/12/4 7:49:29 |
标题: |
|
加入我的收藏 |
楼主: |
我想用Delphi编程把后台sqlserver数据库还原,不知怎么做
----------------------------------------------
-愿与大家共同进步 |
作者: |
|
2003/12/4 9:19:40 |
1楼: |
restore database 数据库名 from disk='文件目录+文件名'
----------------------------------------------
-努力
|
作者: |
|
2003/12/4 14:18:15 |
2楼: |
var def_dbname,DEF_BAKNAME:string; BEGIN def_dbname:='jin'; DEF_BAKNAME:=edit1.text; try ADOQuery2.Close ; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('Use master'); ADOQuery2.SQL.Add('ALTER DATABASE '+ DEF_DBNAME +' SET OFFLINE WITH ROLLBACK IMMEDIATE'); ADOQuery2.SQL.Add('Restore Database '+ DEF_DBNAME +' From disk= ''+DEF_BAKNAME+''); ADOQuery2.SQL.Add('ALTER DATABASE '+ DEF_DBNAME +' SET ONLINE WITH ROLLBACK IMMEDIATE'); Screen.Cursor := crSQLWait ; ADOConnection1.open ; try ADOQuery2.ExecSQL ; finally Screen.Cursor := crDefault ; ADOConnection1.Open ; end ; except ShowMessage('数据库恢复操作没有完成,请稍侯重试。'); exit; end ;
----------------------------------------------
-
|
|