Crear un MDB por codigo, requiere añadir al uses ComObj
Código Delphi
[-]function CreateMdbFile(_Name:String): Boolean;
var e:OleVariant;
begin
if not FileExists(_Name) then
begin
try
e := CreateOleObject('DAO.DBEngine.36');
e.CreateDatabase(_Name, ';LANGID=0x0409;CP=1252;COUNTRY=0', 64);
CreateMdbFile:=True;
except
On E:Exception do
begin
CreateMdbFile:=False;
end;
end;
end
else CreateMdbFile:=False;
end;
//Editado para librar la duplicación con el truco 49 del buen Neftalí :)