Ver Mensaje Individual
  #4  
Antiguo 06-06-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
Es muy sencillo, te lo explico paso a paso:
Veo que tienes el AdoConnection en un Datamodule, en tu caso: dmModuloDatos
1- Datamodule: (dmModuloDatos)
Vamos a colocar en el USES del Datamodule IniFiles asi:
Código Delphi [-]
uses
  SysUtils, Classes, DB, ADODB, IniFiles, Forms, Dialogs;
Posicionate en la parte BLANCA del dataModule y dale doble Click, eso te genera el evento OnCreate del datamodule.
Coloca esto:
Código Delphi [-]
procedure TdmModuloDatos.dmModuloDatosCreate(Sender: TObject);
// de aqui hacia abajo.......
Var BaseDeDatos, ConStr : String;
    IniFile: TIniFile;
begin
   // Obtiene la ruta y el nombre de la base de datos del archivo INI
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BD.ini');
  // BD.ini es el nombre del archivo ini, se puede cambiar a cualquier otro.
    BasedeDatos := IniFile.ReadString('BD','Path','');
  
  // si no lo encuentra envia un error
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
 
 // muestra los datos de conexion y los une a los del INI  
 ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
             'Data Source='+BaseDeDatos+';'+
             'Persist Security Info=False;'+
             'Jet OLEDB: Database Password=admin';
  
  // enlaza el adoconnection con los datos.
   ADOConnection2.ConnectionString := ConStr;
  
  // ejecuta la conexion
   ADOConnection2.Open;
end;
Listo, asi de simple, el programa arranca, revisa el datamodule, busca el archivo ini, recoge la informacion y ya.
El archivo ini tiene que estar en la misma carpeta que el EXE del programa para que lo encuentre, la DB puede estar donde sea, la direccion se la dara el ini.
Pongo aqui uno hecho para que simplemente le cambies la direccion (path) a la que necesites (actualmente tiene la misma direccion que pusiste tu).

Saludos
PD: Si se me olvida algo grita......
__________________
Siempre Novato

Última edición por Caral fecha: 17-07-2010 a las 18:54:11.
Responder Con Cita