＋设为首页 ＋添加到收藏夹
我的数据库是：SQL Server2000 ，要做一个“数据恢复”功能!
请高手指点！
需修改一下
With mycn
.Execute "use master"
myDelay 1
.Execute "alter database myinvoice set SINGLE_USER"
myDelay 1
.Execute "restore database myinvoice from disk=" + App.Path + "\" + Combo1.Text + ".dat"
myDelay 1
.Execute "alter database myinvoice set MULTI_USER"
myDelay 1
.Execute "use myinvoice"
myDelay 1
End With
MsgBox "本次数据还原成功！", vbInformation + vbOKOnly, "提示"
On Error GoTo ErrHandler:
Dim oRestore As SQLDMO.Restore
Dim Msg As String
Dim Response As String
txtStatus.Text = ""
gDatabaseName = cmbDatabaseName.Text
Set oRestore = New SQLDMO.Restore
Set oRestoreEvent = oRestore enable events
oRestore.Database = gDatabaseName
gBkupRstrFileName = txtDataFileName.Text
oRestore.Files = gBkupRstrFileName
Screen.MousePointer = vbHourglass
恢复数据库.
oRestore.SQLRestore gSQLServer
Screen.MousePointer = vbDefault
Set oRestoreEvent = Nothing disable events
Set oRestore = Nothing
Exit Sub
ErrHandler:
txtStatus.Text = ""
PrintStat "错误信息：" + vbCrLf & " " & Err.Description + vbCrLf & " 请检查您所输入的路径及名称是否正确？在进行数据库恢复时，其它计算机是不能使用该数据库的，请确认后重试！"
MsgBox "错误信息 " & Err.Description, , gTitle
Resume Next
