conexion de una BD access a delphi 7 mediante componentes ADO

[[Caral]]

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