EXIBIR BANCOS SQL
Boa tarde pessoal!
Como exibir em um combo todos os bancos SQL de uma rede, vi isso em uma aplicação e achei bem interessante.
Grato,
Guilherme - VB6
vlw
Como exibir em um combo todos os bancos SQL de uma rede, vi isso em uma aplicação e achei bem interessante.
Grato,
Guilherme - VB6
vlw
Ai galera na sei se vai ser util p vcs, mas consegui esse código que faz exatamente o que eu estou precisando
Neste exemplo consideramos um form com uma listbox e um botão. O projeto precisará ter o References para o SQL-DMO [Ô]Microsoft SQLDMO Object Library[Ô]. Veja como fica o código do botão:
Private Sub Command1_Click()
Dim dmoServer As SQLDMO.SQLServer
Dim dmoApp As SQLDMO.Application
Dim dmoNameList As SQLDMO.NameList
Dim i As Integer
Set dmoServer = New SQLDMO.SQLServer
Set dmoApp = dmoServer.Application
Set dmoNameList = dmoApp.ListAvailableSQLServers()
For i = 0 To dmoNameList.Count - 1
List1.AddItem dmoNameList(i)
Next i
End Sub
O método ListAvailableSQLServers() devolve uma coleção de nomes de servidores disponÃveis na rede local.
Na minha rede tem um servidor com windows 2003 server instalado e tenho o SQL Server instalado nesse servidor, porém com esse código não apareceu o nome do banco desse servidor.
Alguém saberia me informar pq?
Neste exemplo consideramos um form com uma listbox e um botão. O projeto precisará ter o References para o SQL-DMO [Ô]Microsoft SQLDMO Object Library[Ô]. Veja como fica o código do botão:
Private Sub Command1_Click()
Dim dmoServer As SQLDMO.SQLServer
Dim dmoApp As SQLDMO.Application
Dim dmoNameList As SQLDMO.NameList
Dim i As Integer
Set dmoServer = New SQLDMO.SQLServer
Set dmoApp = dmoServer.Application
Set dmoNameList = dmoApp.ListAvailableSQLServers()
For i = 0 To dmoNameList.Count - 1
List1.AddItem dmoNameList(i)
Next i
End Sub
O método ListAvailableSQLServers() devolve uma coleção de nomes de servidores disponÃveis na rede local.
Na minha rede tem um servidor com windows 2003 server instalado e tenho o SQL Server instalado nesse servidor, porém com esse código não apareceu o nome do banco desse servidor.
Alguém saberia me informar pq?
Tópico encerrado , respostas não são mais permitidas