Seoane nadie ha podido

[erasmorc]

Buenos dias,

No quiero crear el archivo .ini, no me interesa hacerlo de esa manera, se supone que en el conexion string del componente ado debo poder especificar el archivo de configuracion udl al que quiero hacer referencia, pero no me interesa crear el archivo ini.

Y si he buscado en el foro, lo que pasa que el motor de busquedas funciona en base las palabras que coloques y estas a su vez dependen de como a cada quien se le ocurra nombrar su tema.

Slds,

[dec]

Hola,

Empezado por erasmorc

Y si he buscado en el foro, lo que pasa que el motor de busquedas funciona en base las palabras que coloques y estas a su vez dependen de como a cada quien se le ocurra nombrar su tema.

Por eso conviene titular los Hilos lo más descriptivamente posible, porque ayuda no poco a la hora de utilizar el buscador de los Foros.

Pero todos debemos aplicarnos el cuento, incluso tú, si me lo permites, puesto que "Seoane nadie ha podido" no parece un título muy apropiado...

[argote]

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;

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

Empezado por argote

Si utilizas un componente TADOQuery y en la sentencia escribes:

exec sp_helpserver

Esta no la conocía...

[[Caral]]

Hola
Con esto: exec sp_helpserver
A mi me quedan dudas, no me funciona.
Si conecto el adoquery, buscara una tabla con ese nombre,
Si por el contrario no lo conecto, me dira que no tengo conexion.
Como se hace?, seria interesante saberlo.
Saludos

[erasmorc]

Buenas tardes,

Primero que nada gracias a Poliburro, Neftali, Argote y Caral por el interes en el hilo y por sus respuestas atinadas.

Quisiera darle la razon a Neftali en cuanto a la forma de nombrar el hilo, lo nombre asi porque alguna vez vi un codigo publicado por seoane que hacia algo parecido y entonces le pase un mensaje pero no recibi respuesta y pense en esta forma para hacerle llegar el mensaje.

Por otro lado la respuesta de Caral de los archivos .ini conozco el procedimiento y no es realmente lo que quiero.

Entre las respuestas de Poliburro, Neftali y Argote puedo hacer una combinacion y lograr el objetivo deseado, les dejo saber el resultado, de nuevo muchas gracias por el interes.

Slds

[argote]

Por ultimo, puedes utilizar el procedimiento PromptDataSource, que esta en la unit ADODB y te permite crear el ConnectionString y guardarlo luego en tu disco duro. Es la misma ventana de dialogo que utiliza Delphi en el componente TADOConnection.

Un ejemplo

procedure TForm1.Button1Click(Sender: TObject);
var
cad : string;
begin
ShowMessage(PromptDataSource(0, cad));
end;

La variable cad, contiene el ConnectionString.

[Troffed]

En el hilo: http://www.clubdelphi.com/foros/showthread.php?t=42287 puse una respuesta a este tema.

[[poliburro]]

Empezado por erasmorc

Buenos dias,

No quiero crear el archivo .ini, no me interesa hacerlo de esa manera, se supone que en el conexion string del componente ado debo poder especificar el archivo de configuracion udl al que quiero hacer referencia, pero no me interesa crear el archivo ini.

Hombre, :|, creo que no me entendiste, el archivo de configuración UDL, es en realidad un archivo INI, si tu abres con el notepad tu archivo UDL encontraras que su estructura es la de un INI.

Oviamente la ventaja del UDL es que al ser ejecutado te levanta el asistente de conexión de ADO. Pero internamente es un INI común y corriente