Obtener ado connectionstring

[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

[mblascog]

Gracias Ecsisa,
Creo que no me expliqué bien.
He hecho un programa que accede a una base de datos Access.
Para hacer el programa me he copiado la base de datos a mi pc y desde él he trabajado.
Ahora que he acabado el programa, quiero copiarlo al servidor de la empresa, donde está la base de datos Access, por lo que tengo que cambiar el CconnectionString.
Pensaba que cambiando la ruta de la base de datos (DQQ) funcionaría, pero me da el error que comenté en el primer mensaje. Y la verdad es que ya no sé qué hacer.

Gracias

[ecfisa]

Hola mblascog.

El que te debe la disculpa soy yo que entendí cualquier cosa...

Una consulta que con seguridad ya te hayas planteado, ¿ Comparaste las cadenas de conexión de tu equipo con alguna de las existentes en el servidor como para darte una idea en que difieren ?

Saludos