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

[qingshao11]

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

[LCAAA]

你连接服务器的时候写的是什么呀？

[liul17]

安装 MS SQL Server server/client
引用 Microsoft SQLDMO Object Library

'下面是代码
Option Explicit

Private 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

[yijiansong]

赞同楼上

[lisong770818]

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