y aqui tengo un ejemplo utilizando archivos INI
Código Delphi
[-]
STR_CONN = 'Provider=SQLOLEDB.1;Password=%s;Persist Security Info=True;' +
'User ID=%s;Initial Catalog=%s;Data Source=%s';
fName := ChangeFileExt(Application.ExeName,'.ini');
ini := TIniFile.Create(fName);
_User := ini.ReadString(CONFIG_SECTION, 'User', STR_EMPTY);
_Password := ini.ReadString(CONFIG_SECTION, 'password', STR_EMPTY);
_Server := ini.ReadString(CONFIG_SECTION, 'Server', STR_EMPTY);
_BD := ini.ReadString(CONFIG_SECTION, 'BaseDatos', STR_EMPTY);
ConectarConcar.ConnectionObject.ConnectionString :=
Format(STR_CONN, [_password, _User, _BD, _server]);
y este es el archivo INI
Cita:
[ConfigDB]
User=sa
password=Pjper
Server=192.168.1.200
BaseDatos=rsconcar
|