[问题求助] VBS连接 mssql 数据库为什么会报错“下列工作站在这台服务器上有会话并打开了文件”

Function GET_SID(ByVal strUserName)

  On Error Resume Next
  strDBServer = "sql01.abc.com"
  strDBName = "admin_db"
  strDBUserName = "admin_db"
  strDBPassword = "P@ssW0rd"
  strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & strDBUserName & ";Password=" & strDBPassword & ";Initial Catalog=" & strDBName & ";Data Source=" & strDBServer
  sSQL = "SELECT  TOP 1  [SID]  FROM  [Users]  WHERE  [UserName]='" & strUserName & "'"

  Set conn  = CreateObject("ADODB.Connection")
  Set rs = CreateObject("ADODB.RecordSet")

  conn.ConnectionString = strConn

  If Not Err.Number = 0 Then Exit Function
  conn.Open
  rs.Open sSQL, conn, 3, 3

  If Not Err.Number = 0 Then Exit Function
  If rs.Recordcount = 1 Then
    strSID = rs("SID")
  Else
    strSID = ""
  End If

  rs.Close
  conn.Close
  Set rs=Nothing
  Set conn = Nothing

Exit Function
复制代码

SID   USERNAME  PASSWORD
uuid001  Yu2n  P@ssW0rd
...
复制代码

If (Not objRS Is Nothing) Then If (Not objRS.State = 1) Then ''Do Something
If (Not objADOConn Is Nothing) Then If (Not objADOConn.State = 1) Then ''Do Something
复制代码

Function GET_Password(ByVal strPCName)
  On Error Resume Next
  Dim strConn, strSQL, objADOConn, objRS, str
  strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=DBUSER1;Password=Abcd1234;Initial Catalog=ADMIN_DB;Data Source=SQL01.ABC.COM"
  strSQL = "SELECT TOP 1 [pwd1] FROM [password] WHERE [name]='" & strPCName & "'"
  Set objRS = CreateObject("ADODB.RecordSet")
  Set objADOConn  = CreateObject("ADODB.Connection")
  objADOConn.ConnectionString = strConn
  objADOConn.Open
  If (Not objADOConn Is Nothing) Then If (Not objADOConn.State = 1) Then Exit Function
  objRS.Open strSQL, objADOConn, 3, 3
  If (Not objRS Is Nothing) Then If Not objRS.State = 1 Then objADOConn.Close : Exit Function
  If objRS.Recordcount = 1 Then str = objRS("pwd")
  If (Not objRS Is Nothing) Then If (Not objRS.State = 1) Then objRS.Close
  If (Not objADOConn Is Nothing) Then If (Not objADOConn.State = 1) Then objADOConn.Close
  Set objRS = Nothing
  Set objADOConn = Nothing
  GET_Password = str
End Function
复制代码