Foros Club Delphi - ConnetionString con archivo de texto

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - ConnetionString con archivo de texto (https://www.clubdelphi.com/foros/showthread.php?t=95966)

ConnetionString con archivo de texto

Hola Amigos, alguien tendra algun fuente de ejemplo para que mi ADOConnetion pueda leer desde una archivo de texto pre-guardado en la pc. Es decir quisiera que una vez compilado el programa en instalado en la terminal se pueda cambiar la propiedad de la conexión directamente desde un archivo de texto eso con el fin de preveer algun cambios en los servidores de sql.

Cita:

Provider=SQLOLEDB.1;
Password=XXXXX;
Persist Security Info=True;User ID=XXXXX;Initial Catalog=BDXXXX;Data Source=IPXXXXX;Use Procedure for Prepare=1;
Auto Translate=True;Packet Size=4096;
Workstation ID=SERVERXXXX;
Use Encryption for Data=False;T
ag with column collation when possible=False

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__

Gracias Amigo esto funciona perfecto.