Hola
// se crean dos variables de tipo string.
// estas contendran:
// 1- La direccion de la base de datos.
// 2- La conexion a access.
// los nombres pueden ser los que se quiera, no es importante
Código Delphi
[-]Var BaseDeDatos, ConStr : String;
// buscara la BD en el mismo directorio que el EXE, no importa donde este.
// Obtiene la ruta y el nombre de la base de datos
// ExtractFilePath = Extrae o consigue la direccion donde:
// Application.ExeName = Este el exe del programa, osea, sea igual al nombre de programa
// Database2.MDB en este caso es el nombre de la Base de Datos
Código Delphi
[-]
BaseDeDatos := ExtractFilePath(Application.ExeName)+'Database2.MDB';
// si la variable Basededatos no se localizo entonces muestra un mensaje.
Código Delphi
[-]
If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
// ConStr es la variable que contiene los datos que se necesitan para conectarse con la Base de datos.
// son los mismos que se obtienen al conectarse con un AdoConnection.
// como parte de la conexión se concatena la dirección que esta incluida en la variable BasedeDatos.
Código Delphi
[-]
ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+BaseDeDatos+';'+
'Persist Security Info=False;'+
'Jet OLEDBatabase Password=admin';
// se le proporciona al componente adoconnection el contenido de la variable Constr.
// se abre la BD.
Código Delphi
[-]
ADOConnection1.ConnectionString := ConStr;
ADOConnection1.Open;
Listo.
Saludos