Nombre del Servidor por ODBC
 

Hace poco que utilizo Delphi, y hasta ahora me salvaron en todos los tiros, el tema es que hace dos horas que estoy buscando la solución a un problema y no la encuentro.
Bueno, necesito sabes como obtener el Server Name del ODBC. Uso Delphi 5 y Sql S 2000. No se si necesitan algún dato mas.....
Desde ya muchas Gracias

Hola peripla
La verdad no entiendo.
El nombre del servidor, pues es el nombre que tiene la maquina donde esta el sqlserver, en mi caso es simplemente server.
No entiendo esto del nombre del odbc, tal vez si explicas mejor lo que quieres hacer, lo entienda alguien, porque lo del odbc, no se.
Saludos

En la configuración del ODBC, se carga el Server Name. Bueno yo necesito desde la aplicación levantar ese nombre.
Muchas Gracias!

pues generalmente es el nombre del equipo donde esta el servidor SQL

¿Con qué componentes usas el ODBC?

// Saludos

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

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!

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

// Saludos

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

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