Ver Mensaje Individual
  #15  
Antiguo 12-08-2010
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
Hola
Yo lo hago con un archivo INI.
Código Delphi [-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var BaseDeDatos, ConStr : String;
    IniFile: TIniFile;
begin
   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;
El archivo ini es el que contiene la direccion de la BD con solo poner uno en el mismo directorio del exe ya esta.
Si algun dia se quiere poner la bd en otro directorio no cambio el programa, solo cambio la direccion en el ini.
Saludos
__________________
Siempre Novato
Responder Con Cita