Crear ODBC dinámicamente?

[HccSoft]

Es posible crear un DNS de usuario dinámicamente?

Utilizo un ADOConnection de Delphi 7 para acceder a una BD remota SQL Server. Me gustaría que el ejecutable funcionara desde un Pendrive sin tener que configurar nada.

Gracias

[rafita]

Hola,
Yo no creo ODBC's dinámicamente, sino que me limito a crear la conexión para mi aplicación capturando los datos de un archivo de texto.

  GUbicacionAplicacion:=ExtractFilePath(Application.ExeName);
  AssignFile(fich_setup,GUbicacionAplicacion+'Configuracion.txt');
  {$I-} Reset(fich_setup); {$I+}
  if IOResult<>0 then
    begin
      ShowMessage('No encuentro el archivo de configuración inicial Configuracion.txt.');
      Close;
    end
  else
    begin
      ReadLn(Fich_Setup,Cadena); GConexion:=Cadena;
      CloseFile(Fich_Setup);
      // establecer conexión con la base de datos
      ADOQuery1.Connection:=ADOcn1;
      ADOQuery2.Connection:=ADOcn1;

Espero que esto te oriente un poco

[[jcarteagaf]]

La información de los ODBC se almacen en el registro del Windows, uso el siguiente codigo para generar ODBC's que apuntan a SQL SERVER desde mis aplicaciones

Código SQL [-]
var
  r : TRegistry

begin
    r := TRegistry.create;
    r.RootKey:= HKEY_LOCAL_MACHINE;
    r.OpenKey('SOFTWARE\ODBC\ODBC.INI\'+Nombre_ODBC,true);
    r.WriteString('Database',Nombre_base_de_datos);
    r.WriteString('Driver','C:\WINDOWS\System32\SQLSRV32.dll');
    r.WriteString('Language','Español');
    r.WriteString('Lastuser',Nombre_Usuario);
    r.WriteString('Server',Nombre_Servidor);
    r.CloseKey;
    r.Free;
    r := TRegistry.create;
    r.RootKey:= HKEY_LOCAL_MACHINE;
    r.OpenKey('SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources',true);
    r.WriteString(Nombre_ODBC,'SQL Server');
    r.CloseKey;
    r.Free;
  end;
end;

Espero que te sirva. Saludos

[HccSoft]

Muchas gracias por las respuestas.

Creo que esta última es lo que buscaba. Luego probaré el código.