如何获取本地和远程SQL SERVER服务器的名称

Question

本地的可以，远程的好像不可能.Dim oSQLServerDMOApp As Object
Dim i As Integer
Dim namX As Object
  On Error Resume Next
  Set oSQLServerDMOApp = CreateObject("SQLDMO.Application")
  Set namX = oSQLServerDMOApp.ListAvailableSQLServers
  For i = 1 To namX.Count
    cmbServer.AddItem namX.Item(i)
  Next
  cmbServer.ListIndex = 0

Answer 1

本地:select convert(Char(15),host_name())

Answer 2

就象minajo21(大眼睛) 所说的，
你通过执行查询语句：select convert(Char(15),host_name())
来返回本地的SQL SERVER服务器的名称

Answer 3

可是我用的是ADO连接,似乎必须要指定服务器名?

Answer 4

1.to: ： bodatec()
 minajo21(大眼睛)的不用知道服务器名字。就那样写就可以了
2.楼主如果是要连接远程数据库的话，可以通过ODBC来连接。
3.如果要用程序来写的话。还在考虑中...