/*Prog*/ Delphi-Neftalí /*finProg*/

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.

Un saludo.

Delphi, Trucos Fácil, Programación, Trucos

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;

Trucos Delphi, Fácil, Tips, Trucos