Программное создание базы данных Access (DAO DBEngine)

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Программное создание базы данных Access (DAO DBEngine)

Функция создания файла базы данных Access.

PS. кто будет использовать - в комментариях отметьте версии ОС, Access,Delphi.

Зависимости: ComObj, Dialogs,
Автор: savva, 
 Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script
 , ICQ:126578975, Орел
Copyright: Сапронов Алексей (Savva)
Дата: 11 октября 2002 г.
***************************************************** }

function CreateDatabase(DatabaseName: string): boolean;
var
 DBEngine, Workspace: Variant;
const
 dbLangGeneral = ';LANGID=0x0409;CP=1252;COUNTRY=0';
 dbVersion30 = 32;
begin
 result := false;
 try
 try
 DBEngine := CreateOleObject('DAO.DBEngine.36');
 except
 try {For DAO 3.5}
 DBEngine := CreateOleObject('DAO.DBEngine.35');
 except
 raise;
 end;
 end;
 Workspace := DBEngine.Workspaces[0];
 try
 Workspace.CreateDatabase(DatabaseName, dbLangGeneral, dbVersion30);
 except on e0: EOleException do
 ShowMessage(e0.Message);
 end;
 except on e1: EOleException do
 ShowMessage(e1.Message);
 end;
 result := true;
end;

Пример использования:

...
CreateDatabase(db_name);
...