Dim sql As String Dim sqlcn As SqlConnection sqlcn = New SqlConnection sqlcn.ConnectionString = "workstation id=SG;packet size=4096;integrated security=SSPI;data source=SG;persis" & _ "t security info=False;initial catalog=student " Dim backstring As

Dim sql As String Dim sqlcn As SqlConnection sqlcn = New SqlConnection sqlcn.ConnectionString = "workstation id=SG;packet size=4096;integrated security=SSPI;data source=SG;persis" & _ "t security info=False;initial catalog=student " Dim backstring As
Dim sql As String
Dim sqlcn As SqlConnection
sqlcn = New SqlConnection
sqlcn.ConnectionString = "workstation id=SG;packet size=4096;integrated security=SSPI;data source=SG;persis" & _
"t security info=False;initial catalog=student "
Dim backstring As String = "restore database student from disk = 'c:\Program Files\Microsoft SQL Server\MSSQL\BACKUP\1.bak' "
Dim com As New SqlClient.SqlCommand(backstring)
Try
With com
.Connection = New SqlClient.SqlConnection(sqlcn.ConnectionString)
.Connection.Open()
.ExecuteReader()
.Connection.Close()
End With
MsgBox("还原成功",MsgBoxStyle.Information + MsgBoxStyle.OKOnly,"恭喜恭喜")
Catch ex As Exception
com.Connection.Close()
MsgBox(Err.Description,MsgBoxStyle.Critical + MsgBoxStyle.OKOnly,"错误")
阿门!一直显示“数据库正在使用中,未能或得对数据库的排它访问权“ 怎么改下就好啦!
可是结束 数据库进程!还能进入VB做的系统么?苍天!加入我要还原的是SG呢?怎么办?数据库没用户使用!它就连接不上!怎么进入系统?更不用说还原的功能!能给我下代码?

Dim sql As String Dim sqlcn As SqlConnection sqlcn = New SqlConnection sqlcn.ConnectionString = "workstation id=SG;packet size=4096;integrated security=SSPI;data source=SG;persis" & _ "t security info=False;initial catalog=student " Dim backstring As
还原数据库的时候,要保存该数据库不能有任何连接存在,就是该数据库不能被其他用户在使用.可以使用sp_who查看当前有哪些用户连接到该数据库了.
帮助中是这样讲的：在还原过程中,指定的数据库必须不处于使用状态.指定数据库中的任何数据将由还原的数据替换.
---------------------------
是这样的,你连接的数据库是SG,你要还原数据库是student ,不影响的,你只要保证student数据库没用户连接就可以了.
--------------------------
那你就使用其他库连啊,例如master库什么的,要不然没办法的.