Crear un fichero MDB (MS Access), por código
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:
- Menu Project/Import Type Library.
- Buscar la librería: “Microsoft ADO Ext. 2.X for DDL and Security”.
- Pulsa “Create Unit”.
Una vez generador el fichero, utilizar el siguiente código:
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; |
Embarcadero MVP.
Analista y Programador de Sistemas Informáticos.
Estudios de Informática (Ingeniería Técnica Superior) en la UPC (Universidad Politécnica de Barcelona).
Llevo utilizando Delphi desde su versión 3. Especialista en diseño de componentes, Bases de Datos, Frameworks de Persistencia, Integración Continua, Desarrollo móvil,…
Necesito esto mismo, pero para C++ Builder 6. Lo he buscado y no lo encuentro. Gracias de antemano.
Hola.
La idea y los pasos iniciales deberían ser los mismos. Pruébalo.