Dim dlg As New OpenFileDialog
dlg.Filter = "数据库备份|*.BAK"
dlg.InitialDirectory = SpecialFolder.MyDocuments
dlg.MultiSelect = False
If dlg.ShowDialog = DialogResult.OK Then
Dim cmd As New SQLCommand
cmd.ConnectionName = connName
cmd.CommandText = "RESTORE DATABASE pxbSys FROM DISK = '" & dlg.FileName & "'"
cmd.ExecuteNonQuery()
StatusBar.Message1 = "数据库还原成功"
End If
执行后,出错,提示:数据库正在使用,所以未能获得对数据库的排它访问权