Archivo en el mismo directorio que la aplicacion

[Sotrono]

Hola como va?
Estoy trabajando con una base de datos acces, y uso los componentes TAdoConnection, y TAdoTable.
Lo que quiero es que en me busque la base de datos en el mismo directorio en el que esta el archivo ejecutable.
Hay alguna forma de hacer esto?

[jachguate]

No se cómo será en el caso de access, pero hay dos planteamientos posibles:

• Asignale a tu cadena de conexión una ruta relativa. Es decir, en lugar de indicar una ruta completa como 'c:\programa\base.mdb' asignale solamente 'base.mdb'. Esto no funciona en motores como interbase, que tienen un proceso servidor corriendo en su propia ruta, pero es probable que si funcione con access.
• En tiempo de ejecución, podes averiguar la ruta donde corre tu ejecutable con ExtractFilePath(application.ExeName), de manera que podes usar esta ruta para asignar la cadena de conexión.

Solo debo aclarar que en el primer caso, la ruta no es relativa a la ruta del ejecutable, sino al directorio actual de la aplicación, que en el caso de iniciar con un acceso directo, es el que se coloca en "iniciar en".

Hasta luego.

[salvica]

Hola a tod@s
Yo lo resolvia creandome una variable global, asignarla la ruta del ejecutable y guardandola en un ".ini" dentro del directorio de trabajo del programa para leerla de nuevo (en el "Create" del form) cada vez que corro el programa
[code_delphi]
var
Form1 : TForm;
DIR_TRABAJO : string; // global al proyecto
...

procedure TWin_Main.Form_OnCreate(Sender: TObject);
var
FileIni : TFileIni;
tmpRuta : string;
begin
tmpRuta := GetCurrentDir;
fileIni := TFileIni.Create( tmpRuta + '\parametros.ini' );
DIR_TRABAJO := fileIni.ReadString( 'DBF', 'DIR_TRABAJO', '' );
if( Trim(DIR_TRABAJO)='' ) then begin
{ crear el nuevo directorio de trabajo } fileIni.WriteString( 'DBF', DIR_TRABAJO, tmpRuta+'\DBF' );
DIR_TRABAJO := tmpRuta+'\DBF';
end;
fileIni.Free;
ForceDirectories( DIR_TRABAJO ); // forzar el directorio por si se cambia la ruta
...
end;
[/code_delphi]

[DarkByte]

Salvica, ya te he puesto el código con las etiquetas [ Delphi ] y [/ Delphi], recuerda que no es [ Code_Delphi ] sino [ Delphi ] a secas, pera la próxima vez

Código Delphi [-]
 var
   Form1 : TForm;
   DIR_TRABAJO : string; // global al proyecto
   ...
 
 procedure TWin_Main.Form_OnCreate(Sender: TObject);
 var
   FileIni : TFileIni;
   tmpRuta : string;
 begin
   tmpRuta := GetCurrentDir;
   fileIni := TFileIni.Create( tmpRuta + '\parametros.ini' );
   DIR_TRABAJO := fileIni.ReadString( 'DBF', 'DIR_TRABAJO', '' );
   if( Trim(DIR_TRABAJO)='' ) then begin
     { crear el nuevo directorio de trabajo }    fileIni.WriteString( 'DBF', DIR_TRABAJO, tmpRuta+'\DBF' );
     DIR_TRABAJO := tmpRuta+'\DBF';
   end;
   fileIni.Free;
   ForceDirectories( DIR_TRABAJO ); // forzar el directorio por si se cambia la ruta
   ...
 end;

[weke]

Buenas!

Yo tengo la conexión a mi base de datos de la misma manera. Utilizo una variable global para asignarle la ruta de la base de datos en el principal:

Código Delphi [-]
ruta:=ExtractFilePath(Application.ExeName)+'nombre.mdb';

y después le asigno esta ruta al ADOConnection antes de hacer la conexión con la base de datos.

Código Delphi [-]
procedure TDataModule1.ADOConnection1BeforeConnect(Sender: TObject);
begin
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ Principal.ruta+';Mode=ReadWrite;Extended Properties="";Persist Security Info=False';
end;

Espero que te sirva.
Saludos!!

[Sotrono]

Ok, Muchas gracias por la ayuda, que me vino muy bien..