Configuración de “Servidor” mediante programación con una TFDConnection

Haz todo lo posible por entender el código bien previamente a adaptarlo a tu trabajo y si tquieres aportar algo puedes comentarlo.

Solución:

Lea la documentación, le dice exactamente cómo definir una conexión FireDAC para MySQL:

Trabajar con conexiones (FireDAC)

Conéctese al servidor MySQL (FireDAC)

Especificaría el servidor DB como parte de un Definición de conexión:

Definición de conexión (FireDAC)

Las definiciones de conexión se pueden definir en un archivo .ini externo, al que luego puede hacer referencia en el TFDManager.ConnectionDefFileName propiedad, o cargar dinámicamente usando el TFDManager.LoadConnectionDefFile() método.

[MySQL_Connection_1]
DriverID=MySQL
Server=192.168.1.100
...

[MySQL_Connection_2]
DriverID=MySQL
Server=192.168.1.101
...

O dinámicamente usando el TFDManager.ConnectionDefs propiedad:

var
  oDef: IFDStanConnectionDef;
begin
  oDef := FDManager.ConnectionDefs.AddConnectionDef;
  oDef.Name := 'MySQL_Connection_1';
  oDef.DriverID := 'MySQL';
  oDef.Server := '192.168.1.100';
  ...
  oDef.Apply;

  oDef := FDManager.ConnectionDefs.AddConnectionDef;
  oDef.Name := 'MySQL_Connection_2';
  oDef.DriverID := 'MySQL';
  oDef.Server := '192.168.1.101';
  ...
  oDef.Apply;

var
  oParams: TStrings;
begin
  oParams := TStringList.Create;
  oParams.Add('Server=192.168.1.100');
  ...
  FDManager.AddConnectionDef('MySQL_Connection_1', 'MySQL', oParams);

  oParams.Clear;
  oParams.Add('Server=192.168.1.101');
  ...
  FDManager.AddConnectionDef('MySQL_Connection_2', 'MySQL', oParams);

De cualquier manera, entonces puedes decir TFDConnection qué definición de conexión usar para llegar a cada base de datos cuando sea necesario:

FDConnection1.ConnectionDefName := 'MySQL_Connection_1';
// or: FDConnection1.ConnectionDefName := 'MySQL_Connection_2';
FDConnection1.Connected := True;

Alternativamente, puede especificar los parámetros de conexión directamente en el TFDConnection.Params propiedad si no desea predefinir definiciones de conexión separadas:

FDConnection1.DriverName := 'MySQL';
FDConnection1.Params.Clear;
FDConnection1.Params.Add('Server=192.168.1.100');
// or: FDConnection1.Params.Values['Server'] := '192.168.1.100';
...
FDConnection1.Connected := True;

Si conservas alguna desconfianza y capacidad de modernizar nuestro crónica te insinuamos añadir una reseña y con deseo lo leeremos.

---

---

Utiliza Nuestro Buscador