Crear archivo .mdb automáticamente

[marcoszorrilla]

Aquí tienes un ejemplo de como crear la base de datos, las tablas las creas con SQL y ya lo tienes.

procedure CreateMSAccessDB(filename : String);
var
  DBEngine, Workspace: Variant;
const
  {Important to use the following constant as is} 
  dbLangGeneral = ';
  LANGID = 0x0409;
  CP = 1252;
  COUNTRY = 0';
  dbVersion30 = 32;
begin
  DBEngine := CreateOleObject('DAO.DBEngine');
  {DBEngine := CreateOleObject('DAO.DBEngine.35'); For DAO 3.5}
  Workspace := DBEngine.Workspaces[0];
  try
    Workspace.CreateDatabase(filename, dbLangGeneral, dbVersion30);
  except
    on EOleException do
      ShowMessage('Database already exists');
  end;
end;

Un saludo.