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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Savva

WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****

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

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

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

Зависимости: ComObj, Dialogs,

Автор: savva, savva@nm.ru, 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);

{/codecitation}

Добавить комментарий