скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Создание новой MS Access базы данных



Автор: Vit

Приведенная ниже процедура создает пустую базу данных MS Access

procedure CreateMSAccessDatabase(filename: string);
var
  DAO: Variant;
  i: integer;
const
  Engines: array[0..2] of string = ('DAO.DBEngine.36', 'DAO.DBEngine.35',
    'DAO.DBEngine');

  function CheckClass(OLEClassName: string): boolean;
  var
    Res: HResult;
  begin
    Result := CoCreateInstance(ProgIDToClassID(OLEClassName), nil,
      CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IDispatch, Res) = S_OK;
  end;
begin
  for i := 0 to 2 do
    if CheckClass(Engines[i]) then
    begin
      DAO := CreateOleObject(Engines[i]);
      DAO.Workspaces[0].CreateDatabase(filename,
        ';LANGID=0x0409;CP=1252;COUNTRY=0', 32);
      exit;
    end;
  raise Exception.Create('DAO engine could not be initialized');
end;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook