Ver Mensaje Individual
  #3  
Antiguo 05-03-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
Hola
Con un archivo ini.
Se puede conectar por medio del datamodule en el DataModuleCreate asi:
Código Delphi [-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var BaseDeDatos, ConStr : String;
    IniFile: TIniFile;
begin
 // Obtiene la ruta y el nombre de la base de datos
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'TuArchivo.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   ConStr := 'Provider=MSDASQL.1;'+
             'Data Source='+BaseDeDatos+';'+
             'Persist Security Info=True';//'+
         //    'Password=admin1';  // Esto si tiene clave
   AC1.ConnectionString := ConStr;
   AC1.Open;
end;
En el archivo ini, se pone esto:
Código Delphi [-]
[BD]
Path="TuBaseDeDATOS"
[Logon]
Auto="NO"
Login=""
Pass=""
Esto conecta por medio de odbc.
Espero te sirva.
Saludos
Responder Con Cita