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

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

  1. Normann

    Normann Well-Known Member

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

    Регистрация:
    4 сен 2006
    Сообщения:
    2.580
    Симпатии:
    0
    Про ADO не скажу, но вот используя DAO можно. Вот парочка примеров на Дельфи
    Код (Text):
    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;
    Код (Text):
    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

    Регистрация:
    9 авг 2007
    Сообщения:
    168
    Симпатии:
    2
    Большое спасибо, мужики.
     
Загрузка...
Похожие Темы - Ado Создание базы
  1. planetoxod
    Ответов:
    1
    Просмотров:
    461
  2. SvetlanaL
    Ответов:
    1
    Просмотров:
    487
  3. SvetlanaL
    Ответов:
    0
    Просмотров:
    397
  4. Позитрон
    Ответов:
    3
    Просмотров:
    1.117
  5. JohnLemon
    Ответов:
    6
    Просмотров:
    1.174

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