Сообщество Чайников

Вопрос

Подскажите как получить список SQL Server-ов в сети.

Ответ

"C:\Program Files\Microsoft SQL Server\80\Tools\DevTools\Samples\sqldmo\vb\CreateDatabase\"

frmSQLServersLogin.frm

Private Sub Form_Load()
   Dim i As Integer
   'Use the SQL DMO Application Object to find the available SQL Servers
   Set oSQLServerDMOApp = New SQLDMO.Application
   'Don't show events
   gShowServerEvents = False
   
   Dim namX As NameList
   Set namX = oSQLServerDMOApp.ListAvailableSQLServers
   For i = 1 To namX.Count
     txtServer.AddItem namX.Item(i)
   Next
   'Show top server
   txtServer.ListIndex = 0
End Sub

Vladimir Petrov