Nombre del Servidor por ODBC

[roman]

¿Con qué componentes usas el ODBC?

// Saludos

[peripla]

Database, Datasource.... A eso te referís?

[peripla]

Yo trabajo externamente para una empresa. Esta tiene un servidor con las BD, en mi PC tambien tengo la BD, pero el nombre del servidor difiere. Si bien se cual es el nombre del servidor que usan, para hacerlo prolijo necesito que lo levante del odbc, a fin de evitar problemas futuros si algún dia cambian el servidor.
Muchas Gracias!

[roman]

¿Y no sirve algo como Database.Params['Server Name']?

// Saludos

[peripla]

No, estuve probando con los params, pero no obtuve ningún resultado positivo. Gracias1

[[Caral]]

Hola
No se si esto te sirva pero estuve viendo en adoconection y tal vez sirve para sqlserver, yo lo uso con access, pero si cambias el provider y otras cosas, tal vez funcione.
primero creo un archivo .ini, en este caso lo llamo (Produccion) lo coloco en la carpeta donde esta el ejecutable del programa, dentro de el pongo:
La ruta donde se encuentra la base de datos: y si tiene password.
asi:

[BD]
Path="C:\FIBRESTER\bd\Prod.MDB"
[Logon]
Auto="No"
Login=""
Pass=""

Y Lo guardo
En el datamodule en el evento oncreate pongo esto, por supuesto tienes que cambiarle cosas:

Código Delphi [-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var BaseDeDatos, ConStr : String;
    IniFile: TIniFile;
begin
   // Obtiene la ruta y el nombre de la base de datos
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'produccion.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
             'Data Source='+BaseDeDatos+';'+
             'Persist Security Info=False;'+
             'Jet OLEDB : Database Password=admin';
   AC1.ConnectionString := ConStr;
   AC1.Open;
end;

este codigo revisa el archivo ini y encuentra la base de datos, tal vez te guie.
Saludos