ConnetionString con archivo de texto

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

En las versiones nuevas de Delphi tienes la clase TFile con métodos para leer una cadena desde un fichero.
Un código como este te lee la conexión desde un fichero y conecta (lo intenta).

Código Delphi [-]
uses
  System.IOUtils;

procedure TForm3.Button1Click(Sender: TObject);
begin
  ADOConnection1.ConnectionString := TFile.ReadAllText('c:\...PATH_DEL_FICHERO_\conexion.dat');
  try
    ADOConnection1.Connected := True;
    ShowMessage('Conexión correcta!');
  except
    MessageDlg('Error al realizar la conexión', mtError, [mbOK], 0);
  end;
end;

Si no tienes disponible la clase TFile (unit System.IOUtils) puedes usar un TStrings

En mi caso, el fichero conexion.dat tiene lo siguiente (variará según la versión de ADO):

Código SQL [-]
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=__BASEDEDATOS__;Data Source=__SERVIDOR_SQLSERVER__