| Статистика |
|
Онлайн всего: 2 Гостей: 2 Пользователей: 0 |
|
Как создать базу данных 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;
|
| Категория: Access | Добавил: Skinner (03.07.2008)
|
| Просмотров: 415
| Рейтинг: 0.0/0 |
|
|
