结束用户进程是出错,大家给看看
下面的程序实现在恢复备份的数据库之前关闭用户进程,可是执行时总是报错
出错信息是[DBNETLIB][ConnectionRead(WrapperRead())] 一般性网络错误,请检查网络文档
不知道是什么意思,大家给看看
Public Function KillProcess() As Boolean
On Error GoTo KillProcessError
Dim con As New ADODB.Connection
con.ConnectionString = GetConString
con.Open
Dim rs As New ADODB.Recordset
'È¡µÃ¸ÃÊý¾Ý¿âID
Dim sql, temp As String
sql = "select spid from master..sysprocesses where dbid=db_id('" & NameList.Text & "')"
rs.Open sql, con, adOpenKeyset, adLockReadOnly
While rs.EOF = False
temp = "kill " & rs(0)
MsgBox temp
con.Execute temp
rs.MoveNext
Wend
KillProcess = True
Exit Function
KillProcessError:
MsgBox Err.Description, vbOKOnly + vbInformation, "½áÊø½ø³Ì³ö´í"
KillProcess = False
If con.State = adStateOpen Then
con.Close
End If
If rs.State = adStateOpen Then
rs.Close
End If
End Function