Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Crear un fichero MDB (Access) por código (https://www.clubdelphi.com/foros/showthread.php?t=80447)

Neftali [Germán.Estévez] 08-06-2006 16:55:54

Crear un fichero MDB (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 MDB.

Para importar la librería seguimos los pasos:
(1) Menu Project/Import Type Librery.
(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:
Código Delphi [-]
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;


La franja horaria es GMT +2. Ahora son las 09:53:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi