备份:
backup database database_name to disk='you_path';
恢复
restore database database_name from disk='you_path'
恢复时,要完全断开连接。
一定要给分啊。
backup database database_name to disk='you_path';
恢复
restore database database_name from disk='you_path'
恢复时,要完全断开连接。
一定要给分啊。
解决方案 »
- 帮忙解释一句代码?基础
- 在vb中用dom写xml如何换行?
- MSFlexGrid控件操作难题
- 我公司想找人开发一个应收帐款应用程序,费用大概要多少钱?
- 水晶報表自動換頁的問題!
- 用什么方法可以把两张图片合并成一张打印出来?或者存为一个文件也可
- 记得有一篇文章是讲述VB的资源文件来记录EXCEL表,用Excel表的时候写出来,十万火急
- 程序退出时出错?
- 奇怪的问题:水晶报表?
- 请教高手,如何将我的文件存放在内存中?
- 请问为什么 "If Adodc5.Recordset("客户名称") <> Null Then Text22.Text = Adodc5.Recordset("客户名称")"中条件是真时它也没付值呀这是怎么回事呀?
- 怎样使用SQLDMO进行数据库备份和恢复?请给源码或参考文章?谢谢。
sql server有个dll是sqldmo.dll可以调用
恢复数据库:
Private Sub Command2_Click()
Dim sFile As String
sFile = "N_1"
Dim oServer As New SQLDMO.SQLServer
Dim oDatabase As New SQLDMO.Database
Dim oRestore As New SQLDMO.Restore
oServer.Connect servername, username, password
With oRestore
.Files = sFile
.Database = "Northwind"
.ReplaceDatabase = True
.SQLRestore oServer
End With
Set oRestore = Nothing
Set oDatabase = Nothing
oServer.DisConnect
Set oServer = Nothing
MsgBox ("OK")
End Sub备份:
Dim oBackup As New SQLDMO.Backup
oBackup.Action = SQLDMOBackup_Database
oBackup.Database = "Northwind"
oBackup.Devices = "[NorthDev1],[NorthDev2]"
oBackup.BackupSetName = "Northwind_Full"
oBackup.BackupSetDescription = "Full backup of Northwind sample."oBackup.SQLBackup oSQLServer
如果你按照上述方法做好一个通用的过程把原代码给我看看!!
我也是抄来的我不懂vb,
[email protected]或[email protected]