如何获取Sqlserver服务器名?很急！！！！在线等!

Question

如何获取Sqlserver服务器名?很急！！！！
在线等!

Answer 1

安装 MS SQL Server server/client
引用 Microsoft SQLDMO Object Library'下面是代码
Option ExplicitPrivate Sub Command1_Click()
On Error GoTo Err1
    Dim dmoObj As New SQLDMO.Application
    Dim I       As Long
 
    For I = 1 To dmoObj.ListAvailableSQLServers.Count
        List1.AddItem dmoObj.ListAvailableSQLServers.Item(I)
    Next
Err1:
End Sub

Answer 2

同意 liul17(liul) ( ) 方法，但打包安装在未装Sql Server机器上就会出现问题，对此关注中。