救急：关于数据库备份与恢复的问题？

[xhzhang]

各位大侠，我下面的恢复程序有什么问题呢，请指点迷津？

Private Sub Command3_Click()
Dim sFile As String
Dim oServer As New SQLDMO.SQLServer
Dim oDatabase As New SQLDMO.Database
Dim oRestore As New SQLDMO.Restore
On Error GoTo SaveErr
oServer.Connect "zxh", "sa", ""
oRestore.Action = SQLDMORestore_Database
oRestore.Database = "netenv"

oRestore.Devices = "D:\mssql7\BACKUP\data010907.dat"
oRestore.FileNumber = 1
oRestore.Files = "D:\mssql7\BACKUP\data010907"
' oRestore.StandbyFiles = "D:\mssql7\BACKUP\data010907"
oRestore.ReplaceDatabase = True
oRestore.SQLRestore oServer
' With oRestore
'
' .Files = "data010907.dat"
'
' .Database = "netenv"
' .ReplaceDatabase = True
' .SQLRestore oServer
' End With

Set oRestore = Nothing
Set oDatabase = Nothing
oServer.DisConnect
Set oServer = Nothing
MsgBox ("OK")

Exit Sub
SaveErr:
End Sub

[xhzhang]

怎么没人在呢？

[Jneu]

要下班了。

[xhzhang]

各位，帮帮忙啊。

[zjg751206]

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,
[e-mail]或[e-mail]