怎样使用SQLDMO进行数据库备份和恢复？请给源码或参考文章？谢谢。

Question

ado+sql语句 就搞定了阿
不过连接 时不要 指定 数据库,只要连接到 服务器就可以了

Answer 1

strConn = "driver={sql server};server=" & txtSrvName.Text & ";uid=" & txtUserName.Text & ";pwd=" & txtPwd.Text & ""
conn.Open strConnstrsql = "BACKUP DATABASE " & txtDbName.Text & " TO DISK='C:\setup_sys\" & strDbName & "'"
conn.Execute strsqlstrsql = "RESTORE DATABASE " & txtDbName.Text & " FROM DISK='D:\MSSQL7\BACKUP\" & strDbName & "'"
conn.Execute strsql

Answer 2

SQL Server可以使用SQL-DMO来做：
恢复数据库：
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]