Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

Delphi , Базы данных , Access

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

Автор: 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);
...

Статья Программное создание базы данных Access (DAO DBEngine) раздела Базы данных Access может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Access ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
27.10.2021 10:32:22/0.005591869354248/0