Crear un fichero MDB (MS Access), por código
lunes, 8 de octubre de 2007
2 comentarios
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; |