Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
220
Assunto : Visual Basic
Titulo: Exibindo os SQL Servers cadastrados no Enterprise Manager

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Em uma dica anterior vimos como listar todos os sql servers de uma rede local. Vejamos agora como usar o SQL-DMO para listar todos os servidores que estejam registrados no enterprise manager. Veja o código :

Private Sub Command1_Click()
Dim dmoRegisteredServer As SQLDMO.RegisteredServer
Dim dmoServerGroup As SQLDMO.ServerGroup
Dim dmoServer As SQLDMO.SQLServer
Dim dmoApp As SQLDMO.Application

Set dmoServer = New SQLDMO.SQLServer

Set dmoApp = dmoServer.Application

For Each dmoServerGroup In dmoApp.ServerGroups
For Each dmoRegisteredServer In dmoServerGroup.RegisteredServers
List1.AddItem dmoRegisteredServer.Name
Next dmoRegisteredServer
Next dmoServerGroup

End Sub

Observe que o objeto Application do sql-dmo possui uma coleção de ServerGroups (grupos de servidores que você visualiza no enterprise manager) e por sua vez os ServerGroups possuem uma coleção de RegisteredServers (os servidores registrados, nosso objetivo).

Portanto foram utilizados no código 2 for/each, um para cada coleção. Em meio aos for/each o nome dos servidores foi adicionado em uma listbox.



Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 10/14/2016 11:56:00 PM
nome: SmXICcWIFbgezhPE
email: jimos4581rzt@hotmail.com
comentário:
BdVwVn http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

data: 10/14/2016 11:22:00 PM
nome: cnSydDXPXhjOyLGd
email: jimos4581rzt@hotmail.com
comentário:
6t3rMO http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

data: 8/8/2016 7:46:00 AM
nome: QCswAIkyVxO
email: jimos4581rt@hotmail.com
comentário:
9H6zz1 http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br