Formulario para elegir el nombre de la base de datos

[fredy666]

Necesito saber como puedo hacer un cuadro desplegable el cual recoja (como sea) todos los nombres de servidores SQLSERVER que hayan en la red.

He estado buscando por intener y en estos foros, pero no logro encontrar nada.

Gracias por vuestra ayuda.

[vbx3m]

Public Function AvailableSQLServers() As String()

Dim sServers() As String
Dim iCtr As Integer

sServers = AvailableSQLServers
If sServers(0) = "" Then
MsgBox "No existen servidores SQL disponibles"
Else
For iCtr = 0 To UBound(sServers)
Debug.Print sServers(iCtr)
Next
End If

Dim oServer As New SQLDMO.Application
Dim oNameList As SQLDMO.NameList
Dim iElement As Integer
Dim sAns() As String
Dim lCtr As Long, lCount As Long

On Error GoTo ErrorHandler

ReDim sAns(0) As String
Set oNameList = oServer.ListAvailableSQLServers

With oNameList
lCount = .Count
If lCount > 0 Then
For lCtr = 1 To .Count
iElement = IIf(sAns(0) = "", 0, UBound(sAns) + 1)
ReDim Preserve sAns(iElement) As String
sAns(iElement) = oNameList.Item(lCtr)
Next
End If
End With

AvailableSQLServers = sAns
Exit Function

ErrorHandler:
'En caso de error no devuelve nada
ReDim sAns(0) As String
AvailableSQLServers = sAns
End Function

Prueba con este codigo a ver que tal... Me avisas que tal te fue...

[fredy666]

OK muchas gracias, creo que si que funciona, en cuanto tenga un ratito lo pruebo, que ahora estoy muy atareado con los examenes y el proyecto.

Gracias de nuevo.