Ayuda Please...

Estimado David.

Lo primero que tienes que hacer es instalar las aplicaciones clientes de sql
donde encontraras el sqldmo.dll

y ahora.

Private Sub Command1_Click()
Dim ListaSQL As SQLDMO.Application
Dim TempI As Integer
Dim Servidores As SQLDMO.NameList
Lista.Clear
Set ListaSQL = New SQLDMO.Application
Set Servidores = ListaSQL.ListAvailableSQLServers
For TempI = 1 To Servidores.Count
Lista.AddItem Servidores.Item(TempI)
Next TempI
Set Servidores = Nothing
Set ListaSQL = Nothing
End Sub

y nada mas...

si necesitas alguna explicación extra... ya sabes... me lo comentas ;-)

Un saludo, Kuw.


"David Israel" escribió en el mensaje
news:

Hola Colegas,
Necesito ayuda en lo siguiente: quiero desplegar los servidores Sql que

hay

en la red para desplegarlos en un comboBox, ¿me podrian ayudar en esto?.

Gracias.

David