[manelb]

Empezado por oscarac

buenos dias

Código Delphi [-]
 
 if _Data = '0' then // usamos Access
    dmGlobal.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=l:\desarrollo\Global.mdb;Persist Security Info=False'
  Else
    dmGlobal.ConnectionString:= 'Provider=SQLOLEDB.1;Password=xxxxx;Persist Security Info=True;User ID=sa;Initial Catalog=' + _Base +';Data Source=' + _Server;

la pregunta del millon, como hago esto en Firedac ????

En mi caso debo seleccionar entre paradox y firebird y seria algo como

Código Delphi [-]
 if _Data = '0' then // usamos paradox
  FDConnection.Params.LoadFromFile(ExtractFilePath(Application.ExeName)+'ConexionBD_Pdox.ini')
else
  FDConnection.Params.LoadFromFile(ExtractFilePath(Application.ExeName)+'ConexionBD_FB.ini');

Por otra parte, el contenido de los fichero de conexion en mi caso es el siguiente:

ConexionBD_Pdox.ini

ODBCDriver=Microsoft Paradox Driver (*.db )
Database=m:\dat
User_Name=admin
ODBCAdvanced=CollatingSequence=ASCII;DefaultDir=m:\dat;DriverId=538;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ParadoxNetPath=m:\red;ParadoxNetStyle=4.x;ParadoxUserName=admin;SafeTransactions=0;Threads=3;UserCommitSync=Yes
DriverID=ODBC

ConexionBD_FB.ini

Database=C:\Microdelta\MicTaller\Dat\micTaller.FDB
User_Name=SYSDBA
Password=masterkey
DriverID=FB

Para dar con el contenido de estos ficheros, lo que hice al principio fue configurar el FDConnection manualmente y a continuación ejecutar desde programa:

Código Delphi [-]
FDConnection.Params.savetoFile(ExtractFilePath(Application.ExeName)+'ConexionBD_NEW.ini');