listar servidores sql

[Neftali [Germán.Estévez]]

Revisa éste código; Lo estuve probando hace un tiempo; No es mío, lo encontré por internet y tampoco pone ninguna referencia de la fuente original en el código.

[jlgaytan]

Gracias a mlara y a Neftali por responder.

Hola Neftali, el ejemplo del programa me ayuda un poco, pero el programa tiene sus bugs, por que en ocaciones ni siquiera muestra ningun servidor y en otras muestra talvez uno o dos.

Debido a que el programa trabaja con sockets, es un poco lento, asi que mejor voy a implementar un programa para que me muestre todos los equipos en la red y se selecione el servidor deseado.

Si se preguntan para que quiero hacer esto, es para conectar mi aplicacion con el servidor sql server al momento de crear el ODBC, ejemplo:

La primera vez que se ejecuta la aplicacion creo un ODBC mediante el registro de windows, cuando la base de datos es local no hay problema, el problema es cuando la aplicacion es remota porque tengo que saber cual PC tiene la base de datos para crear el ODBC hacia esa maquina.

Saludos.

[oscarnoe]

He encontrado este codigo, prueba a ver si te vale:

Código Delphi [-]
uses ComObj, Variants;     

// ==================================================== 
// Load SQL Servers on a Network into a string list 
// ==================================================== 

function EnumSqlServers(AStrings : TStrings) : boolean; 
var 
    oDmo,oApp,oServers : OleVariant; 
    bResult : boolean; 
    i : integer; 
begin 
  AStrings.Clear; 

  try 
    oDMO := CreateOleObject('SQLDMO.SQLServer'); 
    oApp := oDMO.Application; 
    oServers := oApp.ListAvailableSQLServers; 

    try 
      AStrings.BeginUpdate; 
      for i := 1 to oServers.Count do 
        AStrings.Add(oServers.Item(i)); 
    finally 
      AStrings.EndUpdate; 
    end; 

    bResult := true; 
  except 
    bResult := false; 
  end; 

  oServers := Unassigned; 
  oApp := Unassigned; 
  oDMO := Unassigned; 

  Result := bResult; 
end;

Espero que te sea de ayuda.

Oscar Noe

[jlgaytan]

Gracias oscarnoe, este codigo trabaja muy bien y es justo lo que yo queria.