Как создать базу данных Access во время выполнения

Советы » Access » Как создать базу данных Access во время выполнения

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com