1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Ado, Создание базы

Тема в разделе "Остальные БД", создана пользователем Normann, 26 сен 2007.

  1. Normann

    Normann Well-Known Member

    Репутация:
    0
    Регистрация:
    9 авг 2007
    Сообщения:
    168
    Симпатии:
    2
    Есть ли у ADO средство для создания файла базы (mdb)?
     
  2. European

    Репутация:
    0
    Регистрация:
    4 сен 2006
    Сообщения:
    2.566
    Симпатии:
    2
    Про ADO не скажу, но вот используя DAO можно. Вот парочка примеров на Дельфи
    Код:
    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;
    Код:
    procedure CreateMSAccessDB(filename: string); 
    var 
    DBEngine, Workspace: Variant; 
    const 
    {Important to use the following constant as is} 
    dbLangGeneral = ''; 
    LANGID = 0x0409; 
    CP = 1252; 
    COUNTRY = '0'; 
    dbVersion30 = 32; 
    begin 
    DBEngine := CreateOleObject('DAO.DBEngine'); 
    {DBEngine := CreateOleObject('DAO.DBEngine.35'); For DAO 3.5} 
    Workspace := DBEngine.Workspaces[0]; 
    try 
    Workspace.CreateDatabase(filename, dbLangGeneral, dbVersion30); 
    except 
    on EOleException do 
    ShowMessage('Database already exists'); 
    end; 
    end;
    Код стырен из "Delphi Russian Knowledge Base from Vit" пару лет назад скачанной с http://www.drkb.ru/
     
  3. Normann

    Normann Well-Known Member

    Репутация:
    0
    Регистрация:
    9 авг 2007
    Сообщения:
    168
    Симпатии:
    2
    Большое спасибо, мужики.
     
Загрузка...
Похожие Темы - Ado Создание базы
  1. Vander
    Ответов:
    9
    Просмотров:
    1.221
  2. planetoxod
    Ответов:
    1
    Просмотров:
    926
  3. SvetlanaL
    Ответов:
    1
    Просмотров:
    650
  4. SvetlanaL
    Ответов:
    0
    Просмотров:
    452
  5. Позитрон
    Ответов:
    3
    Просмотров:
    1.590

Поделиться этой страницей