Como listar as instancias do SQLServer
09/02/2012
0
Dim dtServers As DataTable = SqlDataSourceEnumerator.Instance.GetDataSources
With DataGridView1
.DataSource = dtServers
com esse metodo consigo listar apenas as tabelas mas nao as linhas que contem o nome da instancia.
abs
Fernando Borstmann
Posts
09/02/2012
Joel Rodrigues
-------------------------------------------------------------------
SqlDataSourceEnumerator servers = SqlDataSourceEnumerator.Instance;
edtServidor.DataSource = servers.GetDataSources();
-------------------------------------------------------------------
09/02/2012
Fernando Borstmann
valeu!
09/02/2012
Joel Rodrigues
09/02/2012
Fernando Borstmann
09/02/2012
Fernando Borstmann
09/02/2012
Joel Rodrigues
Dá uma olhada nesse conteúdo, lá fala sobre alguns motivos pelos quais os servidores podem não ser listados.
10/02/2012
Fernando Borstmann
13/02/2012
Joel Rodrigues
Grato.
14/02/2012
Fernando Borstmann
-- Estabelece Locals
Dim results As DataTable
Dim ret As New List(Of String)
-- Mostrar mensagem no ListView para aguardar
Me.ListView1.Items.Add(Carregando Lista. Aguarde...)
Me.ListView1.ForeColor = Color.Gray
Me.ListView1.Refresh()
-- Tenta buscar servers disponíveis na rede
results = SqlDataSourceEnumerator.Instance.GetDataSources()
-- Limpar ListView
Me.ListView1.Items.Clear()
Me.ListView1.ForeColor = Color.Black
-- Coloca o resultado numa lista e num ListView
For Each r As DataRow In results.Rows
-- Determina o nome da Instância
If Not r.IsNull(InstanceName) Then
ret.Add(CType(r.Item(ServerName), String) & \ & CType(r.Item(InstanceName), String))
Me.ListView1.Items.Add(CType(r.Item(ServerName), String) & \ & CType(r.Item(InstanceName), String))
Else
ret.Add(CType(r.Item(ServerName), String))
Me.ListView1.Items.Add(CType(r.Item(ServerName), String))
End If
Next
End Sub
Clique aqui para fazer login e interagir na Comunidade :)