yaserzare
سه شنبه 06 آذر 1386, 23:07 عصر
من از کد زیر استفاده میکنم .
Dim Result As DialogResult = OpenFile.ShowDialog
If Result = Windows.Forms.DialogResult.OK Then
Dim ObjConnection AsNew SqlConnection("server=localhost;database=master;user id=sa;password")
Dim objcommand AsNew SqlCommand
objcommand.Connection = ObjConnection
objcommand.CommandText = " Restore database FirstDesign from disk=" & "'" & OpenFile.FileName & "'" & " with move 'firstdesign_data' to 'C:\FirstDesign_data.mdf', move 'firstdesign_log' to 'c:\firstdesign_log.ldf'"
ObjConnection.Open()
objcommand.ExecuteScalar()
ObjConnection.Close()
EndIf
ولی با خطای زیر مواجه است مشکل از کجاست ممنون.
Exclusive access could not be obtained because the database is in use.
RESTORE DATABASE is terminating abnormally.
Dim Result As DialogResult = OpenFile.ShowDialog
If Result = Windows.Forms.DialogResult.OK Then
Dim ObjConnection AsNew SqlConnection("server=localhost;database=master;user id=sa;password")
Dim objcommand AsNew SqlCommand
objcommand.Connection = ObjConnection
objcommand.CommandText = " Restore database FirstDesign from disk=" & "'" & OpenFile.FileName & "'" & " with move 'firstdesign_data' to 'C:\FirstDesign_data.mdf', move 'firstdesign_log' to 'c:\firstdesign_log.ldf'"
ObjConnection.Open()
objcommand.ExecuteScalar()
ObjConnection.Close()
EndIf
ولی با خطای زیر مواجه است مشکل از کجاست ممنون.
Exclusive access could not be obtained because the database is in use.
RESTORE DATABASE is terminating abnormally.