Area personale
Tag
Cerca in questo Blog
Menu
Chi puņ scrivere sul blog
Spesso è necessario ricercare i server sql disponibili sul computer in uso e su quelli remoti, per far questo scorrazzando per la rete ho trovato alcune informazioni che mi hanno permesso di creare questa semplice funzioncina che carica su una combo i server trtovati. E' ancora grezza e certamente da continuare a sviluppare ma certamente sul mio computer mi elenca i server disponibili anche inj questa versione.
Imports Microsoft.SqlServer.Management.Smo Imports
Private Sub CercaServer(ByRef combo As ComboBox) Dim Servers() As RegisteredServer = SmoApplication.SqlServerRegistrations.EnumRegisteredServers() For Each s As RegisteredServer In Serverscombo.Items.Clear() 'Console.Write(s.Name) combo.Items.Add(s.ServerInstance) Next End Sub
|