RESPUESTA A LA PREGUNTA 4771 - DELPHI


Puedes hacerlo de dos formas:

1) En modo de diseño, colocas un objeto del tipo
TDatabase y haciendo doble click sobre el componente
seleccionas en la lista desplegable 'driver
name->MSACCESS' y luego presionas sobre el botón
'Defaults' el cual colocará en el cuadro de texto
'Parameter overrides' algo similar a lo siguiente:

DATABASE NAME=DRIVE:/PATH/DATABASE.MDB
USER NAME=
OPEN MODE=READ/WRITE
LANGDRIVER=
SYSTEM DATABASE=
PASSWORD=

solo debes llenar cada opción con los valores
correspondientes. Si además no quieres que te aparezca
el cuadro de login destilda la opción 'Login prompt'.
Luego conecta este objeto con tus objetos TTable o
TQuery

2) Por medio de código puedes tener un procedimiento
similar al que sigue. Fijate en el código porque es
muy simple. En este ejemplo tengo un objeto del tipo
TDatabase global (Database1) el cual debo crear y
destruir por código, pero el ejemplo también es válido
para un objeto creado en tiempo de diseño lo único que
no debes colocar es la línea en donde se crea el
objeto.

...
procedure AbrirBaseDeDatos;
var
   Ruta: String;
   Parametros: TStrings;
begin
     // Ruta y nombre de la base de datos
     Ruta := ExtractFilePath(Application.ExeName) +
'bases.mdb';

     // Crear parámetros
     Parametros := TStringList.Create;
     with Parametros do begin
          Add('DATABASE NAME=' + Ruta);
          Add('USER NAME=Admin');
          Add('OPEN MODE=READ/WRITE');
          Add('LANGDRIVER=Access General');
     end;

     // Inicializar la base de datos
     Database1 := TDatabase.Create(Application);
     with Database1 do begin
          LoginPrompt := False;
          DatabaseName := 'BaseGeneral';
          DriverName := 'MSACCESS';
          Params := Parametros;
          Connected := True;
     end;
     ...
     Parametros.Free; 
     ...
end;
...

Por último conectas este objeto con tus tablas como
por ejemplo:

...
with dbParam do begin
     DatabaseName := 'BaseGeneral';
     TableName := 'Parametros';
     Active := True;
end;
...

Espero que con esto puedas solucionar tu problema.



MIGUEL LUCERO
miguel_sandro@yahoo.com