Создание новой MS Access базы данныхDelphi , Базы данных , AccessСоздание новой 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; Статья Создание новой MS Access базы данных раздела Базы данных Access может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |