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.

[JF Sebastian]

Alguien podria indicarme un ejemplo algo mas extenso de lectura y escritura de mdb's? Basicamente, ademas de crear el mdb vacio, añadir tablas, campos registros grabacion y lectura...

[[cHackAll]]

Empezado por JF Sebastian

...ademas de crear el mdb vacio, añadir tablas, campos registros grabacion y lectura...

[Neftali [Germán.Estévez]]

Aquí tienes cómo crear un fichero MDB por código, cómo modificar columnas/campos de las tablas o cómo crear nuevas tablas, campos y restricciones.

[JF Sebastian]

Muchas gracias Neftali.
Necesitaria ademas la forma de añadir y leer registros a/de las diferentes tablas y quisiera hacerlo sin componentes, ¿Es posible?
Un saludo

[Neftali [Germán.Estévez]]

Empezado por JF Sebastian

Necesitaria ademas la forma de añadir y leer registros a/de las diferentes tablas y quisiera hacerlo sin componentes, ¿Es posible?

Supongo que te refieres a hacerlo "sin componentes visuales".
Pues sí. Puedes hacerlo por código si lo deseas dirctamente con los componentes de conexión ADOTable/ADOQuery.