SOS!!!怎么在局域网内搜索到可用的SQLSERVER服务器呀!

Question

Private Sub GetSqlServer()
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 = 0End Sub

Answer 1

这个方法只能在装有sql server的机器上运行，帮你up

Answer 2

安装 MS SQL Server server/client
引用 Microsoft SQLDMO Object Library'CODE
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