Ya están actualizados en la nueva web los trucos que tenía en la antigua; Tal vez las fechas y el orden no coincidan del todo, pero creo que es lo menos importante.
Están accesible por el Tag: Trucos o desde el acceso de la página principal donde hay creado un pequeño índice de todos los existentes.
Si detectáis algun error (que seguro los hay) os ruego que me lo comuniquéis.
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,…
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);excepton E:EOLEException dobegin// Levantamos la excepción
MessageDlg('Error al crear la Base de Datos; Mensaje:'+
E.Message, mtError,[mbOK],0);end;end;
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,…
