Inicio > Trucos > Crear un fichero MDB (MS Access), por código

Crear un fichero MDB (MS Access), por código

Share Button

Para hacer ésto hay que importar primera la librería de ADO desde Delphi, que nos permita generar el fichero ADOX_TLB, que necesitamos para crear el fichero MDB.

Para importar la librería seguimos los pasos:

  1. Menu Project/Import Type Library.
  2. Buscar la librería: “Microsoft ADO Ext. 2.X for DDL and Security”.
  3. Pulsa “Create Unit”.

Una vez generador el fichero, utilizar el siguiente código:

0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
  DATABASENAME = 'c:\temp\BaseDatosNueva.mdb';
var
  Catalog: _Catalog;
  ConnectionString:String;
begin
  // Create a Catalog Object
  Catalog := CreateCOMObject(StringToGUID('ADOX.Catalog')) as _Catalog;
  // Set the Connection String
  ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
                              'Data Source=' + DATABASENAME;
  try
    // Create new Access database
    Catalog.Create(ConnectionString);
  except
    on E:EOLEException do begin
      // Levantamos la excepción
      MessageDlg('Error al crear la Base de Datos; Mensaje:' +
      E.Message, mtError, [mbOK], 0);
    end;
  end;
Share Button
Categories: Trucos Tags: , , ,
  1. Jueves, 19 de Julio de 2012 a las 21:33 | #1

    Necesito esto mismo, pero para C++ Builder 6. Lo he buscado y no lo encuentro. Gracias de antemano.

  2. Neftalí
    Viernes, 20 de Julio de 2012 a las 09:06 | #2

    Hola.
    La idea y los pasos iniciales deberían ser los mismos. Pruébalo.

  1. Sin trackbacks aún.
What is 24 + 3 ?
Please leave these two fields as-is:
IMPORTANTE! Para continuar, debes contestar la pregunta anterior (para evitar SPAM) :-)