Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Cadenas de Conexion ADO Vs Firedac (https://www.clubdelphi.com/foros/showthread.php?t=92242)

oscarac 05-09-2017 17:40:22

Cadenas de Conexion ADO Vs Firedac
 
buenos dias

cuando usaba ADo podia colocar esto

con la variable _Data podia escoger si me conectaba a una base de datos Access (0) o a Sql Server (1)

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 ????

OJO si puedo conectarme a traves del componente, pero me gustaria tener una cadena de conexion para poder escoger entre access y SQL Server

manelb 05-09-2017 20:30:58

Cita:

Empezado por oscarac (Mensaje 520852)
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
Código:

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
Código:

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');

oscarac 06-09-2017 15:48:20

excelente, gracias


La franja horaria es GMT +2. Ahora son las 03:28:40.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi