Archivo

Entradas Etiquetadas ‘Fácil’

Actualizados los trucos

martes, 24 de febrero de 2009 Sin comentarios
Share Button

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.

Lista de trucos

Si detectáis algun error (que seguro los hay) os ruego que me lo comuniquéis.

Un saludo.

Share Button
Categories: Delphi, Trucos Tags: , ,

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

lunes, 8 de octubre de 2007 2 comentarios
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: , , ,