Detectar Path base de datos access

[casacham]

Hola m.ruiz (maria ruiz?). Lo tuyo parece ser mas sencillo de lo que suena. Como sabemos, uno nunca sabe donde va a caer la aplicacion y su archivo de base de datos cuando sea distribuida e instalada en otras maquinas. Es por ello que utilizo el evento AfterConnect del objeto TADOConnection para configurar la ConnectionString.
En el evento coloco el siguiente codigo:

Código Delphi [-]
 
 
procedure TDM_Dat.ADOConnection1BeforeConnect(Sender: TObject);
begin
ADOConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;' +
'User ID=Admin;' +
'Data Source='+ExtractFilePath(Application.ExeName)+'HACbaWKSDat.mdb;' +
'Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";'+
'Jet OLEDB:Registry Path="";Jet OLEDBatabase Password="drJH26897943";'+
'Jet OLEDB:Engine Type=5;Jet OLEDBatabase Locking Mode=1;'+
'Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'+
'Jet OLEDBon'+''''+'t Copy Locale on Compact=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
end;

Podras ver que en la linea que dice

'Data Source='+ExtractFilePath(Application.ExeName)+'HACbaWKSDat.mdb;'
se encuentra la respuesta a tu pregunta. Espero que te haya sido util la informacion