Ver Mensaje Individual
  #3  
Antiguo 18-03-2008
Avatar de jcarteagaf
[jcarteagaf] jcarteagaf is offline
Miembro Premium
 
Registrado: abr 2006
Ubicación: La Paz, Bolivia
Posts: 651
Reputación: 19
jcarteagaf Va por buen camino
Creacion de ODBC dinamica

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
Responder Con Cita