{ **** 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;
trytry
DBEngine := CreateOleObject("DAO.DBEngine.36");
excepttry{For DAO 3.5}
DBEngine := CreateOleObject("DAO.DBEngine.35");
exceptraise;
end;
end;
Workspace := DBEngine.Workspaces[0];
try
Workspace.CreateDatabase(DatabaseName, dbLangGeneral, dbVersion30);
excepton e0: EOleException do
ShowMessage(e0.Message);
end;
excepton e1: EOleException do
ShowMessage(e1.Message);
end;
result := true;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Программное создание базы данных Access (DAO DBEngine)", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!