Ver Mensaje Individual
  #15  
Antiguo 11-04-2007
argote argote is offline
Miembro
 
Registrado: abr 2007
Posts: 11
Reputación: 0
argote Va por buen camino
Erasmoc

Para obtener el listado de todos los servidores de MS SQL, registrados en tu network, debes utilizar el procedimiento almacenado sp_helpserver.
Si utilizas un componente TADOQuery y en la sentencia escribes:
exec sp_helpserver
podrás obtener el listado de los servidores MS SQL y de los LINKED SERVERS. Acá está un ejemplo de como sacar de este componente el listado.
Código Delphi [-]
TForm1.Button1Click(Sender: TObject);
var
  cad : string;
begin

  ADOQuery1.Open;
  ADOQuery1.First;
  while not ADOQuery1.Eof do
    begin
      cad := cad + ADOQuery1.Fields[0].AsString + #13#10;
      ADOQuery1.Next;
    end;
  ShowMessage(cad);
end;

Última edición por vtdeleon fecha: 11-04-2007 a las 19:30:31.
Responder Con Cita