Ver Mensaje Individual
  #2  
Antiguo 10-03-2011
Avatar de arturom
arturom arturom is offline
Miembro
 
Registrado: dic 2003
Ubicación: Alicante
Posts: 91
Reputación: 21
arturom Va por buen camino
Hola,
no explicas como tienes establecido el acceso a los datos, pero una opción es, a la hora de crear el formulario principal, leer un fichero tipo INI donde previamente hayas guardado la ruta de la base de datos.

Abres un fichero INI, lees la ruta de la base de datos y compruebas si Ruta es una cadena vacía. Si no está vacia se la asignas a tu conector y listo. Si está vacía le pides al usuario la ruta mediante un componente OpenFile y luego la guardas en el fichero INI para la próxima vez y cierras el fichero.

Código Delphi [-]
var
  Ruta: String;
  FicheroINI: TIniFiles;
begin
  // Creas un anlace al fichero "fichero.ini" que esta en el mismo directorio que el ejecutable de tu aplicación
  FicheroINI := TIniFile.Create( ExtractFilePath( ParamStr( 0 ) ) + 'fichero.ini' );
  Ruta := FicheroINI.ReadString('Conexion', 'Ruta', '');  // Lees la ruta
  if Ruta <> '' then
    Conexion.DatabaseName := Ruta  // Asignas la ruta al conector
  else
    if Abrirfichero.Execute then  // Pides la ruta del la base de datos con el Openfile
      FicheroINI.WriteString('Conexion', 'Ruta', Ruta);  // Guardas la ruta

  ficheroINI.Free;  // Liberas la memoria
end;

Saludos
__________________
"No guardes nunca en la cabeza aquello que te quepa en un bolsillo."

Albert Einstein

Última edición por arturom fecha: 10-03-2011 a las 09:38:23.
Responder Con Cita