| Статистика |
|
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Создание новой MS Access базы данных
Приведенная ниже процедура создает пустую базу данных 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;
|
| Категория: Access | Добавил: Skinner (03.07.2008)
| Автор: Vit W
|
| Просмотров: 601
| Рейтинг: 0.0/0 |
|
|
