那个备份的也是你提的吧?
参考 longquan(龍泉) 的代码。主要是设置数据库单用户模式。
参考 longquan(龍泉) 的代码。主要是设置数据库单用户模式。
解决方案 »
- fastreport奇怪的打印问题
- 字符串问题
- 高难度,类似金山词霸功能,但绝对高一个数量级
- 老大们小弟初学想问下我的DELPHI中咋没有WebServices元件呀!!
- 简单问题:怎么使listview控件中被选中的那一条记录处于可编辑(可修改)的状态
- 谁有DevExpress的DBTreeView控件?
- 有关form的问题?
- delphi里结束语end问题?????????????
- 关于xe5 android webservice连接数据问题
- 巨菜问题!如何用一条循环语句遍历一个窗体内所有的控件?
- 请问ANSI字符集里的十进制数为187的字符如何表示,我在C语言里直接写187就可以了,不知DELPHI里怎么写
- 如何在Blob字段(存放word文档)中进行检索?
Form1.ADOConnection1.Close;
......
// 不使用DefaultDataBase属性;
ADOCmd.CommandText:='RESTORE DATAABASE '+ YourDatabaseName +
' FROM DISK = '''+strFileName+''' with replace';
ADOCmd.Execute;
longquan(龍泉) ,你的代码在哪里
在Form1.ADOConnection1.Close;之后弹出一个对话框
application.messagebox();
然后执行备份就可以了
ADOCmd.Execute;
//使用 master 数据库
query1.close;
query1.sql := 'use master';
query1.execsql; //设置 shenji 为单用户模式
//请自己将 "" 进行处理 使得命令为 EXEC sp_dboption 'shenji','single user',true
query1.sql := 'EXEC sp_dboption "shenji","single user",true';
query1.execsql; query1.sql.text := 'Restore DataBase shenji from shenji200207212115 with replace';
query1.execsql; //设置 shenji 为非单用户模式
//请自己将 "" 进行处理 使得命令为 EXEC sp_dboption 'shenji','single user',false
query1.sql := 'EXEC sp_dboption "shenji","single user", false';
query1.execsql; //使用 shenji 数据库
query1.close;
query1.sql := 'use shenji';
query1.execsql;except
//异常处理
//设置 shenji 为非单用户模式
//请自己将 "" 进行处理 使得命令为 EXEC sp_dboption 'shenji','single user', false
query1.sql := 'EXEC sp_dboption "shenji","single user",false';
query1.execsql;
end;