Obtener ado connectionstring

[mblascog]

Buenas,
He creado una aplicación que accede a una base de datos Access vía ODBC.
He creado un DSN de usuario, y he cargado en la propiedad ConnectionString la cadena de connexión:

Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=Iris;DBQ=C:\OMH\Habitatge_Iris.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"


Ahora que ya he acabo el programa y funciona en mi pc, lo quiero instalar en el servidor de la empresa. Al igual, creo el DSN de usuario en el servidor, y en ConnectionString cambio la ruta de la base de datos. Creía que así funcionaría, pero da el siguiente error:

[Microsoft][Controlador ODBC Microsoft Access]'desconocido' no es una ruta de acceso válida. Asegúrese de que la ruta está escrita correctamente y que está conectado al servidor donde se encuentra el archivo

La ruta es correcta, seguro. Es una unidad de red.
He buscado si existe alguna función que a partir del nombre de DSN de usuario te devuelva la cadena de conexión, pero no he encontrado nada.

Alguien puede guiarme un poco.
Gracias.

[ecfisa]

Hola mblascog.

Intenta de este modo:

Código Delphi [-]
...
implementation

uses Registry;

function IsWOW64: Boolean;
type
  LPFN_ISWOW64PROCESS = function(hProcess: THandle; var Wow64Process: BOOL): BOOL; stdcall;
var
  fnIsWow64Process: LPFN_ISWOW64PROCESS;
  bIsWOW64: BOOL;
begin
  Result:= False;
  fnIsWow64Process:= LPFN_ISWOW64PROCESS(GetProcAddress(GetModuleHandle('kernel32'), 'IsWow64Process'));
  if Assigned(fnIsWow64Process) then
  begin
    bIsWow64:= False;
    if fnIsWow64Process(GetCurrentProcess(), bIsWOW64) then
      Result:= bIsWOW64;
  end;
end;

function GetConnectStrFromDSN(const DSNStr: string): string;
const
  KEY_WOW64_64KEY = $0100;
begin
  Result:= '';
  with TRegistry.Create(KEY_READ + KEY_WOW64_64KEY * Integer(IsWOW64)) do
  try
    RootKey:= HKEY_LOCAL_MACHINE;
    if OpenKey('\SOFTWARE\ODBC\ODBC.INI', False) then
    begin
      Result:= ReadString(DSNStr);
      CloseKey;
    end;
  finally
    Free;
  end;
end;

Ej. llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetConnectStrFromDSN('Iris'));
end;

Saludos

[mblascog]

Buenas Ecfisa,
Gracias por tu código. Lo he probado y me devuelve un string en blanco.
He mirado en el Registro si existía la clave y la he encontrado en HKEY_CURRENT_USER en lugar de HKEY_LOCAL_MACHINE. Lo he cambiado, pero me sigue devolviendo el string en blanco.
Puede tener algo que ver en 32 o 64 bits?

Gracias por tu ayuda.

[ecfisa]

Hola mblascog.

Empezado por mblascog

Buenas Ecfisa,
Gracias por tu código. Lo he probado y me devuelve un string en blanco.
He mirado en el Registro si existía la clave y la he encontrado en HKEY_CURRENT_USER en lugar de HKEY_LOCAL_MACHINE. Lo he cambiado, pero me sigue devolviendo el string en blanco.
Puede tener algo que ver en 32 o 64 bits?

Es lo mas probable ya que si el SO es de 64 bits hay registros afectados por WOW64 (entre los que figura el que tratamos).

Si todo transcurre en un entorno de 32 bits el código quedaría de este modo:

Código Delphi [-]
function GetConnectStrFromDSN(const DSNStr: string): string;
begin
  Result:= '';
  with TRegistry.Create(KEY_READ) do
  try
    RootKey:= HKEY_LOCAL_MACHINE;
    if OpenKey('\SOFTWARE\ODBC\ODBC.INI', False) then
    begin
      Result:= ReadString(DSNStr);
      CloseKey;
    end;
  finally
    Free;
  end;

Saludos

[mblascog]

Gracias Daniel,
Pero me sigue devolviendo una cadena en blanco.
Quizás me estoy complicando la vida. La cadena de ConnectionString la consigo a partir de la propiedad ConnectionString del componente TQuery. Al hacer click me aparece la pantalla para construir la cadena, seleccionas el origen de datos (DSN de usuario) y te la genera.
Hay alguna manera de conseguir, como sea, esta cadena en Windows Server 2003, es que no me importa ponerla a mano y dejo de complicarme la vida?.

Muchas gracias por tu ayuda.

[ecfisa]

Hola mblascog.

No sé si entendí lo último que comentas pero si solo se trata de obtener la ruta de la cadena que previamente se generó en el query, creo que podrías hacer:

Código Delphi [-]
uses StrUtils;

function GetPathFromQry(const qStr:string): string;
var
  p1,p2: Integer;
begin
  Result:= '';
  p1:= Pos('DBQ=', qStr) + Length('DBQ=');
  p2:= PosEx(';', qStr , p1);
  Result := Copy(qStr ,p1, p2-p1);
end;

Ej. de llamada:

Código Delphi [-]
  ShowMessage(GetPathFromQry(ADOQuery1.ConnectionString));

De la cadena ejemplo de tu mensaje se obtendría: C:\OMH\Habitatge_Iris.mdb

Saludos